Problemas con un recordset
Necesito lo siguiente:
Cuando el nombre de mi cliente que esta en el campo CLIENTE de mi formulario activo llamado form1, se encuentre en una consulta llamada GARANTÍA me muestre un mensaje "Registro encontrado" y en caso contrario me muestre un mensaje "No se ha encontrado ningún registro" cada vez que presiono un botón (Boton1) de mi formulario form1.
El código en Visual Basic contenido en el botón (Boton1) de mi formulario form1 esta a continuación. Pero al presionarlo me aparece el siguiente mensaje de error "Se ha producido el error '3070' en tiempo de ejecución. El motor de la base de datos Microsoft Jet no reconoce 'Falso como un nombre de campo o expresión válidos.
Mi código el el siguiente
Private Sub Boton1_click()
Dim dbgs As DAO.Database
Dim rsgs As DAO.Recordset
Dim sqlgs As String
Set dbgs = CurrentDB
sqlgs = "GARANTIA"
set rsgs = dbgs.OpenRecordset(sqlgs, dbOpenDynaset)
rsgs.FindFirst CLIENTE = rsgs!CLIENTE
If rsgs.NoMatch Then
MsgBox "No se ha encontrdo ningun registro"
Else
MsgBox "Registro encontrado"
End If
End Sub
Notas:
1. Sqlgs es una consulta llamada GARANTÍA,
2. CLIENTE Es un campo en el formulario activo que es donde esta el Boton1
3. Rsgs! CLIENTE es el campo CLIENTE del RecordSet que proviene de la consulta GARANTÍA
Cuando el nombre de mi cliente que esta en el campo CLIENTE de mi formulario activo llamado form1, se encuentre en una consulta llamada GARANTÍA me muestre un mensaje "Registro encontrado" y en caso contrario me muestre un mensaje "No se ha encontrado ningún registro" cada vez que presiono un botón (Boton1) de mi formulario form1.
El código en Visual Basic contenido en el botón (Boton1) de mi formulario form1 esta a continuación. Pero al presionarlo me aparece el siguiente mensaje de error "Se ha producido el error '3070' en tiempo de ejecución. El motor de la base de datos Microsoft Jet no reconoce 'Falso como un nombre de campo o expresión válidos.
Mi código el el siguiente
Private Sub Boton1_click()
Dim dbgs As DAO.Database
Dim rsgs As DAO.Recordset
Dim sqlgs As String
Set dbgs = CurrentDB
sqlgs = "GARANTIA"
set rsgs = dbgs.OpenRecordset(sqlgs, dbOpenDynaset)
rsgs.FindFirst CLIENTE = rsgs!CLIENTE
If rsgs.NoMatch Then
MsgBox "No se ha encontrdo ningun registro"
Else
MsgBox "Registro encontrado"
End If
End Sub
Notas:
1. Sqlgs es una consulta llamada GARANTÍA,
2. CLIENTE Es un campo en el formulario activo que es donde esta el Boton1
3. Rsgs! CLIENTE es el campo CLIENTE del RecordSet que proviene de la consulta GARANTÍA
1 respuesta
Respuesta de areal76
1