Public faytMaterial As New FindAsYouTypeCombo
Public faytMaterialNoInt As New FindAsYouTypeCombo
Public faytMaterialForward As New FindAsYouTypeCombo
Public faytForwardNoHandles As New FindAsYouTypeCombo
'Cascade combo
Public faytMaterial As New FindAsYouTypeCombo
Private Sub Form_Load()
faytMaterial.InitalizeFilterCombo Me.cboMaterial, "ItemSKU", AnywhereInString, True
faytMaterialNoInt.InitalizeFilterCombo Me.cboMaterial, "ItemSKU", AnywhereInString, , False
faytMaterialForward.InitalizeFilterCombo Me.cboMaterial, "ItemSKU", FromBeginning, True
faytForwardNoHandles.InitalizeFilterCombo Me.cboMaterial, "ItemSKU", FromBeginning, False
'Cascade Combo
faytCascade.InitalizeFilterCombo Me.cboMaterial, "ItemSKU"
End Sub
Private Sub Form_Open(Cancel As Integer)
faytMaterial.InitalizeFilterCombo Me.cboMaterial, "ItemSKU", AnywhereInString, True, False
End Sub
Private Sub cboMaterial_Enter()
10 On Error GoTo cboMaterial_Enter_Error
Dim strSQL As String
20 If Me.Dirty Then Me.Dirty = False
30 strSQL = "SELECT [tblMaterialsTable].[MaterialID], [tblMaterialsTable].[ItemSKU], [tblMaterialsTable].[ItemDespcription],[tblMaterialsTable].[ItemUnitPrice], [tblMaterialsTable].[MarkupTypeID] FROM [tblMaterialsTable WHERE [SupplierID] = '" & Nz(Me.cboSupplier, "") & "' Order BY [tblMaterialsTable].[ItemSKU]"
40 Me.cboMaterial.RowSource = strSQL
50 Me.cboMaterial.Requery
'Important cascade code
60 faytMaterial.RowSource = strSQL
70 Me.ItemSKU = Me.cboMaterial.Column(2)
80 Me.ItemDescription = Me.cboMaterial.Column(3)
90 Me.cboMarkupType = Me.txtMU
100 Me.ItemCost = Me.txtCost
110 Me.cboMaterial.Requery
120 On Error GoTo 0
130 Exit Sub
cboMaterial_Enter_Error:
140 MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cboMaterial_Enter, line " & Erl & "."
End Sub