error de compilacion
Publicado por marcelo (15 intervenciones) el 26/09/2008 14:28:51
amigos, arme una base basada en la neptuno, y no me la deja compilar por un error, el mensaje es NO SE HA DEFINIDO LA ETIQUETA, de codigo mucho no entiendo y quisiera saber si me pueden ayudar, copio abajo y muestro donde me marca el error a ver si alguien me puede dar una mano, desde ya gracias
Sub ImprimirFactura3_Click()
' Este código está creado por el Asistente para botones de comando.
On Error GoTo Err_ImprimirFactura3_Click *** EN ESTA LINEA MARCA EL ERROR***
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Dim cadNombreDocumento As String
cadNombreDocumento = "notascredito2"
' Informe Imprimir Factura, usa la consulta Fitro Facturas para imprimir la
' factura del pedido actual.
DoCmd.OpenReport cadNombreDocumento, acViewNormal, "Filtro notacredito"
Salir_ImprimirFactura3_Click:
Exit Sub
Err_ImprimirFactura_Click:
' Si el usuario cancela la acción, no mostrar un mensaje de error.
Const conErrDoCmdCancelado = 2501
If (Err = conErrDoCmdCancelado) Then
Resume Salir_ImprimirFactura3_Click
Else
MsgBox Err.Description
Resume Salir_ImprimirFactura3_Click
End If
End Sub
Sub ImprimirFactura3_Click()
' Este código está creado por el Asistente para botones de comando.
On Error GoTo Err_ImprimirFactura3_Click *** EN ESTA LINEA MARCA EL ERROR***
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Dim cadNombreDocumento As String
cadNombreDocumento = "notascredito2"
' Informe Imprimir Factura, usa la consulta Fitro Facturas para imprimir la
' factura del pedido actual.
DoCmd.OpenReport cadNombreDocumento, acViewNormal, "Filtro notacredito"
Salir_ImprimirFactura3_Click:
Exit Sub
Err_ImprimirFactura_Click:
' Si el usuario cancela la acción, no mostrar un mensaje de error.
Const conErrDoCmdCancelado = 2501
If (Err = conErrDoCmdCancelado) Then
Resume Salir_ImprimirFactura3_Click
Else
MsgBox Err.Description
Resume Salir_ImprimirFactura3_Click
End If
End Sub
Valora esta pregunta
0