Macro revisar si datos existen en ACCESS

publicado el 14 de julio5 años

Hola a todos

Tengo el siguiente macro que crea los datos de Excel a ACCESS. Ocupo de la ayuda de ustedes para que el macro crear revise primero si existe la cédula en el campo "Num Id" si existe debe alertar y no crear la fila. sino existe debe crear todos los datos.

https://mega.nz/file/hQIwHaSJ#2rkHUCQHiKFAvsUAbkm4MCHuVUrkdEMhBafuyABgYEk

Muchas gracias por toda la ayuda

publicado el 15 de julio5 años

Hola

Como consejo, deshabilita lo innecesario del evento Open del libro cuando envíes tu archivo para consultas. Sé que a muchos les gusta sentir que Excel es un sistema propio, pero al ponerle esas cosas solo demoran más la ayuda que pueden recibir.

Yendo al punto, una solución es hacer un Select de la tabla y el campo ID basado en lo que tienes en la celda correspondiente, algo así:

 sql = "Select [Num Id] From pem Where [Num Id] =" & Worksheets("Registro").Range("C9").Value

Si existe, el RecordSet tendrá al menos un registro, por ende si tiene cero (0) no existe. OJO, no uses Execute para ese caso, necesariamente usa Open, ya que el primero método no tiene propiedad RecordCount.

If rs.RecordCount = 0 Then

O si quieres saber si sí encontró registros, pues:

If rst.RecordCount >= 1 Then

Saludos.

publicado el 16 de julio5 años

Autor

Buenas tardes

Gracias por el consejo así lo aplicare para casos futuros.

Este el código que tengo para crear el registro de Excel a ACCESS y funciona bien para crear el registro.

Sub crear()

Application.ScreenUpdating = False
If Trim([C9]) = "" Then
   MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta"
   Exit Sub
End If
If Trim([E9]) = "" Then
   MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta"
   Exit Sub
End If
If Trim([C11]) = "" Then
   MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta"
   Exit Sub
