Access - Control error sentencias SQL

Hola a todos,
Queria saber si alguien sabe como controlar los errores que se pueden producir al ejecutar una sentencia SQL.
Ej.
dNumeroPpto = 1
sCliente = "Prueba"

sSql = "INSERT INTO PRESUPUESTOS_VENTAS ( "
sSql = sSql & " NUM_PRESUPUESTO,CLIENTE) "
sSql = sSql & " VALUES("
sSql = sSql & NumSQL(dNumeroPpto) & ","
sSql = sSql & CadSQL(sCliente) ")"

CurrentDb.Execute sSql

Al ejecutar esta sentencia, me añadiría el registro a la tabla PRESUPUESTOS_VENTAS, lo que necesito es que si esa sentencia produjera algun error, como p.e. que ese numero de presupuesto ya existiera en la tabla (lo que provocaria error de "Registro duplicado"), que me devolviera un error.
Le estoy metiendo un On Error goto ErrorSQL pero no me sale por esa excepcion.

Alguna idea?

Muchas gracias ante todo

Hola!

Hay errores que se producen porque el código es erróneo (entendido esto en sentido amplio), y eso provoca que salte un error llamémosle "tipificado", que se reconoce porque te indica el número de error y su descripción.

Estos errores son los que pueden capturarse y gestionarse a través de un control de errores.

Hay otros errores que se generan no por el código (porque el código no tiene ningún error), sino por el propio Access. Estos errores no te indican ningún número de error. Estos errores no son interceptables por el código porque, como te decía, el código es totalmente correcto.

En tu caso, el código con la SQL es perfecto: se ejecuta y listos. El problema viene en el proceso posterior, cuando la aplicación (Access) se encuentra con que las propiedades del campo no permiten valores duplicados, como es tu caso.

Yo todavía no he encontrado la manera de "manipular" estos errores de aplicación.

En estos casos lo que suelo hacer, dado que conozco la naturaleza del error, es crear un código de control dentro del código que te haga un chequeo previo de las condiciones: si se cumplen ejecutas la SQL; si no se cumplen no la ejecutas.

Es decir, por ejemplo en tu caso lo que podríamos hacer sería lo siguiente:

....
Sub...
Dim elPpto as variant
dNumeroPpto = 1
sCliente = "Prueba"
'Defino la SQL como tu la tienes definida (no la copio aquí)
'Compruebo si ya existe el presupuesto. Si no existe elPpto devuelve un NULL
elPpto=dlookup("NUM_PRESUPUESTO","PRESUPUESTOS VENTAS", "NUM_PRESUPUESTO=" & dNumeroPpto)
If isnull(elPpto) then
CurrentDb.Execute sSql
Else
msgbox "El prespuesto ya existe",vbExclamation,"AVISO"
End if
End Sub
....

Y listos.

Salvo que alguien conozca otra manera de hacerlo (y agradecería que nos lo comente ) esto es lo que yo haría.

Saludos,


http://neckkito.siliconproject.com.ar

Estimado

Te comento la mecanica que utilizo.

1.- La BD de DAO tiene una propiedad RecordsAffected, esta propiedad refleja los registros modificados en la ultima sentencia de Execute. Si utilizas Currentdb para ejecurar el SQL y otra para evaluar la variable RecordsAffected siempre te va a dar cero y eso sucede porque se crea una copia de la BD cada vez que se invoca Currentdb.

2.- Para sortear el problema del punto 1 debes de utilizar una variable estática "La función de abajo lo hace".

Algo como esto

dbLocal.execute "Update tbDummy X = 0"


if dbLocal.RecordsAffected = 0 then
Aquí haces algo con el error, por ejemplo volver a ejecutarlo o cancelar todo el proceso.
endif

*** NOTA *** Si no existen registros que cumplan la condición te regresará 0 , por lo que solo deberás de utilizarla donde sepas que hay registros que resultarán afectados.



3.- Por ultimo para automatizar el proceso, puedes hacer una función para ejecute una sentencia SQL "con el execute" y que evalué el resultado y si trae registros entonces será verdadero y podrás continuar, en caso contrario lo vuelves a intentar.


Bien, espero que le entiendas "Porque yo no le entendí, jajajaja".


Saludos!

deneg_nhj
Visita mi blog www.sgh.com.mx/blog






Está función la puedes encontrar en la web no recuerdo de quien es pero yo la baje si no mal recuerdo de la pagina de Allen Browne.

Muchas gracias a los dos.
He probado y encontré algo parecido a la respuesta de deneg, pero mas sencillo .

Os indico lo que hago:
Defino una variable mas
dim lNum as long

(codigo sql )

CurrentDb.Execute sSql, lnum

if lnum < 0 then
msgbox "error"
else
seguir
end if

Neckkito, espero que tambien te pueda servir.

saludos,

Lo siento, pero algo me falla, voy a seguir probando

Hola, Francisco:

He estado "toqueteando" un poco el tema en base a lo que comentabas como solución y, gracias a eso, he comprobado que puedes adelantarte al error de Access "forzando" la devolución de un error con su número y descripción a través del Execute.

Te pongo aquí como podría quedar el código con el error número 3022 (cuando el dato que intentamos insertar ya existe y no se admiten valores duplicados).

...
Sub...
on error goto sol_err
dNumeroPpto = 1
sCliente = "Prueba"

sSql = "INSERT INTO PRESUPUESTOS_VENTAS ( "
sSql = sSql & " NUM_PRESUPUESTO,CLIENTE) "
sSql = sSql & " VALUES("
sSql = sSql & NumSQL(dNumeroPpto) & ","
sSql = sSql & CadSQL(sCliente) ")"

CurrentDb.Execute sSql, dbFailOnError
Exit sub
sol_err:
If Err.Number = 3022 Then
MsgBox "La inserción crearía valores duplicados. No se ejecutará la consulta"
Else
MsgBox "Se ha producido el error: " & Err.Number & " - " & Err.Description
End If
End Sub
...

Con el Else del control de errores podrías comprobar si se devuelven otros errores. Si "pillas" sus números de error podrías ir gestionándolos a través del propio control de errores. En ese caso lo que creo que iría mejor sería utilizar la estructura
...
Select case err.number
Case 3022
'Acciones
Case xxxx 'Otro número de error que quieras gestionar
'Acciones
Case yyyy
'Acciones
Case Else
MsgBox "Se ha producido el error: " & Err.Number & " - " & Err.Description
End select
...

A ver si así te sirve.

Saludos,

Neckkito

Gracias!!
Trasteando tambien encontré el dbFailOnError, ahora solo tengo que intentar identificar los errores importantes.

Muchas gracias!!!