Macro revisar si datos existen en ACCESS

publicado el 14 de julio4 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 julio4 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 julio4 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.

publicado el 16 de julio4 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 julio4 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 julio4 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 julio4 años

Autor

Muchas gracias

funciono.

Archivado

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

Ir al listado de temas

190 Archivos
99 Comentarios
29 Revisiones
Última descarga

Gráficos de aranceles con colores difusos
- 1

Anidar Formulas Con Diferentes Intervalos

¡Hola!
Te comparto tres soluciones Excel 365

Buscar en intervalos horas - Excel 365_GP.xlsx

Por Gerson Pineda, · publicado hace 5 horas 5 hr
Anidar Formulas Con Diferentes Intervalos

Funciona excelente mil gracias

Por jues, · publicado hace 6 horas 6 hr
Anidar Formulas Con Diferentes Intervalos

prueba con el adjunto
3en1 (ayudaExcel).xlsx

Por Héctor Miguel, · publicado hace 7 horas 7 hr
Anidar Formulas Con Diferentes Intervalos

Saludos Sr. @Héctor Miguel agradecido por sus comentarios.
Un poco de contexto, el resultado, que pretendo obtener en la Celda "E11" dependiendo de las horas introducidas en en la Celda "D11" me permite obtener los descansos obligatorios por Ley para periodos de tiempo determinados de alli que estoy tomando los cuatro casos más comunes, por tal motivo la Celda "D11" solo podrá adquirir valores comprendidos entre las 0 Horas y las 28 Horas mientas que la Celda "E11" exclusivamente podrá reflejar como resultado cuatro valores 0, 1, 2 y 3, ya que siendo un requisito legal no existe la posibilidad de obtener otro resultado si los valores de la Celda "D11" están comprendidos entre 0 Horas y 28 Horas, para acotar más el resultado y no dejar intervalos abiertos modifique la última fórmula:
=SI(Y($D8>=21;$D8<29);3;0)
Adjunto nuevamente el archivo con las correcciones mencionadas así como con los resultados esperados conforme me solicitó.
Libro1_110914.xlsx

Por jues, · publicado hace 9 horas 9 hr
Anidar Formulas Con Diferentes Intervalos

en la muestra de tu adjunto se cumplen las 3 condiciones en los datos superiores (PERO...)
te falto indicar el resultado (correcto, a mano) que esperas (segun ingreses en [D11]) en el resumen inferior (en la celda [E11]) ?
y algun ejemplo donde NO se cumplan las 3 condiciones (en los datos superiores)

Por Héctor Miguel, · publicado hace 20 horas 20 hr

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

Gráficos de aranceles con colores difusos

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

Cambios en el Control Horario

Un juego del Rabino en Excel

Agenda Calendario Lunar 2025

Estadísticas de descargas

Mensajes

Anidar Formulas Con Diferentes Intervalos

Anidar Formulas Con Diferentes Intervalos

Anidar Formulas Con Diferentes Intervalos

Anidar Formulas Con Diferentes Intervalos

Anidar Formulas Con Diferentes Intervalos

Visualizado recientemente 0

Account

Navigation

Buscar