设置 Form(subForm) 记录源等于 ComboBox答案

【问题标题】：Setting Form(subForm) recordsource equal to ComboBox设置 Form(subForm) 记录源等于 ComboBox
【发布时间】：2019-06-07 06:41:09
【问题描述】：

将表单（和子表单）的recordsource 设置为组合框（0）“值”时遇到问题。

我有一个声明来确定 openArgs 是否来自另一种形式。如果没有，我希望能够设置使用 main 中的组合框来更改当前记录。显然，如果不做任何事情，默认为 '0' 作为 openArgs。

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 语句的正确语法顺序的站点。我想这只是需要练习。

在大师跳到我身上之前......

【问题讨论】：

标签： sql forms ms-access vba

【解决方案1】：

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

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

应该是：

Nz(Me.cmbMemNam.Column(0))

【讨论】：

清除了错误，我不知道这是否合适，或者我是否应该开始一个新问题，但是在我设置变量字符串 'strMemNam 后出现运行时错误: 这里的例子
清除了错误，我不知道这是否合适，或者我是否应该开始一个新问题，但是在我设置变量字符串 'strMemNam 后出现运行时错误: 这里是下一行的例子。 Me.Filter = strMemNam
您的过滤器不能是选择语句。应该是mbr_ID=12