--

I have a command button that enters Todays date, is it possible to add to
the code that If I click it again and their is a date in the text box it
will delete it then if I click it again and it is Blank it will enter
today's date
thanks for any help...............Bob

Private Sub Command440_Click()
tbBox9Date.value = Format(Now(), "dd-mmm-yy")

End Sub





..........Jenny Vance

Bob,

Try the following:

Private Sub Command440_Click()
If isnull(me.tbBox9Date) then
Me.tbBox9Date.value = Format(Date(), "dd-mmm-yy")
Else
Me.tbBox9Date=Null
End if
End Sub

You should also try to give appropriate names to your controls (trust me it
will get ugly if you don't) and don't forget to add some error handling.

Daniel







"Bob" wrote:

>
>
> --
>
> I have a command button that enters Todays date, is it possible to add to
> the code that If I click it again and their is a date in the text box it
> will delete it then if I click it again and it is Blank it will enter
> today's date
> thanks for any help...............Bob
>
> Private Sub Command440_Click()
> tbBox9Date.value = Format(Now(), "dd-mmm-yy")
>
> End Sub
>
>
>
>
>
> ..........Jenny Vance
>
>
>

Private Sub Command440_Click()
If Len(Me.tbBox9Date & vbNullString) > 0 Then
Me.tbBox9Date = Null
Else
Me.tbBox9Date = Format(Now(), "dd-mmm-yy")
End If
End Sub


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"Bob" <(E-Mail Removed)> wrote in message news:elno61$43p$(E-Mail Removed)...
>
>
> --
>
> I have a command button that enters Todays date, is it possible to add to
> the code that If I click it again and their is a date in the text box it
> will delete it then if I click it again and it is Blank it will enter
> today's date
> thanks for any help...............Bob
>
> Private Sub Command440_Click()
> tbBox9Date.value = Format(Now(), "dd-mmm-yy")
>
> End Sub
>
>
>
>
>
> .........Jenny Vance
>

Thanks Douglas worked Perfectly ............Bob

"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
news:(E-Mail Removed)...
> Private Sub Command440_Click()
> If Len(Me.tbBox9Date & vbNullString) > 0 Then
> Me.tbBox9Date = Null
> Else
> Me.tbBox9Date = Format(Now(), "dd-mmm-yy")
> End If
> End Sub
>
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no private e-mails, please)
>
>
> "Bob" <(E-Mail Removed)> wrote in message news:elno61$43p$(E-Mail Removed)...
>>
>>
>> --
>>
>> I have a command button that enters Todays date, is it possible to add to
>> the code that If I click it again and their is a date in the text box it
>> will delete it then if I click it again and it is Blank it will enter
>> today's date
>> thanks for any help...............Bob
>>
>> Private Sub Command440_Click()
>> tbBox9Date.value = Format(Now(), "dd-mmm-yy")
>>
>> End Sub
>>
>>
>>
>>
>>
>> .........Jenny Vance
>>
>
>