Display RESULTS of Query into LISTBOX?

[taimysho0]

Hello i have a form where a user enters a channelid into a textbox and then clicks a button. once the button is clicked, a query is ran where it looks at what channelid the user typed and displays a table based on that criteria.



how do i get the table to be displayed into the listbox instead of having the table pop up? thanks!

pic is attached

[Toyman]

Hello i have a form where a user enters a channelid into a textbox and then clicks a button. once the button is clicked, a query is ran where it looks at what channelid the user typed and displays a table based on that criteria.

how do i get the table to be displayed into the listbox instead of having the table pop up? thanks!

pic is attached

Create a list box in the form. In the same button where the query is run, do the following

Dim sSQL as string
sSQL = "Select bla bla bla..." 'your sql for the query

Me.YourListBox.Rowsource=sSQL 'assign the sql statement as the rowsource to the list box

[taimysho0]

hello, thanks so much for the help. the only thing is, it only returns ONE column from the table. how do i get it to show ALL the columns i need (i need about 6 columns to show); as well as displaying the headers? thanks

[taimysho0]

by the way, the column it is returning is just the channel id column (basically whatever ID the user typed into the textbox)

pic attached

here is my code:

Private Sub btngo_Click()
Dim sSQL As String
sSQL = ("SELECT tblHHFRequest_tais.[Channel ID], tblHHFRequest_tais.[Date Requested], tblHHFRequest_tais.City, tblHHFRequest_tais.[Due Date], tblHHFRequest_tais.[LAN ID], tblHHFRequest_tais.[HHF Status], tblHHFRequest_tais.Notes, tblHHFRequest_tais.[Field Order #], tblHHFRequest_tais.Supervisor, tblHHFRequest_tais.[Crew Lead] FROM tblHHFRequest_tais WHERE (((tblHHFRequest_tais.[Channel ID])=[Forms]![frmChannelIDSearch]![txtChannelID].[value]));")
'your sql for the query
'assign the sql statement as the rowsource to the list box

Dim stDocName As String

stDocName = "qryChannelIDSearch"

If Me.txtChannelID.Value = "" Then
MsgBox ("ERROR:Invalid Channel ID!")
Else
Me.lstChannelID.RowSource = sSQL

End If


End Sub

[GrandMasterSexay]

try this

Private Sub btngo_Click()
Dim sSQL As String
sSQL = ("SELECT tblHHFRequest_tais.[Channel ID], tblHHFRequest_tais.[Date Requested], tblHHFRequest_tais.City, tblHHFRequest_tais.[Due Date], tblHHFRequest_tais.[LAN ID], tblHHFRequest_tais.[HHF Status], tblHHFRequest_tais.Notes, tblHHFRequest_tais.[Field Order #], tblHHFRequest_tais.Supervisor, tblHHFRequest_tais.[Crew Lead] FROM tblHHFRequest_tais WHERE (((tblHHFRequest_tais.[Channel ID])=[Forms]![frmChannelIDSearch]![txtChannelID].[value]));")
'your sql for the query
'assign the sql statement as the rowsource to the list box

Dim stDocName As String

stDocName = "qryChannelIDSearch"

If Me.txtChannelID.Value = "" Then
MsgBox ("ERROR:Invalid Channel ID!")
Else
Me.lstChannelID.RowSource = sSQL
Me.lstChannelID.ColumnCount = 6
End If


End Sub

[taimysho0]

nevermind, i was able to get it. the only thing is im not able to EDIT the fields? i need the user to be able to edit the fields. WIll a listbox not work?

if it does not, i created a subform just in case, but would you know how to tie this to the button click so that it displays all the rows and columns in the subform based on the channel ID textbox input?

[Toyman]

nevermind, i was able to get it. the only thing is im not able to EDIT the fields? i need the user to be able to edit the fields. WIll a listbox not work?

if it does not, i created a subform just in case, but would you know how to tie this to the button click so that it displays all the rows and columns in the subform based on the channel ID textbox input?

No, you cannot edit records directly in a list box. You can create a edit form and from a click, have the edit form open where the user can edit the info. Upon saving the record, update the sql in the list box to display the current record