ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Current Date Code in form (https://www.excelbanter.com/excel-discussion-misc-queries/243253-current-date-code-form.html)

tony
Current Date Code in form
 
I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

Pete_UK
Current Date Code in form
 
This will give you the current date:

=TODAY()

and if you want to force the format:

=TEXT(TODAY(),"mm/dd")

However, it wil change every time you open the file on a new day.

Hope this helps.

Pete

On Sep 21, 1:55*pm, Tony wrote:
I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

tony
Current Date Code in form
 
Pete, here is the resot of the code with your suggestion near the bottom
which returns a "compile error".

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAddress"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationCity"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationPostalCode"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationBN9Number"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAssignedCollectorName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationMORNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationFileNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationTradeName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndLastName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationStatuteType"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAmountOwing"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN2"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationExtraMVs"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndLastName"
Selection.ClearContents
LienRegistrationForm.Show
'ProcessDate = Now
ProcessDate = Text(TODAY(), "mm/dd")
Sheets("Menu").Select
End If
End Sub

"Pete_UK" wrote:

This will give you the current date:

=TODAY()

and if you want to force the format:

=TEXT(TODAY(),"mm/dd")

However, it wil change every time you open the file on a new day.

Hope this helps.

Pete

On Sep 21, 1:55 pm, Tony wrote:
I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

Jacob Skaria
Current Date Code in form
 
ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

GTReferee
Current Date Code in form
 
The date is not showing in the form. Also, after the form shows I get a
Runtime 424 error. Here is the code I am using with your suggestion:

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
LienRegistrationForm.Show
ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

--
GTReferee


"Jacob Skaria" wrote:

ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

Pete_UK
Current Date Code in form
 
Note Jacob's reply.

In VBA Format is equivalent to =TEXT, and Date is equivalent to =TODAY
() in worksheet formulae.

Pete

On Sep 21, 2:23*pm, Tony wrote:
Pete, here is the resot of the code with your suggestion near the bottom
which returns a "compile error".

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
* * Dim nResult As Long
* * resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
* * If resp = vbYes Then
* * Application.Goto Reference:="NFNRRegistrationBusinessName"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationAddress"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationCity"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationPostalCode"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationIndDOB"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationBN9Number"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationAssignedCollectorName"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationMORNumber"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationFileNumber"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationTradeName"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationIndName"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationIndInitial"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationIndLastName"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationStatuteType"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationAmountOwing"
* * Selection.ClearContents
* * *Application.Goto Reference:="NFNRMVYear1"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRMVMake1"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRMVModel1"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRMVVIN1"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRMVYear2"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRMVMake2"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRMVModel2"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRMVVIN2"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistrationExtraMVs"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistration2ndIndDOB"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistration2ndIndName"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistration2ndIndInitial"
* * Selection.ClearContents
* * Application.Goto Reference:="NFNRRegistration2ndIndLastName"
* * Selection.ClearContents
* * LienRegistrationForm.Show
* * 'ProcessDate = Now
* * ProcessDate = Text(TODAY(), "mm/dd")
* * Sheets("Menu").Select
* * End If
End Sub



"Pete_UK" wrote:
This will give you the current date:

=TODAY()

and if you want to force the format:

=TEXT(TODAY(),"mm/dd")

However, it wil change every time you open the file on a new day.

Hope this helps.

Pete

On Sep 21, 1:55 pm, Tony wrote:
I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.- Hide quoted text -

- Show quoted text -

Jacob Skaria
Current Date Code in form
 
'I hope processdate text box is on the form. If so
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")


OR use the form initialize event and assign the text box with date as below


Private Sub UserForm_Initialize()
ProcessDate.Text = Format(Date, "mm/dd")
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"GTReferee" wrote:

The date is not showing in the form. Also, after the form shows I get a
Runtime 424 error. Here is the code I am using with your suggestion:

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
LienRegistrationForm.Show
ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

--
GTReferee


"Jacob Skaria" wrote:

ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

tony
Current Date Code in form
 
How do I use TODAY() to get today's date to appear int he textbox?

"Jacob Skaria" wrote:

'I hope processdate text box is on the form. If so
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")


OR use the form initialize event and assign the text box with date as below


Private Sub UserForm_Initialize()
ProcessDate.Text = Format(Date, "mm/dd")
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"GTReferee" wrote:

The date is not showing in the form. Also, after the form shows I get a
Runtime 424 error. Here is the code I am using with your suggestion:

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
LienRegistrationForm.Show
ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

--
GTReferee


"Jacob Skaria" wrote:

ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

Jacob Skaria
Current Date Code in form
 
So you havent tried that right...In VBA Date returns current date..

TODAY() is a worksheet function and not a vBA


If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

How do I use TODAY() to get today's date to appear int he textbox?

"Jacob Skaria" wrote:

'I hope processdate text box is on the form. If so
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")


OR use the form initialize event and assign the text box with date as below


Private Sub UserForm_Initialize()
ProcessDate.Text = Format(Date, "mm/dd")
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"GTReferee" wrote:

The date is not showing in the form. Also, after the form shows I get a
Runtime 424 error. Here is the code I am using with your suggestion:

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
LienRegistrationForm.Show
ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

--
GTReferee


"Jacob Skaria" wrote:

ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

tony
Current Date Code in form
 
Tried it like this which doesn't show the current date on the form when it
opens.

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAddress"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationCity"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationPostalCode"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationBN9Number"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAssignedCollectorName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationMORNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationFileNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationTradeName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndLastName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationStatuteType"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAmountOwing"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN2"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationExtraMVs"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndLastName"
Selection.ClearContents
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

"Jacob Skaria" wrote:

So you havent tried that right...In VBA Date returns current date..

TODAY() is a worksheet function and not a vBA


If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

How do I use TODAY() to get today's date to appear int he textbox?

"Jacob Skaria" wrote:

'I hope processdate text box is on the form. If so
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")


OR use the form initialize event and assign the text box with date as below


Private Sub UserForm_Initialize()
ProcessDate.Text = Format(Date, "mm/dd")
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"GTReferee" wrote:

The date is not showing in the form. Also, after the form shows I get a
Runtime 424 error. Here is the code I am using with your suggestion:

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
LienRegistrationForm.Show
ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

--
GTReferee


"Jacob Skaria" wrote:

ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

tony
Current Date Code in form
 
Jacob, I am not sure why, but now it works. Didn't make any changes from the
code I just showed you but it works. Thanks so much for your patience.

Tony

"Tony" wrote:

Tried it like this which doesn't show the current date on the form when it
opens.

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAddress"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationCity"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationPostalCode"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationBN9Number"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAssignedCollectorName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationMORNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationFileNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationTradeName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndLastName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationStatuteType"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAmountOwing"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN2"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationExtraMVs"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndLastName"
Selection.ClearContents
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

"Jacob Skaria" wrote:

So you havent tried that right...In VBA Date returns current date..

TODAY() is a worksheet function and not a vBA


If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

How do I use TODAY() to get today's date to appear int he textbox?

"Jacob Skaria" wrote:

'I hope processdate text box is on the form. If so
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")


OR use the form initialize event and assign the text box with date as below


Private Sub UserForm_Initialize()
ProcessDate.Text = Format(Date, "mm/dd")
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"GTReferee" wrote:

The date is not showing in the form. Also, after the form shows I get a
Runtime 424 error. Here is the code I am using with your suggestion:

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
LienRegistrationForm.Show
ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

--
GTReferee


"Jacob Skaria" wrote:

ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.

Jacob Skaria
Current Date Code in form
 
Tony, Good to hear; it worked

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

Jacob, I am not sure why, but now it works. Didn't make any changes from the
code I just showed you but it works. Thanks so much for your patience.

Tony

"Tony" wrote:

Tried it like this which doesn't show the current date on the form when it
opens.

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAddress"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationCity"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationPostalCode"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationBN9Number"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAssignedCollectorName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationMORNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationFileNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationTradeName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndLastName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationStatuteType"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAmountOwing"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN2"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationExtraMVs"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndLastName"
Selection.ClearContents
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

"Jacob Skaria" wrote:

So you havent tried that right...In VBA Date returns current date..

TODAY() is a worksheet function and not a vBA


If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

How do I use TODAY() to get today's date to appear int he textbox?

"Jacob Skaria" wrote:

'I hope processdate text box is on the form. If so
LienRegistrationForm.Show
LienRegistrationForm.ProcessDate.Text = Format(Date, "mm/dd")


OR use the form initialize event and assign the text box with date as below


Private Sub UserForm_Initialize()
ProcessDate.Text = Format(Date, "mm/dd")
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"GTReferee" wrote:

The date is not showing in the form. Also, after the form shows I get a
Runtime 424 error. Here is the code I am using with your suggestion:

Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
LienRegistrationForm.Show
ProcessDate.Text = Format(Date, "mm/dd")
Sheets("Menu").Select
End If
End Sub

--
GTReferee


"Jacob Skaria" wrote:

ProcessDate.Text = Format(Date,"mm/dd")

If this post helps click Yes
---------------
Jacob Skaria


"Tony" wrote:

I want to have the current date to appear in a form formatted as mm/dd. The
textbox name is ProcessDate.


All times are GMT +1. The time now is 05:07 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com