NewfieSarah
Registered User.
- Local time
- Today, 19:33
- Joined
- Feb 11, 2005
- Messages
- 193
Ok here it is, I have been using MS access 2000, and I have code to find a record by what is placed in my text box and then display in my list box, however. I need to have more then one field display in my listbox and I need to have the ability to double click on a list selection, and display that single record on a modify form??? Anyone have any ideas, If you do then please send me a private message, It would be very helpful, thanks...
CODE:
Dim strSQL As String
strSQL = "SELECT DISTINCT [Computer Name], [Computer Id],[Inventory Number],[Emp Number],[Computer Type],[Service Tag],[Driver],[Hard Drive Capacity],[System Date],[System Time],[Cache],[Cpu Speed],[Fax/Modem],[Graphics Cards],[I/O Ports],[Monitors],[Optical Devices], [Control devices],[Operating System],[RAM],[Sound Card],[System Bus],[Comments] FROM Computer"
strSQ = strSQL & " WHERE [Computer Name] Like '" & Replace(Me!txtComputerName, "'", "''") & "*'"
strSQL = strSQL & " ORDER BY 1"
Me!lstResult.RowSource = strSQL
CODE:
Dim strSQL As String
strSQL = "SELECT DISTINCT [Computer Name], [Computer Id],[Inventory Number],[Emp Number],[Computer Type],[Service Tag],[Driver],[Hard Drive Capacity],[System Date],[System Time],[Cache],[Cpu Speed],[Fax/Modem],[Graphics Cards],[I/O Ports],[Monitors],[Optical Devices], [Control devices],[Operating System],[RAM],[Sound Card],[System Bus],[Comments] FROM Computer"
strSQ = strSQL & " WHERE [Computer Name] Like '" & Replace(Me!txtComputerName, "'", "''") & "*'"
strSQL = strSQL & " ORDER BY 1"
Me!lstResult.RowSource = strSQL