End If
Set Rs = New ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open Conexion
    Sql = "INSERT INTO pen ([Num Id], Nombre, Riesgo, [Monto Caso], Moroso, [Nun_Patrono], [Nom_Patrono]) "
    Sql = Sql & "VALUES ('" & Worksheets("Registro").Range("C9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("C11").Value & "', " & _
                        "'" & Worksheets("Registro").Range("E9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("G9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("G11").Value & "', " & _
                        "'" & Worksheets("Registro").Range("C13").Value & "', " & _
                        "'" & Worksheets("Registro").Range("E13").Value & "' )"
cn.Execute (Sql)
cn.Close
Set cn = Nothing
    MsgBox "Datos actualizados con Exito!!!", vbInformation, "SACI"
    A_ingesarDatos = True

End Sub

En que lugar puedo agregar las lineas recomendadas para que valide si existen los datos antes de que los cree.

Saludos cordiales.

Editado el el 16 de julio5 años por marcosab

publicado el 16 de julio5 años

Como ya dije, usas Execute, debes usar el método Open (que sí usas en otra de tus macros) con Execute no funciona pues dicho método no tiene la propiedad RecordCount. Como vi que usas el método Open en otra macro, asumí que sabías a qué me refería. Es el qué usas en tu macro "consultar". A ver, algo así, ojo que lo estoy haciendo de memoria, no copies/pegues que, además de ser una mala costumbre, no hace que aprendas. Lo más importante es que entiendas la lógica de lo que te voy a enviar, verás que no es tan complicado si ya te metiste al mundo del ADO como haces en tu archivo. Obvio modifica de ser necesario.

Set Cnn = New ADODB.Connection

With Cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb"
    .Open
End With

Set Rs = New ADODB.Recordset

Sql = "Select [Num Id] From pen Where [Num Id] =" & Worksheets("Registro").Range("C9").Value

With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open Sql, Cnn, , , adCmdText
End With

If Rs.RecordCount >= 1 Then
    MsgBox "Ya existe el ID, modifique"
    Exit Sub
End If
    
Sql = "INSERT INTO pen ([Num Id], Nombre, Riesgo, [Monto Caso], Moroso, [Nun_Patrono], [Nom_Patrono]) "
    Sql = Sql & "VALUES ('" & Worksheets("Registro").Range("C9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("C11").Value & "', " & _
                        "'" & Worksheets("Registro").Range("E9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("G9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("G11").Value & "', " & _
                        "'" & Worksheets("Registro").Range("C13").Value & "', " & _
                        "'" & Worksheets("Registro").Range("E13").Value & "' )"

With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open Sql, Cnn, , , adCmdText
End With

publicado el 16 de julio5 años

Autor

Gracias por la ayuda.

Seguramente algo tengo que estar haciendo mal.

Lo puse de la siguiente forma y me da error con depurador al parecer es en esta parte del código " .Open Sql, Cnn, , , adCmdText"

Sub crear()

Application.ScreenUpdating = False
If Trim([C9]) = "" Then
   MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta"
   Exit Sub
End If
If Trim([E9]) = "" Then
   MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta"
   Exit Sub
End If
If Trim([C11]) = "" Then
   MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta"
   Exit Sub

End If



Set Cnn = New ADODB.Connection

With Cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb"
    .Open
End With

Set Rs = New ADODB.Recordset

Sql = "Select [Num Id] From pen Where [Num Id] =" & Worksheets("Registro").Range("C9").Value

With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open Sql, Cnn, , , adCmdText
End With

If Rs.RecordCount >= 1 Then
    MsgBox "Ya existe el ID, modifique"
    Exit Sub
End If
    
Sql = "INSERT INTO pen ([Num Id], Nombre, Riesgo, [Monto Caso], Moroso, [Nun_Patrono], [Nom_Patrono]) "
    Sql = Sql & "VALUES ('" & Worksheets("Registro").Range("C9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("C11").Value & "', " & _
                        "'" & Worksheets("Registro").Range("E9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("G9").Value & "', " & _
                        "'" & Worksheets("Registro").Range("G11").Value & "', " & _
                        "'" & Worksheets("Registro").Range("C13").Value & "', " & _
                        "'" & Worksheets("Registro").Range("E13").Value & "' )"

With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open Sql, Cnn, , , adCmdText
End With

    MsgBox "Datos actualizados con Exito!!!", vbInformation, "SACI"
    A_ingesarDatos = True



End Sub

Saludos

publicado el 16 de julio5 años

Así funciona:

Sub Crear()

Application.ScreenUpdating = False
If Trim([C9]) = "" Then
   MsgBox "*** Cédula en blanco ***", vbCritical, "Alerta"
   Exit Sub
End If
If Trim([E9]) = "" Then
   MsgBox "*** Riesgo en blanco ***", vbCritical, "Alerta"
   Exit Sub
End If
If Trim([C11]) = "" Then
   MsgBox "*** Nombre en blanco ***", vbCritical, "Alerta"
   Exit Sub

End If

Set Cnn = New ADODB.Connection
With Cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\01.Adeudos.accdb"
    .Open
End With

With Sheets("Registro")
   Set Rs = New ADODB.Recordset
   Sql = "SELECT Count(*) FROM pen WHERE [Num Id]='" & .Range("C9") & "'"
   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, "SACI"
   Else
      Sql = "INSERT INTO pen ([Num Id], Nombre, Riesgo, [Monto Caso], Moroso, [Nun_Patrono], [Nom_Patrono]) "
      Sql = Sql & "VALUES ('" & .Range("C9") & "', " & _
                          "'" & .Range("C11") & "', " & _
                          "'" & .Range("E9") & "', " & _
                          "'" & .Range("G9") & "', " & _
                          "'" & .Range("G11") & "', " & _
                          "'" & .Range("C13") & "', " & _
                          "'" & .Range("E13") & "' )"
      MsgBox "Datos actualizados con Exito!!!", vbInformation, "SACI"
      A_ingesarDatos = True
   End If
End With

Cnn.Execute (Sql)
Cnn.Close
Set Cnn = Nothing

End Sub

publicado el 16 de julio5 años

Autor

Muchas gracias

funciono.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

193 Archivos
99 Comentarios
30 Revisiones
Última descarga

Agenda Calendario Vintage
- 2

Fechas Móviles

Hola,
Sería interesante que explicaras con detalle qué es lo que falla de tu archivo, por qué, y qué es lo que buscas obtener.
Hasta la columna W todo parece entendible, pero habría que ver cómo los datos X:Y introducidos a voluntad (supongo), afectan al comportamiento (o no) de los siguientes cálculos. Igual que las columnas AB:AC, qué resultados pretenden plasmar.
Saludos,

Por Victor7, · publicado hace 1 hora 1 hr
Fechas Móviles

Saludos amigos espero estén bien
Nuevamente acudo a ustedes para que me ayuden con lo siguiente inconveniente, con la ayuda de este tutorial https://youtu.be/LFCT9xU4alc?si=gVeIDHcKwCUmO0sM configure el archivo adjunto para obtener los resultados requeridos coincidentemente dos de las fechas que necesito cumplen con los parámetros utilizado en el tutorial es decir el tercer viernes de un mes, sin embargo cuando intento determinar otra fecha con el mismo metodo no me arroja resultados congruentes ejemplo el cuarto lunes de octubre o el segundo martes de febrero y así sucesivamente
Mucho les sabre agradecer la ayuda que me puedan brindar

Feriados Moviles.xlsx

Por jues, · publicado hace 18 horas 18 hr
Sumatoria en función de un año y con conversión de valores

Hola a ambos,
Por si te interesa un total detallado por cada divisa, te adjunto archivo con los detalles...
Saludos,

Sumar Tipo de cambio (G).xlsx

Por Victor7, · publicado el 4 de octubre4 oct
Sumatoria en función de un año y con conversión de valores

Muchas gracias John por tu respuesta, me sirvió de gran ayuda!.

Saludos

Por Matías86, · publicado el 1 de octubre1 oct
Sumatoria en función de un año y con conversión de valores

¡Saludos, @Matías86 !
Prueba en F4 con la siguiente fórmula:
=SUMA((0&C2:C199)*BUSCARV(B2:B199;E10:H11;COINCIDIRX(AÑO(C1);E9:H9);)*(AÑO(A2:A199)=AÑO(C1)))
¡Bendiciones!

Por John Jairo V, · publicado el 1 de octubre1 oct

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Macro revisar si datos existen en ACCESS

Featured Replies

Archivado

Archivos

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Estadísticas de descargas

Mensajes

Fechas Móviles

Fechas Móviles

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)