pass listbox value to query (1 Viewer)

[megatronixs]

Hi all,

I just got stuck with the following. I have a listbox where I have some values. I want to use the value of the first listbox to pass this to a query. I have the below code:

Private Sub List28_GotFocus()
' Limit the subject emails in the list box
Me.List28.RowSource = "SELECT [Subject] " & "FROM tbl_eMail_Archive " & " WHERE [FolderName] " & "Me.List23.Value"
' Refresh the list box
Me.List28.Requery
End Sub

any ideas why it is not working?

Greetings.

 

[pr2-eugin]

Your concatenation is a bit off.. Try

Private Sub List28_GotFocus()
    [COLOR=Green]'Limit the subject emails in the list box[/COLOR]
    Me.List28.RowSource = "SELECT [Subject] FROM tbl_eMail_Archive WHERE [FolderName] = '" & Me.List23 & "'"
    
   [COLOR=Green] 'Refresh the list box[/COLOR]
    Me.List28.Requery
End Sub

 

[megatronixs]

Hi,

Big thanks. It is working now

Greetings