rs.open
este es el codigo que me genera error en rs.open <no coinciden los datos en la expresion de criterio>
Private Sub Text1_LostFocus()
If Text1.Text = "" Then
Exit Sub
End If
rs.Source = " select * from tabla where clave = \' " & Text1 & " \'"
MsgBox "clave"
rs.Open
If rs.EOF = True And rs.BOF = True Then
rs.Close
MsgBox "no existe clave , es alta"
rs.AddNew
Else
Text2 = rs.Fields("campo1")
Text3 = rs.Fields("campo2")
End If
Private Sub Text1_LostFocus()
If Text1.Text = "" Then
Exit Sub
End If
rs.Source = " select * from tabla where clave = \' " & Text1 & " \'"
MsgBox "clave"
rs.Open
If rs.EOF = True And rs.BOF = True Then
rs.Close
MsgBox "no existe clave , es alta"
rs.AddNew
Else
Text2 = rs.Fields("campo1")
Text3 = rs.Fields("campo2")
End If