Question

在将表单（和子表单）的recordsource设置为combobox（0）'value'时出现问题。

我有一条语句确定openArgs是否来自另一种形式。如果没有，我希望能够设置使用main中的组合框来更改当前记录。显然，如果不执行任何操作，则将openArgs的默认值设置为'0'。

Private Sub cmbMemNam_AfterUpdate()
    Dim strMemNam As String
    strMemNam = "SELECT tblMembers.*, tblMembers.[mbr_ID] FROM tblMembers WHERE ((tblMembers.[mbr_ID]) = '" & (Nz(Me.cmbMemNam.Column(0)) & "')"
    Me.RecordSource = strMemNam
End Sub

我遇到编译错误。我试图找到一个列出对象和SQL语句语法正确顺序的站点。我想这只是练习。

在大师跳到我之前...

Answer 1

Nz表达式周围的括号不平衡：

( Nz ( Me.cmbMemNam.Column(0) )

应该是：

Nz(Me.cmbMemNam.Column(0))

设置Form（subForm）记录源等于ComboBox

1 个答案: