M
mattc66 via AccessMonster.com
I have a drop down list that when I click on an item in the list it doesn't
add it to my form. The only way to add an item in the DropDownList is to
manually type it in to the box.
Does anyone have any suggestions as to why this doesn't work. I do have a
MouseDown Event See below: This is just to set the Drop Downlist RowSource.
Private Sub Item_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim stFilter As String
Dim stCoNum As String
stCoNum = Forms![frmQuotes].Form.COMPANY
If stCoNum = "C1" Then
stFilter = "qryLookUpItem_C1"
ElseIf stCoNum = "C2" Then
stFilter = "qryLookUpItem_C2"
End If
Me.Item.RowSource = stFilter
End Sub
add it to my form. The only way to add an item in the DropDownList is to
manually type it in to the box.
Does anyone have any suggestions as to why this doesn't work. I do have a
MouseDown Event See below: This is just to set the Drop Downlist RowSource.
Private Sub Item_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Dim stFilter As String
Dim stCoNum As String
stCoNum = Forms![frmQuotes].Form.COMPANY
If stCoNum = "C1" Then
stFilter = "qryLookUpItem_C1"
ElseIf stCoNum = "C2" Then
stFilter = "qryLookUpItem_C2"
End If
Me.Item.RowSource = stFilter
End Sub