Ayuda para completar macro para validar si datos ya existen en la base de datos de Access
publicado
Hola grupo recurro a ustedes para la ayuda para completar un Macro
Tengo este macro que me valida desde Excel si un dato ya existe en la base de datos de ACCESS.
Set Rs = New ADODB.Recordset
Sql = "SELECT Count(*) FROM a_revisiones WHERE [cedula]='" & .Range("J2") & "'"
Rs.Open Sql, Cnn, 3, 3, adCmdText
Datos = Rs.GetRows
If Datos(0, 0) > 0 Then
MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "Sistema"
Else
Nombre de base de datos en Access "a_revisiones", campos "cedula, nombre y estado"
Me funciona bien cuando solo solo requiero ingresar un registro igual en cedula, cuando debo registrar más datos me sale el mensaje "El registro ya existe en la base de datos!!!". Pero requiero que me permita ingresar nuevos registros cuando el estado de la cedula esta en "archivo".
Espero de la ayuda de usted, saludos
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola grupo recurro a ustedes para la ayuda para completar un Macro
Tengo este macro que me valida desde Excel si un dato ya existe en la base de datos de ACCESS.
Set Rs = New ADODB.Recordset Sql = "SELECT Count(*) FROM a_revisiones WHERE [cedula]='" & .Range("J2") & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Datos = Rs.GetRows If Datos(0, 0) > 0 Then MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "Sistema" Else
Nombre de base de datos en Access "a_revisiones", campos "cedula, nombre y estado"
Me funciona bien cuando solo solo requiero ingresar un registro igual en cedula, cuando debo registrar más datos me sale el mensaje "El registro ya existe en la base de datos!!!". Pero requiero que me permita ingresar nuevos registros cuando el estado de la cedula esta en "archivo".
Espero de la ayuda de usted, saludos