Reference Self

[cranebill]

I have a textbox named Completedate. I want to have a piece of code written so that it will enter todays date when double clicked. Thats the easy part. I can change it in the event on double click and do a:

Me.Completedate = Date()

ok now there are several hundred other textboxes i need to do the same thing with so i was wondering if there was a way to reference itself instead of typing Me.Whatever each time, and instead highlight all of them at once and write the code for all of them at once instead of each individual one?

Bill

 

[Rick39]

Try adding an "X" to Tag property of the controls you want the dates updated in, then add the following to a command button:

Dim currctl As Integer, numctls As Integer
Dim ctl As Control

numctls = Screen.ActiveForm.Count

For currctl = 0 To numctls - 1
Set ctl = Me(currctl)
' Check the status of Controls with the Validate Tag
If ctl.Tag = "X" Then
'Do something here
Exit Sub
Else go to 10
End If

10 Next currctl