我所做的是将复选框附加为查询的附加列,然后用于创建记录集。然后将该记录集分配给组合框控件。
以前,它对我来说很好,然后引用组合框中未显示的所选行的列。但是,无论我尝试什么,当我尝试引用这些复选框时,我得到的只是一个空值。
举例说明:
Set rs = db.OpenRecordset("SELECT AG.Acttype, AG.ActGroupID, AT.HasLots, AT.IsLotSrce, " _
& "AT.HasStructs FROM ActivityGroup AG, ActivityType AT WHERE (" _
& FormatToSQLVal(Me![WizardSubformDisplay].Form![ActLinkedProjInput].Column(1)) _
& " = AG.ProjectID) AND (AG.Acttype = AT.ActType);")
Set Me![WizardSubformDisplay].Form![ActTypeInput].Recordset = rs
(在这种情况下,还有一些额外的修补,这对其他没有处理复选框的情况不会造成麻烦)
Me![WizardSubformDisplay].Form![ActTypeInput] = Me![ActTypeName]
Me![WizardSubformDisplay].Form![ActTypeInput].Locked = True
(我将组合框设置为特定选项,然后将其锁定)
Me![WizardSubformDisplay].Form![ActTypeInput].Column(2),
Me![WizardSubformDisplay].Form![ActTypeInput].Column(3),
Me![WizardSubformDisplay].Form![ActTypeInput].Column(4)
如果选中该框,则全部返回null,而不是-1,否则返回0。