Comment utiliser une instruction SQL SELECT avec Access VBA

J'ai un combobox dont la valeur que je veux utiliser avec une clause SQL where. Comment avez-vous exécuter une instruction SELECT à l'intérieur de VBA basé sur la zone de liste déroulante valeur?

source d'informationauteur Nag Hammadi

  1. 22

    Si vous souhaitez utiliser la valeur de colonne de limite, vous pouvez tout simplement se référer à la liste déroulante:

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

    Vous pouvez aussi vous référer à la colonne de la propriété:

    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)

    Dans une zone de texte:

    = DlookUp("AText","MyTable","ID=" & MyCombo)
  2. 6

    Access 2007 peut perdre le CurrentDb: voir http://support.microsoft.com/kb/167173donc dans le cas de l'obtention de "Objet incorrect ou n'est plus ensemble" avec les exemples, utilisation:

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

    Ici est une autre façon d'utiliser SQL SELECT déclaration 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"