rs.open

silvia
14 de Noviembre del 2004
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

German
14 de Noviembre del 2004
Te falto poner .text al parametro que le pasaste en la consulta.

rs.Source = " select * from tabla where clave = \' " & Text1.text & " \'"

SALUDOS!