Numero de la quincena para que salga automáticamente
Tengo este código con dos campos fecha1 y fecha2 en el cual pongo manualmente la fecha y me arroja
En el siguiente el nombre del día de esa fecha.
Ahora bien necesito si se le puede agregar a este código otro campo que seria
el numero de la quincena .
Ejemplo:
coloco me arroja que me arroje tambien
12/02/2015 jueves 1 (esto seria la primera quincena)
18/02/2015 miercoles 2 (esto seria la segunda quincena) solamente el numero (1) o (2)
desde ya tengo creado ya el campo en la tabla que se llama "quincena"
Private Sub Fecha1_AfterUpdate()
On Error GoTo Err_Fecha1_AfterUpdate
Me.Fecha2 = WeekdayName(Weekday(Fecha1, vbMonday), False, vbMonday)
Exit_Fecha1_AfterUpdate:
Exit Sub
Err_Fecha1_AfterUpdate:
MsgBox Err.Description
Resume Exit_Fecha1_AfterUpdate
End Sub
Por favor si me aclaran donde tendría que escribir el nuevo código o si sigo a continuación de este
1 Respuesta
Esto es lo que necesitas:
Private Sub Fecha1_AfterUpdate() On Error GoTo Err_Fecha1_AfterUpdate Me.Fecha2 = WeekdayName(Weekday(Fecha1, vbMonday), False, vbMonday) Me.Quincena=IIF(Day(Me.Fecha1)<=15,1,2) Exit_Fecha1_AfterUpdate: Exit Sub Err_Fecha1_AfterUpdate: MsgBox Err.Description Resume Exit_Fecha1_AfterUpdate End Sub
¡Gracias! ok funciona bien
Hola, disculpa tantas molestias pero en el código anterior me olvide de pedir a parte de la quincena el mes
Si podes ayudarme gracias
Perdón me olvide de aclarar el mes en letras
Usa la función MonthName con la función Month para sacar primero el número de mes de la fecha y luego el nombre. Es similar a lo que haces con el nombre del día.
Te podes fijar si así esta bien me da un error de argumento
rivate Sub Fecha1_AfterUpdate()
On Error GoTo Err_Fecha1_AfterUpdate
Me.Fecha2 = WeekdayName(Weekday(Fecha1, vbMonday), False, vbMonday)
Me.Mes = MonthName(Month(Fecha1, vbMonth), False, vbMonth)
Me.Quincena = IIf(Day(Me.Fecha1) <= 15, 1, 2)
Exit_Fecha1_AfterUpdate:
Exit Sub
Err_Fecha1_AfterUpdate:
MsgBox Err.Description
Resume Exit_Fecha1_AfterUpdate
End Sub
Es así:
Me.Mes = MonthName(Month(Me.Fecha1))
me salta que no es un valor especificado para este campo
Private Sub Fecha1_AfterUpdate()
On Error GoTo Err_Fecha1_AfterUpdate
Me.Fecha2 = WeekdayName(Weekday(Fecha1, vbMonday), False, vbMonday)
Me.Mes = MonthName(Month(Me.Fecha1))
Me.Quincena = IIf(Day(Me.Fecha1) <= 15, 1, 2)
Exit_Fecha1_AfterUpdate:
Exit Sub
Err_Fecha1_AfterUpdate:
MsgBox Err.Description
Resume Exit_Fecha1_AfterUpdate
End Sub
¿En dónde te da el error?.
La expresión es correcta. Lo único que se me ocurre es que Mes no sea un cuadro de texto, sino un cuadro combinado o de lista, y tenga limitados los valores.
