How to use a SQL SELECT statement with Access VBA

Question

I have a combobox whose value I want to use with a SQL WHERE clause  How do you run a SELECT statement inside VBA based on the combobox value

User · Answer

Access 2007 can lose the CurrentDb  see http   support microsoft com kb 167173  so in the event of getting  Object Invalid or no longer set  with the examples  use   Dim db as Database Dim rs As DAO Recordset Set db   CurrentDB Set rs   db OpenRecordset  SELECT   FROM myTable

User · Answer

If you wish to use the bound column value  you can simply refer to the combo   sSQL    SELECT   FROM MyTable WHERE ID      amp  Me MyCombo   You can also refer to the column property   sSQL    SELECT   FROM MyTable WHERE AText       amp  Me MyCombo Column 1   amp       Dim rs As DAO Recordset      Set rs   CurrentDB OpenRecordset sSQL   strText   rs AText strText   rs Fields 1    In a textbox     DlookUp  AText   MyTable   ID    amp  MyCombo     edited

User · Answer

Here is another way to use SQL SELECT statement in VBA    sSQL    SELECT Variable FROM GroupTable WHERE VariableCode       amp  Me comboBox  amp        Set rs   CurrentDb OpenRecordset sSQL   On Error GoTo resultsetError   dbValue   rs Variable  MsgBox dbValue  vbOKOnly   RS VALUE  resultsetError   MsgBox  Error Retrieving value from database  VbOkOnly  Database Error

[sql] How to use a SQL SELECT statement with Access VBA

Examples related to sql

Examples related to ms-access

Examples related to vba