Public Sub ctrlTechnologyCombo_Initialize()
Dim iCurrentProject As Integer, strSQL As String
iCurrentProject = Me.Parent.Form.ID
strSQL = "SELECT ProjectID, TechID, FieldName FROM dbo_qryBetas WHERE ProjectID=" & iCurrentProject
Me.ctrlTechnologyCombo.RowSource = strSQL
Me.ctrlTechnologyCombo.Requery
End Sub
Private Sub ctrlTechnologyCombo_AfterUpdate()
End Sub
Private Sub ctrlTechnologyCombo_Change()
End Sub
|