1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
Public ctrlTechnologyCombo_Initialize () Тусклое iCurrentProject как интежер, strSQL как шнур iCurrentProject = Me.Parent.Form.ID strSQL = «ОТБОРНОЕ ProjectID, TechID, FieldName ОТ dbo_qryBetas ГДЕ ProjectID=» & iCurrentProject Me.ctrlTechnologyCombo.RowSource = strSQL Me.ctrlTechnologyCombo.Requery Подводная лодка конца Приватное Sub ctrlTechnologyCombo_AfterUpdate () Подводная лодка конца Приватное Sub ctrlTechnologyCombo_Change () Подводная лодка конца