Activar CHECKBOX para poder poner el año en curso
Hola a todos
Espero podáis ayudarme.
Se trata que al activar la casilla del checkbox, en las cajas de texto con el número el cual comienza el albarán, la factura, el presupuesto, etc... Le añada también los dos últimos dígitos del año.
Algo así:
ALB-0001/21
FAC-0001/21
PRE-0001/21
1 Respuesta
Respuesta de Eduardo Pérez Fernández
1
No se si entendí su pregunta:
Hago clic en la casilla de verificación y obtengo:
Si desactivo la casilla obtengo como muestra la primera imágen.
Código de la casilla de verificación
Private Sub cambiar_AfterUpdate() Dim strNro As String strNro = Right(Year(Date), 2) If Me.cambiar = True Then Me.ctlAlbaran = "ALB-0001/" & strNro Me.ctlFactura = "FAC-0001/" & strNro Me.ctlpresupuesto = "PRE-0001/" & strNro Else Me.ctlAlbaran = "" Me.ctlFactura = "" Me.ctlpresupuesto = "" End If End Sub
Supongo que para permitir la actualización debe existir un nivel de acceso de acuerdo con el usuario.
