Buscar registros repetidos
Publicado por Lobo (29 intervenciones) el 24/02/2005 02:45:54
Tengo una base de datos en acces con ADO y necesito que el registro(número) del campo Còdigo no se repita, pero tengo un error en la instrucción, que es la siguiente:
Private Sub txtCodigo_ Keypress(KeyAscii As Integer)
Set rst = new ADODB.recordset
rstOpen " SELECT * FROM Generales WHERE Código = " & txtCodigo" _
" ' " , cnn
if KeyAscii = vbKeyReturn Then
if rst.EOF = False Then
MsgBox " Este registro ya existe"
End if
End if
Al Momento que ingreso cualquier registro en el campo código me marca error 13 en tiempo de ejecución ¿ Que estoy haciendo mal?
Por favor Auxilienme . Gracias de antemano
Private Sub txtCodigo_ Keypress(KeyAscii As Integer)
Set rst = new ADODB.recordset
rstOpen " SELECT * FROM Generales WHERE Código = " & txtCodigo" _
" ' " , cnn
if KeyAscii = vbKeyReturn Then
if rst.EOF = False Then
MsgBox " Este registro ya existe"
End if
End if
Al Momento que ingreso cualquier registro en el campo código me marca error 13 en tiempo de ejecución ¿ Que estoy haciendo mal?
Por favor Auxilienme . Gracias de antemano
Valora esta pregunta


0