Cómo usar una instrucción SQL SELECT con Access VBA

Question

Tengo un cuadro combinado cuyo valor quiero usar con una cláusula SQL WHERE. ¿Cómo se ejecuta una instrucción SELECT dentro de VBA según el valor del cuadro combinado?

Answer 1

Si desea utilizar el valor de columna enlazada, sólo tiene que hacer referencia a la combinación de:

sSQL = "SELECT * FROM MyTable WHERE ID = " & Me.MyCombo 

También puede hacer referencia a la propiedad de la columna:

sSQL = "SELECT * FROM MyTable WHERE AText = '" & Me.MyCombo.Column(1) & "'" 

Dim rs As DAO Recordset 
Set rs = CurrentDB.OpenRecordset(sSQL) 

strText = rs!AText 
strText = rs.Fields(1) 

En un cuadro de texto:

= DlookUp("AText","MyTable","ID=" & MyCombo) 

Answer 2

Aquí es otra manera de utilizar SQL SELECT comunicado en VBA:

sSQL = "SELECT Variable FROM GroupTable WHERE VariableCode = '" & Me.comboBox & "'" 
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" 

Answer 3

Access 2007 puede perder la CurrentDb: http://support.microsoft.com/kb/167173 ver, por lo que en caso de conseguir "objeto no válido o ya no establecido" con los ejemplos, el uso:

Dim db as Database 
Dim rs As DAO.Recordset 
Set db = CurrentDB 
Set rs = db.OpenRecordset("SELECT * FROM myTable")