[求助]通过窗体设定查询的列字段名

linjingdr

我做了一个示例数据库，请大家帮我看看。我想达到的目标为：通过选择窗体1中的复选框钩，设定空查询basexuan中的列字段名，例如钩选窗体1name和age这两个选项，则在查询basexuan中的列字段中自动添加name和age这两个列字段名，就象access帮助中的地址簿示例数据库中的那样，可我看了示例数据库中的代码，还是不会。请大家帮我。

sgrshh29

gzh97730

[em05]



我看看....

楼主的代码好像有点乱哦....

把这部分代码改一下就可以了....



Dim re As DAO.Recordset

Dim strSQL As String

   

Me.Requery '保存记录

'==================生成SQL语名部分============================

Set re = CurrentDb.OpenRecordset("Select  biaoti From 是否显示 Where xianshi=True")

With re

If .RecordCount <> 0 Then

    strSQL = !biaoti

    .MoveNext

    Do Until .EOF

        strSQL = strSQL & "," & !biaoti

        .MoveNext

    Loop

End If

End With



strSQL = "select " & strSQL & " From base"

   



'==================创建查询表部分============================





Dim QryName As String

QryName = "basexuan"



On Error GoTo ErrHandle:



CurrentDb.CreateQueryDef "tmpQryDef_" & QryName, strSQL

DoCmd.Close acQuery, QryName

CurrentDb.QueryDefs.Delete QryName

DoCmd.Rename QryName, acQuery, "tmpQryDef_" & QryName

DoCmd.OpenQuery QryName



'=====================捕捉错误部分==========================

Exit Sub



ErrHandle:

Select Case Err.Number

    Case 3075

    MsgBox "生成的SQL语句出错!" & vbCrLf & Err.Description

    Case 3265 '查询对象不存在

    Resume Next

    Case Else

    MsgBox Err.Description

End Select



文件怎么上传不了呀...更外也不能改帖...谁可以友情一下,我用的是firefox.

linjingdr

谢谢大家，已经解决问题了，真是谢谢大家了。