|
下面的代码是示例数据库“地址簿”里面的代码,用于修改查询,我用的是ADP连接SQL SERVER,需要修改视图,这段代码好像行不通,请问错在哪里?
Dim db As Database
Dim rs As Recordset
Dim qdf As QueryDef
Dim strSQL As String
Set db = CurrentDb
Set qdf = db.QueryDefs("数据表视图")
strSQL = "Select "
Set rs = Me.RecordsetClone
rs.MoveFirst
Do Until rs.EOF
If rs!数据项显示 = True Then
' Build SQL string
strSQL = strSQL & rs!数据项名称 & ", "
End If
rs.MoveNext
Loop
DoCmd.Close
strSQL = Left(strSQL, Len(strSQL) - 2) & " From 家庭状况"
qdf.SQL = strSQL
DoCmd.OpenQuery qdf.Name |
|