If I had a Button what On Click code would I need to increase the date 1 day
The text box [tbStartDate1]
Thanks for any help.....Bob

Hi Bob,

Assumming you want to increase the date in the same text box where the date
appears:
____________

Sub cmdDatePush_click()

Me.tbStartDate1 = DateAdd("d", 1, Me.tbStartDate1)

End Sub
____________

You'll need to add an error handler, as per standard operating procedure...

Hope that helps,
CW

"Bob V" wrote:

>
>
> If I had a Button what On Click code would I need to increase the date 1 day
> The text box [tbStartDate1]
> Thanks for any help.....Bob
>
>
>

Hi Bob,

A simple Me.tbStartDate1 = Me.tbStartDate1 +1 will do

Regards
Jacob

"Bob V" <(E-Mail Removed)> wrote in message
news:Ot$(E-Mail Removed)...
|
|
| If I had a Button what On Click code would I need to increase the date 1
day
| The text box [tbStartDate1]
| Thanks for any help.....Bob
|
|

Thanks Jk havent heard from you for a while, Its my bet this year on the Mel
Cup , we go 1/2s
Bob
"JK" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi Bob,
>
> A simple Me.tbStartDate1 = Me.tbStartDate1 +1 will do
>
> Regards
> Jacob
>
> "Bob V" <(E-Mail Removed)> wrote in message
> news:Ot$(E-Mail Removed)...
> |
> |
> | If I had a Button what On Click code would I need to increase the date 1
> day
> | The text box [tbStartDate1]
> | Thanks for any help.....Bob
> |
> |
>
>

Oops Jacob your code did not work, Cheese Whiz did Thanks Cheese

"JK" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi Bob,
>
> A simple Me.tbStartDate1 = Me.tbStartDate1 +1 will do
>
> Regards
> Jacob
>
> "Bob V" <(E-Mail Removed)> wrote in message
> news:Ot$(E-Mail Removed)...
> |
> |
> | If I had a Button what On Click code would I need to increase the date 1
> day
> | The text box [tbStartDate1]
> | Thanks for any help.....Bob
> |
> |
>
>

You're on

"Bob V" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
| Thanks Jk havent heard from you for a while, Its my bet this year on the
Mel
| Cup , we go 1/2s
| Bob
| "JK" <(E-Mail Removed)> wrote in message
| news:(E-Mail Removed)...
| > Hi Bob,
| >
| > A simple Me.tbStartDate1 = Me.tbStartDate1 +1 will do
| >
| > Regards
| > Jacob
| >
| > "Bob V" <(E-Mail Removed)> wrote in message
| > news:Ot$(E-Mail Removed)...
| > |
| > |
| > | If I had a Button what On Click code would I need to increase the date
1
| > day
| > | The text box [tbStartDate1]
| > | Thanks for any help.....Bob
| > |
| > |
| >
| >
|
|

Cheese, I do have a problem with this, the date format should be 12-May-07
but when I use this control to change the date I am getting 12/5/2007, I
have tried this ,but not successful.............Thanks Bob

Me.tbDayNo = DateAdd("d", 1, Me.tbDayNo)
tbDayNo.value = Format("dd-mmm-yy")

"Cheese_whiz" <(E-Mail Removed)> wrote in message
news:A2F55951-0475-4644-B15C-(E-Mail Removed)...
> Hi Bob,
>
> Assumming you want to increase the date in the same text box where the
> date
> appears:
> ____________
>
> Sub cmdDatePush_click()
>
> Me.tbStartDate1 = DateAdd("d", 1, Me.tbStartDate1)
>
> End Sub
> ____________
>
> You'll need to add an error handler, as per standard operating
> procedure...
>
> Hope that helps,
> CW
>
> "Bob V" wrote:
>
>>
>>
>> If I had a Button what On Click code would I need to increase the date 1
>> day
>> The text box [tbStartDate1]
>> Thanks for any help.....Bob
>>
>>
>>

It does not make sense as in case of adding (or subtracting) days the two
are the same. Access keeps dates as Double type number whereby 31 Dec 1899=1
and today (15/07)=39,278. Fractions are part of a day, eg 0.5=12 hours etc

