我正在尝试根据另一个组合框的选择动态设置一个组合框的值。每次运行时都说对象变量或未设置块变量
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句