Access - SQL

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim strSQL As String

Dim variable As Variant

' Establece el valor de la variable con el que deseas comparar los campos

variable = "valor"

' Crea la cadena SQL con la consulta para seleccionar los registros y campos deseados

strSQL = "SELECT Campo1, Campo2, Campo3 FROM NombreTabla WHERE Campo1 = '" & variable & "'"

' Establece la conexión con la base de datos

Set db = CurrentDb()

' Abre el recordset con la consulta

Set rs = db.OpenRecordset(strSQL)

' Verifica si se encontraron registros

If Not rs.EOF Then

    rs.MoveFirst ' Mueve el cursor al primer registro

    ' Recorre los registros y compara los valores de los campos con la variable

    Do Until rs.EOF

        ' Accede a los valores de los campos utilizando la sintaxis rs("nombre_campo")

        ' Ejemplo: valorCampo = rs("Campo1").Value

        ' Realiza la comparación con la variable

        If rs("Campo1").Value = variable Then

            ' Haz algo con el registro que cumple la condición

            ' Por ejemplo, muestra los valores de los campos en un mensaje

            MsgBox "Campo1: " & rs("Campo1").Value & vbCrLf & _

                   "Campo2: " & rs("Campo2").Value & vbCrLf & _

                   "Campo3: " & rs("Campo3").Value

        End If

        ' Avanza al siguiente registro

        rs.MoveNext

    Loop

End If

' Cierra el recordset y la conexión con la base de datos

rs.Close

Set rs = Nothing

Set db = Nothing