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.
|