Change Calender Start date

  • Thread starter Thread starter Bob V
  • Start date Start date
B

Bob V

I want to add this to my code
If [ckb7] = -1
Me!tbDateFrom = DateSerial(Year(Date), Month(Date) - 1, 7)
Is this possible?.....Thanks for any Help............Bob

Private Sub Form_Open(Cancel As Integer)

Select Case Me.OpenArgs

Case "OwnerStatement"

Me.Caption = "Owner Statement"

tbDateFrom.value = Format("01-" & Month(Now) & "-" & Year(Now),
"dd-mmm-yyyy")
tbDateTo.value = Format(Now, "dd-mmm-yyyy")
 
Hi Bob
|
| I want to add this to my code
| If [ckb7] = -1
| Me!tbDateFrom = DateSerial(Year(Date), Month(Date) - 1, 7)
| Is this possible?.....Thanks for any Help............Bob
|
| Private Sub Form_Open(Cancel As Integer)
|
| Select Case Me.OpenArgs
|
| Case "OwnerStatement"
|
| Me.Caption = "Owner Statement"
|
| tbDateFrom.value = Format("01-" & Month(Now) & "-" & Year(Now),
| "dd-mmm-yyyy")

This sould be Format(DateSerial(Year(Date), Month(Date), 1))


| tbDateTo.value = Format(Now, "dd-mmm-yyyy")
|
|
|
 
Thanks JK
tbDateFrom.value = Format(DateSerial(Year(Date), Month(Date) - 1, 7),
"dd-mmm-yyyy")
......Regards Bob
 
Back
Top