mirad esto y decidme por favor
Publicado por manolo (3 intervenciones) el 04/10/2004 12:12:20
mirad este codigo:
Private Sub Command4_Click()
Dim criterio As String
criterio = \"campo1=\'\" & valor.Text& \"\'
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox \"No encontrado\", vbInformation, \"Data\"
End If
End Sub
la instruccion criterio no la admite, por favor a quien se le ocurre como hacerlo.
He probado con algunas modificaciones q agregan mas comillas y cosas asi y no lo reconoce, da error.
Private Sub Command4_Click()
Dim criterio As String
criterio = \"campo1=\'\" & valor.Text& \"\'
Data1.Recordset.FindFirst criterio
If Data1.Recordset.NoMatch Then
MsgBox \"No encontrado\", vbInformation, \"Data\"
End If
End Sub
la instruccion criterio no la admite, por favor a quien se le ocurre como hacerlo.
He probado con algunas modificaciones q agregan mas comillas y cosas asi y no lo reconoce, da error.
Valora esta pregunta
0