However, the important part is that you got it to work :-)

Regards
Jacob

"Bob V" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
| Oops Jacob your code did not work, Cheese Whiz did Thanks Cheese
|
| "JK" <(E-Mail Removed)> wrote in message
| news:(E-Mail Removed)...
| > Hi Bob,
| >
| > A simple Me.tbStartDate1 = Me.tbStartDate1 +1 will do
| >
| > Regards
| > Jacob
| >
| > "Bob V" <(E-Mail Removed)> wrote in message
| > news:Ot$(E-Mail Removed)...
| > |
| > |
| > | If I had a Button what On Click code would I need to increase the date
1
| > day
| > | The text box [tbStartDate1]
| > | Thanks for any help.....Bob
| > |
| > |
| >
| >
|
|

Bob,

The Format() function produces a *string* - Format(Date,"dd-mmm-yy") will
produce the string "15-May-07". To apply format to a date use:

Me.tbDayNo.Format="dd-mmm-yy"

Regards
Jacob


"Bob V" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
| Cheese, I do have a problem with this, the date format should be 12-May-07
| but when I use this control to change the date I am getting 12/5/2007, I
| have tried this ,but not successful.............Thanks Bob
|
| Me.tbDayNo = DateAdd("d", 1, Me.tbDayNo)
| tbDayNo.value = Format("dd-mmm-yy")
|
| "Cheese_whiz" <(E-Mail Removed)> wrote in message
| news:A2F55951-0475-4644-B15C-(E-Mail Removed)...
| > Hi Bob,
| >
| > Assumming you want to increase the date in the same text box where the
| > date
| > appears:
| > ____________
| >
| > Sub cmdDatePush_click()
| >
| > Me.tbStartDate1 = DateAdd("d", 1, Me.tbStartDate1)
| >
| > End Sub
| > ____________
| >
| > You'll need to add an error handler, as per standard operating
| > procedure...
| >
| > Hope that helps,
| > CW
| >
| > "Bob V" wrote:
| >
| >>
| >>
| >> If I had a Button what On Click code would I need to increase the date
1
| >> day
| >> The text box [tbStartDate1]
| >> Thanks for any help.....Bob
| >>
| >>
| >>
|
|

Me.tbDayNo = DateAdd("d", -1, Me.tbDayNo)

tbDayNo.value = Format([tbDayNo], "dd-mmm-yy")

Thanks Jacob fixed it with this code
But Can I have an error catch on it
If tbDayNo = "" -1 , Now
Meaning if tbDayNo is Blank -1 from Now Date
Does that make sense!
Regards Bob

"JK" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Bob,
>
> The Format() function produces a *string* - Format(Date,"dd-mmm-yy") will
> produce the string "15-May-07". To apply format to a date use:
>
> Me.tbDayNo.Format="dd-mmm-yy"
>
> Regards
> Jacob
>
>
> "Bob V" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
> | Cheese, I do have a problem with this, the date format should be
> 12-May-07
> | but when I use this control to change the date I am getting 12/5/2007, I
> | have tried this ,but not successful.............Thanks Bob
> |
> | Me.tbDayNo = DateAdd("d", 1, Me.tbDayNo)
> | tbDayNo.value = Format("dd-mmm-yy")
> |
> | "Cheese_whiz" <(E-Mail Removed)> wrote in message
> | news:A2F55951-0475-4644-B15C-(E-Mail Removed)...
> | > Hi Bob,
> | >
> | > Assumming you want to increase the date in the same text box where the
> | > date
> | > appears:
> | > ____________
> | >
> | > Sub cmdDatePush_click()
> | >
> | > Me.tbStartDate1 = DateAdd("d", 1, Me.tbStartDate1)
> | >
> | > End Sub
> | > ____________
> | >
> | > You'll need to add an error handler, as per standard operating
> | > procedure...
> | >
> | > Hope that helps,
> | > CW
> | >
> | > "Bob V" wrote:
> | >
> | >>
> | >>
> | >> If I had a Button what On Click code would I need to increase the
> date
> 1
> | >> day
> | >> The text box [tbStartDate1]
> | >> Thanks for any help.....Bob
> | >>
> | >>
> | >>
> |
> |
>
>