M
Murray
I have an appliciation that is driving me mad. It should be so simple. I have
a combo Box which gets its data from a Query, which all works fine. Based on
the results in the combo Box a List box should fill with data from the same
query.
Unforunately the system does not work, the Combo box has the correct data
but the list box stays empty.
Partsof the code I am using is as follows :
Option Explicit
Private Const StrSQL1 = "SELECT Name, Date, Source FROM QryNotArchived WHERE
source = '"
Private Sub FillList()
strSQL = StrSQL1 & Me!Combo15.Value
Me!LstBox.RowSource = strSQL
Me!LstBox.Requery
If Me!LstBox.ListCount = 0 Then
Me!lblLIst.Caption = "None"
End If
End Sub
Any Help would be extremely appreciated
Thanks
Murray
a combo Box which gets its data from a Query, which all works fine. Based on
the results in the combo Box a List box should fill with data from the same
query.
Unforunately the system does not work, the Combo box has the correct data
but the list box stays empty.
Partsof the code I am using is as follows :
Option Explicit
Private Const StrSQL1 = "SELECT Name, Date, Source FROM QryNotArchived WHERE
source = '"
Private Sub FillList()
strSQL = StrSQL1 & Me!Combo15.Value
Me!LstBox.RowSource = strSQL
Me!LstBox.Requery
If Me!LstBox.ListCount = 0 Then
Me!lblLIst.Caption = "None"
End If
End Sub
Any Help would be extremely appreciated
Thanks
Murray