Public Unterseeboot ctrlTechnologyCombo_Initialize ()
Schwaches iCurrentProject als ganze Zahl, strSQL als Schnur
iCurrentProject = Me.Parent.Form.ID
strSQL = „AUSERWÄHLTES ProjectID, TechID, FieldName von den dbo_qryBetas WO ProjectID=“ u. iCurrentProject
Me.ctrlTechnologyCombo.RowSource = strSQL
Me.ctrlTechnologyCombo.Requery
Enden-Unterseeboot
Privates VorctrlTechnologyCombo_AfterUpdate ()
Enden-Unterseeboot
Privates VorctrlTechnologyCombo_Change ()
Enden-Unterseeboot
|