** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Si imprime toma valor
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoSi imprime toma valor

 Responder Responder
Autor
Mensaje
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 635
Enlace directo a este mensaje Tema: Si imprime toma valor
    Enviado: 19/Mayo/2017 a las 10:50
Buenas.
Con el siguiente código cuando le doy a imprimir aparece el cuadro de dialogo para imprimir. Hasta aquí bien.
On Error GoTo botImprimir_Click_Error 
DoCmd.RunCommand acCmdPrint
botImprimir_Click_Error:
Err.Clear

lo que deseo es que en caso de pulsar "Aceptar" tome el siguiente valor:
Me.PED_NUMFACTURA = vAñoNumFacturaNueva, sino 0 (Cero)

¿Cómo podría hacer esto?
Gracias.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 4049
Enlace directo a este mensaje Enviado: 19/Mayo/2017 a las 14:34
Hola!

Podrías explicarte mejor?
Un Saludo.
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: México
Estado: Sin conexión
Puntos: 8884
Enlace directo a este mensaje Enviado: 19/Mayo/2017 a las 15:35
Has intentado con in IIF ? o con un IF ?
Sintaxis IF: 
If LaCondicion Then   
   Hago algo
Else
   Hago otra cosa
End If

Con el IIF:
Me.PED_NUMFACTURA = IIF(CondicionLógica,vAñoNumFacturaNueva,0)

< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">
OneDrive: https://1drv.ms/f/s!AhsRUsxKwte3gVJR2a-FgxJL8H6R
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 635
Enlace directo a este mensaje Enviado: 23/Mayo/2017 a las 10:13
Gracias.
Perdón, es que a veces cuesta explicar el problemas.
Con el siguiente código (donde aparece el cuadro de Imprimir al hacer clic), deseo que si pulso el botón "Aceptar", el campo PED_NUMFACTURA tome el valor de vAñoNumFacturaNueva, pero si pulso el botón "Cancelar, el campo PED_NUMFACTURA no tome dicho valor:

Private Sub botImprimir_Click()
On Error GoTo botImprimir_Click_Error
Me.PED_NUMFACTURA = vAñoNumFacturaNueva
DoCmd.RunCommand acCmdPrint
botImprimir_Click_Error: Me.PED_NUMFACTURA = 0
Err.Clear
End Sub

De momento (con el código anterior) al hacer clic PED_NUMFACTURA toma el valor de vAñoNumFacturaNueva, y si pulso "Cancelar" el campo PED_NUMFACTURA toma el valor 0 (cero), pero si pulso "Aceptar", hace lo mismo, PED_NUMFACTURA no me guarda el valor.

Perdón por si no me explico bien.

Arriba
OmniPresente Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Febrero/2009
Localización: España
Estado: Sin conexión
Puntos: 1830
Enlace directo a este mensaje Enviado: 23/Mayo/2017 a las 11:18
Entiendo que debe ser porque te falta algo:

Private Sub botImprimir_Click()
On Error GoTo botImprimir_Click_Error
Me.PED_NUMFACTURA = vAñoNumFacturaNueva
DoCmd.RunCommand acCmdPrint
Exit Sub
botImprimir_Click_Error: Me.PED_NUMFACTURA = 0
Err.Clear
End Sub

Si no lo sacas fuera, el programa sigue su curso hasta el End Sub y lo que tienes en botImprimir_Click_Error: te lo va a ejecutar siempre, le des a Aceptar o a Cancelar.

Saludos.
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 635
Enlace directo a este mensaje Enviado: 23/Mayo/2017 a las 11:41
Perfecto.
El caso es que el código "Exit Sub" lo tenía, pero estaba desactivado, pues creía que no haría falta.

Este hilo se puede cerrar satisfactoriamente.

Gracias a todos y un saludo.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable