Text Box Date Query

[Bob]

--
If I have 2 text boxes on my form
[tbStartDate1] & [tbEndDate1]
If I create a Command button on that form,What code would I need to the
first day of the current month in tbStartdate1 and the last day of the
current Month in tbEndDate1
thanks for any Help......Bob

 

[JK]

Bob,


tbStartDate1=DateSerial(Year(Date),Month(Date),1)

tbEndDate1=IIf(month(date)=12,31, DateSerial(Year(Date),Month(Date)+1,1)-1)

Regards
Jacob

 

[JK]

Oops

tbEndDate1=IIf(Month(Date)=12,DateSerial(Year(Date),Month(Date),31),DateSerial(Year(Date),Month(Date)+1,1)-1)

Bob,


tbStartDate1=DateSerial(Year(Date),Month(Date),1)

tbEndDate1=IIf(month(date)=12,31,
DateSerial(Year(Date),Month(Date)+1,1)-1)

Regards
Jacob

--
If I have 2 text boxes on my form
[tbStartDate1] & [tbEndDate1]
If I create a Command button on that form,What code would I need to the
first day of the current month in tbStartdate1 and the last day of the
current Month in tbEndDate1
thanks for any Help......Bob

 

[John Vinson]

If I have 2 text boxes on my form
[tbStartDate1] & [tbEndDate1]
If I create a Command button on that form,What code would I need to the
first day of the current month in tbStartdate1 and the last day of the
current Month in tbEndDate1
thanks for any Help......Bob

Private Sub cmdFillDate_Click()
Me!tbStartDate1 = DateSerial(Year(Date()), Month(Date()), 1)
Me!tbEndDate1 = DateSerial(Year(Date()), Month(Date()) + 1, 0)
End Sub

Or you can simply set the DefaultValue property of each textbox to the
corresponding DateSerial expression.

John W. Vinson[MVP]

 

[John Vinson]

Oops

tbEndDate1=IIf(Month(Date)=12,DateSerial(Year(Date),Month(Date),31),DateSerial(Year(Date),Month(Date)+1,1)-1)

Not needed. DateSerial is quite clever enough to recognise that the
thirteenth month of this year is actually the first month of next
year, and that the zeroth of next month is the last day of this month.


John W. Vinson[MVP]

 

[JK]

Hi John,

Thanks for your feedback.

I fully agree. I had not realized it until I read your reply to Bob (and ran
some tests). Having "graduated" in the old DOS/Fortran/dBase days, I still
tend to eliminate possible errors, whether needed be or not.

This old dog can still learn a few new tricks.

Regards and a happy new year.
Jacob

 

[Bob]

John I thought the Default value was a great idea and tried it but I could
not get the text boxes to open with any date I entered this in the first
text box/default values ateSerial(Year(Date()), Month(Date()), 1)
Thanks bob

If I have 2 text boxes on my form
[tbStartDate1] & [tbEndDate1]
If I create a Command button on that form,What code would I need to the
first day of the current month in tbStartdate1 and the last day of the
current Month in tbEndDate1
thanks for any Help......Bob

Private Sub cmdFillDate_Click()
Me!tbStartDate1 = DateSerial(Year(Date()), Month(Date()), 1)
Me!tbEndDate1 = DateSerial(Year(Date()), Month(Date()) + 1, 0)
End Sub

Or you can simply set the DefaultValue property of each textbox to the
corresponding DateSerial expression.

John W. Vinson[MVP]

 

[Bob]

No matter went with the button and that worked fine thanks for all your
help..Bob

John I thought the Default value was a great idea and tried it but I could
not get the text boxes to open with any date I entered this in the first
text box/default values ateSerial(Year(Date()), Month(Date()), 1)
Thanks bob

If I have 2 text boxes on my form
[tbStartDate1] & [tbEndDate1]
If I create a Command button on that form,What code would I need to the
first day of the current month in tbStartdate1 and the last day of the
current Month in tbEndDate1
thanks for any Help......Bob

Private Sub cmdFillDate_Click()
Me!tbStartDate1 = DateSerial(Year(Date()), Month(Date()), 1)
Me!tbEndDate1 = DateSerial(Year(Date()), Month(Date()) + 1, 0)
End Sub

Or you can simply set the DefaultValue property of each textbox to the
corresponding DateSerial expression.

John W. Vinson[MVP]