我仍在使用相同的数据库,其中表名保持不变,但每次使用时字段名称都不同。我想在主窗体上创建一个选项,用户单击命令按钮以显示表中的字段列表(名为'Srubbed'),然后从列表中选择一个字段,并立即打开一个窗口显示不同的字段值。可以这样做吗?
答案 0 :(得分:1)
您可以使用VBA做很多事情,包括动态创建查询。组合框和列表框有一个RowSource选项字段列表,它将列出表中的字段。
编辑
以下是您的代码,但有一些更改:
Private Sub Command206_Click()
Dim strSQL As String
Dim strScrubbedValue As String
''I suspect this is running in the form, so Me
strScrubbedValue = Me.ComboListScrubbedFields
''Where the table is called Scrubbed
strSQL = "SELECT DISTINCT " & strScrubbedValue & " FROM Scrubbed"
''No need to execute, it is just a row source
''DoCmd.RunSQL strSQL
Me.Combo213.RowSource = strSQL
End Sub
我建议您使用有意义的名称命名控件。