1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
Public Sub ctrlTechnologyCombo_Initialize () Schemerige iCurrentProject als Geheel, strSQL als Koord iCurrentProject = Me.Parent.Form.ID strSQL = „UITGEZOCHTE ProjectID, TechID, FieldName VAN dbo_qryBetas WAAR ProjectID=“ & iCurrentProject Me.ctrlTechnologyCombo.RowSource = strSQL Me.ctrlTechnologyCombo.Requery Sub van het eind Privé SubctrlTechnologyCombo_AfterUpdate () Sub van het eind Privé SubctrlTechnologyCombo_Change () Sub van het eind