Vba 在Access窗体上动态设置组合框的值

我试图根据对另一个组合框的选择动态设置一个组合框的值。每次运行时，都会显示对象变量或未设置块变量

Option Compare Database

Private Sub cmbReport_AfterUpdate()
    'Gets the Report
    If cmbReport = "Audit type" Then
        Set Data = CurrentDb.CreateQueryDef("", "SELECT AuditTypeName  FROM tblAuditType")
    End If

    Set rs = Data.OpenRecordset

    'Sets the data
    With Me.cmbData
        .Recordset = rs
    End With
End Sub

---

如果cmdData是一个组合框，则它应该是

.Rowsource

而不是

.Recordset

Private Sub cmbReport_AfterUpdate()
    If cmbReport = "Audit type" Then
        cmbData.Rowsource = "SELECT AuditTypeName FROM tblAuditType"
    End If
End Sub

---

如果cmdData是一个组合框，则它应该是

.Rowsource

而不是

.Recordset

Private Sub cmbReport_AfterUpdate()
    If cmbReport = "Audit type" Then
        cmbData.Rowsource = "SELECT AuditTypeName FROM tblAuditType"
    End If
End Sub

---

如果cmdData是一个组合框，则它应该是

.Rowsource

而不是

.Recordset

Private Sub cmbReport_AfterUpdate()
    If cmbReport = "Audit type" Then
        cmbData.Rowsource = "SELECT AuditTypeName FROM tblAuditType"
    End If
End Sub

---

如果cmdData是一个组合框，则它应该是

.Rowsource

而不是

.Recordset

Private Sub cmbReport_AfterUpdate()
    If cmbReport = "Audit type" Then
        cmbData.Rowsource = "SELECT AuditTypeName FROM tblAuditType"
    End If
End Sub

---

确切地说，不需要创建QueryDef。确切地说，不需要创建QueryDef。确切地说，不需要创建QueryDef。确切地说，不需要创建QueryDef。