Office中国论坛/Access中国论坛

标题: [求助]通过窗体设定查询的列字段名 [打印本页]

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

[attach]13228[/attach]

作者: sgrshh29 时间: 2005-9-21 17:35
[attach]13232[/attach]

作者: gzh97730 时间: 2005-9-21 17:36
[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 时间: 2005-9-23 07:01
谢谢大家，已经解决问题了，真是谢谢大家了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)