Maneo de la Sentencia "On Error Go To"
Publicado por David Jonathan (23 intervenciones) el 28/10/2008 21:33:00
Amigos, primeramente les saludo a todos!!
que tal como siguen? h3e aqui un problemita algo peculiar, jeje no se si esque no entiendo muy bien la sentencia "On error Go to ..." o no se pero mi problema es que escribo el codigo referente a la consulta de una BD. si los datos insertados son erroneos se ejecuta un msgbox que me da informacion de que no he introducido los datos correctamente, PERO aunque introduzca correctamente los datos, Siempre se me ejecuta el error y me tira el msgbox, impidiendome continuar. plz ayudenme a analizarlo no se si es que no es la sintaxis correcta, pero les adjunto el codigo para que me den sus opiniones! Bienvenida cual sea =D.
On Error GoTo ErrordelInput
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "GPSSPSGPS.mdb" 'Motor de conexion
Screen.MousePointer = vbHourglass
cn.Execute "DELETE FROM ReportadosRecord" 'Borramos todos los datos de la tabla existente y...
cn.Execute (ssql) 'los reemplazamos con record.
Screen.MousePointer = vbDefault
cn.Close
ErrordelInput:
MsgBox "Porfavor, introduzca correctamente los datos de las fechas, ya que ha producido un error.", vbCritical
MsgBox "Acuerdese que cada quince dias se realiza backup a la Base de Datos, por lo que talvez no encuentre los datos que desea antes de las fechas 15 y últimos de cada mes.", vbInformation
MsgBox "Porfavor regrese a la pantalla de inicio y presione nuevamente sobre el boton 'Control Vehicula'", vbInformation
Exit Sub
todo esto va dentro de un boton osea dentro del objeto cmdSPS que se ejecuta al ser presionado. plz ayudenme!!!
Muchas gracias chavos por tomarse el tiempo de haber leido esto xD..!
que tal como siguen? h3e aqui un problemita algo peculiar, jeje no se si esque no entiendo muy bien la sentencia "On error Go to ..." o no se pero mi problema es que escribo el codigo referente a la consulta de una BD. si los datos insertados son erroneos se ejecuta un msgbox que me da informacion de que no he introducido los datos correctamente, PERO aunque introduzca correctamente los datos, Siempre se me ejecuta el error y me tira el msgbox, impidiendome continuar. plz ayudenme a analizarlo no se si es que no es la sintaxis correcta, pero les adjunto el codigo para que me den sus opiniones! Bienvenida cual sea =D.
On Error GoTo ErrordelInput
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "GPSSPSGPS.mdb" 'Motor de conexion
Screen.MousePointer = vbHourglass
cn.Execute "DELETE FROM ReportadosRecord" 'Borramos todos los datos de la tabla existente y...
cn.Execute (ssql) 'los reemplazamos con record.
Screen.MousePointer = vbDefault
cn.Close
ErrordelInput:
MsgBox "Porfavor, introduzca correctamente los datos de las fechas, ya que ha producido un error.", vbCritical
MsgBox "Acuerdese que cada quince dias se realiza backup a la Base de Datos, por lo que talvez no encuentre los datos que desea antes de las fechas 15 y últimos de cada mes.", vbInformation
MsgBox "Porfavor regrese a la pantalla de inicio y presione nuevamente sobre el boton 'Control Vehicula'", vbInformation
Exit Sub
todo esto va dentro de un boton osea dentro del objeto cmdSPS que se ejecuta al ser presionado. plz ayudenme!!!
Muchas gracias chavos por tomarse el tiempo de haber leido esto xD..!
Valora esta pregunta


0