Excel - Verificar existencia de valores

Hola!

Tengo una macro que ingresa datos desde un formulario de excel a una bd en access, no se como puedo hacerle para que verifique si por ejemplo el numero de id de un cliente existe y emita un mensaje de alerta. Pueden darme una mano?

Gracias!!

Saludos!!

Hola Nelson.

Primero tienes que hacer una consulta a la BD pasandole el ID del cliente.

Si la consulta es positiva, mandas un mensaje de advertencia y te sales, sino, ejecutas la subrutina para la carga de datos en la BD.

Espero te dea de utilidad

Ricardo
Caracas. Venezuela

Hola!

No he logrado emitir el mensaje de advertencia en excel, tengo problemas con el código. Esto es muy parecido a lo que yo haría en java pero no funciona en el excel, aunque permita la sintaxis.

Dim cs As String
Dim sPath As String
Dim sql As String
Dim cn As ADODB.Connection

sPath = ThisWorkbook.Path & "\Facturación.accdb"
cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

Set cn = New ADODB.Connection
cn.Open cs

sql = "select (1) from usuarios where id_usuario = '" & idCliente.Text & "'"

cn.Execute sql

If cn.Next Then
verificacion = True
Else
verificacion = False
End If

cn.Close
Set cn = Nothing

Cuando la variable publica "verificación" sea true, un bloque de código de confirmación aparte debería emitir el mensaje, no lo hace por que?

Gracias!!

Saludos

Hola Nelson

Lo que te falta es esta parte del código



Eso es todo

Espero te se de Utilidad

Ricardo
Caracas. Venezuela

Hola!

Lamentablemente no funciona, el error que se me presenta es el siguiente:
Se ha producido el error ‘3001’ en tiempo de ejecución;
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
Se presenta cuando llega a la parte del condicional cn.Next, existe otra forma de validar si el id del ciente esta presente en base de datos?

Gracias!!

Saludos!!

Buenos días Nelson

Creo que el error es que el valor cn.next no es un valor lógico, El contenido puede ser cualquier otra cosa pero no Verdadero o Falso

La instruccion debe ser



Si no te funciona:
,
Tienes que poner un punto de interrupción al inicio de la subrutina (en el borde izquierdo del códico pulsas clic y te sale un punto rojo.

a continuación pulsas en la barra de tareas Ejecutar (un truangulo amarillo orientado a la derecha) y vas pulsando F8 y verificas lo que pasa en cada instrucción eecutada hasta llegar al error..

Prueba y me cuentas

Ricardo
Caracas. Venezuela

Gracias por tu ayuda, pero sigue presentando el mismo error en la linea que me sugieres.