Automatically populate a date in a form

[gmazza76]

Good Morning,

I have been trying to find a way of automatically populating the date in a textbox in a form.

Is this possible as all i can find is a formula for excel =()Today and when i use this it doesnt work.

Many Thanks

 

[Andrew Poulsom]

Try eg:

TextBox1.Text = Date

 

[gmazza76]

Where would i put this.

ie in the code for the textbox as per below

Private Sub txtdate_Change()

End Sub

Cheers

 

[ayazgreat]

May be like this

Private Sub UserForm_Initialize()
Dim TODAY
TODAY = Format(Now, "mm/dd/yyyy")
Me.TextBox1.Value = TODAY
End Sub

 

[gmazza76]

Sorry about this but i am being really thick.

I have the following " Private Sub Userform_Initialize()" as follows.
Where would i be best putting this in the code

Private Sub Userform_Initialize()
 
    With CmbCSM
        .AddItem "Andrew Mellor"
        .AddItem "Ashley Longman"
        .AddItem "Christine Whitty"
    
    End With
      
    With cmbAdvocate
        .Enabled = False
    End With
           
    With ComboBox1
        .AddItem "Dual"
        .AddItem "Electric"
        .AddItem "Gas"
    End With
     
    With ComboBox2
        .AddItem "Yes"
        .AddItem "No"
    End With
       
    With ComboBox5
        .AddItem "Yes"
        .AddItem "No"
        .AddItem "N/A"
    End With
       
        
    With ComboBox3
       
        .AddItem "Billing (EC)"
        .AddItem "Change of Supplier-Acq (EC)"
        .AddItem "Change of Supplier-Other (EC)"
        .AddItem "Change of Supplier-Wthdwl (EC)"
        .AddItem "Debt (EC)"
        .AddItem "Homemove (EC)"
        .AddItem "Metering (EC)"
        .AddItem "Payment Issues (EC)"
        .AddItem "Policy (EC)"
    End With
    
End Sub

Cheers

 

[Andrew Poulsom]

You can put the line of code I posted wherever you like in the UserForm_Initialize event procedure.

 

[ayazgreat]

Here

Private Sub Userform_Initialize()
Dim today as Date
 
today = Format(Now, "mm/dd/yyyy")
Me.TextBox1.Value = today

    With CmbCSM
        .AddItem "Andrew Mellor"
        .AddItem "Ashley Longman"
        .AddItem "Christine Whitty"
    
    End With
      
    With cmbAdvocate
        .Enabled = False
    End With
           
    With ComboBox1
        .AddItem "Dual"
        .AddItem "Electric"
        .AddItem "Gas"
    End With
     
    With ComboBox2
        .AddItem "Yes"
        .AddItem "No"
    End With
       
    With ComboBox5
        .AddItem "Yes"
        .AddItem "No"
        .AddItem "N/A"
    End With
       
        
    With ComboBox3
       
        .AddItem "Billing (EC)"
        .AddItem "Change of Supplier-Acq (EC)"
        .AddItem "Change of Supplier-Other (EC)"
        .AddItem "Change of Supplier-Wthdwl (EC)"
        .AddItem "Debt (EC)"
        .AddItem "Homemove (EC)"
        .AddItem "Metering (EC)"
        .AddItem "Payment Issues (EC)"
        .AddItem "Policy (EC)"
    End With
    
End Sub

 

[gmazza76]

Many Thanks

That works brilliantly.
Is there anyway i can protect the textbox so it cannot be changed?

Cheers Again

 

[Andrew Poulsom]

You can set its Enabled property to False:

TextBox1.Enabled = False

 

[ayazgreat]

Try this

Private Sub Userform_Initialize()
Dim today as Date

today = Format(Now, "mm/dd/yyyy")
Me.TextBox1.Value = today
Me.TextBox1.Locked = True

    With CmbCSM
        .AddItem "Andrew Mellor"
        .AddItem "Ashley Longman"
        .AddItem "Christine Whitty"
    
    End With
      
    With cmbAdvocate
        .Enabled = False
    End With
           
    With ComboBox1
        .AddItem "Dual"
        .AddItem "Electric"
        .AddItem "Gas"
    End With
     
    With ComboBox2
        .AddItem "Yes"
        .AddItem "No"
    End With
       
    With ComboBox5
        .AddItem "Yes"
        .AddItem "No"
        .AddItem "N/A"
    End With
       
        
    With ComboBox3
       
        .AddItem "Billing (EC)"
        .AddItem "Change of Supplier-Acq (EC)"
        .AddItem "Change of Supplier-Other (EC)"
        .AddItem "Change of Supplier-Wthdwl (EC)"
        .AddItem "Debt (EC)"
        .AddItem "Homemove (EC)"
        .AddItem "Metering (EC)"
        .AddItem "Payment Issues (EC)"
        .AddItem "Policy (EC)"
    End With
    
End Sub