Then any Control that has LockMe as a Tag will be locked.<\/p>\n
You want to put it in a Module and call it in the After_Update of the control but you should also consider a way to unlock in case corrections have to be made.<\/p>\n
2. Use it to validate that data has been entered in a specified field…<\/p>\n
\r\nPublic Function frmValidateData() As Boolean\r\nOn Error GoTo ErrHandler\r\n\r\n\u00a0\u00a0\u00a0 Dim ctl As Control\r\n\u00a0\u00a0\u00a0 Dim blnValid As Boolean\r\n\u00a0\u00a0\u00a0 Dim frm As Form\r\n\r\n\u00a0\u00a0\u00a0 Set frm = Screen.ActiveForm\r\n\u00a0\r\n\u00a0 blnValid = True\r\n\u00a0\r\n\u00a0 For Each ctl In frm.Controls 'Only use if no subform involved\r\n\u00a0\u00a0\u00a0 If ctl.Tag <> "" Then\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 If ctl.Enabled Then\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If InStr(1, ctl.Tag, "require") Then\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 If Nz(ctl, "") = "" Then\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 blnValid = False\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MsgBox (ctl.Name & " cannot be empty.")\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ctl.SetFocus\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GoTo Complete\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End If\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 End If\r\n\u00a0\u00a0\u00a0 End If\r\n\u00a0 Next ctl\r\n\u00a0\r\nComplete:\r\n\u00a0 Set ctl = Nothing\r\n\u00a0 frmValidateData = blnValid\r\n\u00a0 Exit Function\r\n\r\nErrHandler:\r\n\u00a0 blnValid = False\r\n\u00a0 MsgBox ("Error validating: " & Err.Description)\r\n\u00a0 Resume Complete\r\nEnd Function\r\n<\/pre>\n![\"Tag\"](\"http:\/\/regina-whipp.com\/blog\/wp-content\/uploads\/2013\/03\/Tag.png\")
<\/p>\n
3. Use it to Lock a Field after it’s been edited…<\/p>\n
Posted by\u00a0Ken Sheridan in the Microsoft Answers Forum<\/a> in this thread Lock Field after Edit?<\/a>
\nA variation on Gina’s solution would be to put the following in the form’s Current event procedure:<\/p>\n\r\nDim ctl As Control\r\n\r\nFor Each ctl In Me.Controls\r\n If ctl.Tag = "LockMe" then\r\n ctl.Locked = Not Me.NewRecord\r\n End If\r\nNext ctl\r\n<\/pre>\nWhen you navigate to an empty new record the tagged controls will be unlocked so data can be entered, but when you navigate to a previously entered record they’ll be locked.\u00a0 If you did want to add an ‘Enable Edits’<\/i> button to the form so that existing records can be edited the code for the button’s Click event procedure would be:<\/p>\n\r\nDim ctl As Control\r\n\r\nFor Each ctl In Me.Controls\r\n If ctl.Tag = "LockMe" then\r\n ctl.Locked = False\r\n End If\r\nNext ctl\r\n<\/pre>\n4. Use it to Call a Module…<\/p>\n
Posted by Doug Steele<\/a> in the Microsoft Answers Forum<\/a> in this thread Use Tag Property of Control to Call Module<\/a><\/p>\nOne approach would be do create a function in the form’s module along the lines of:<\/p>\n
\r\nFunction HandleClickEvent()\r\n\r\n Select Case ActiveControl.Tag\r\n Case "DoThis"\r\n Call MyModule\r\n Call "Do That"\r\n Call\u00a0MyOtherModule\r\n Case Else\r\n ' Do nothing\r\n End Select\r\n\r\nEnd Function\r\n<\/pre>\nNow, you can set the On Click property of each of the 4 buttons to =HandleClickEvent()<\/strong>, rather than [Event Procedure]<\/strong>. Note that for this to work, it must be a function (not a sub), and you must include the equal sign and parentheses.<\/p>\n5.\u00a0 Use it to Lock (and color) specific fields on a Continuous Form.\u00a0 In this case I only wanted to Lock the ones that had data in them.\u00a0 So first, under Conditional Formatting…<\/p>\n
![\"ConditionalFormatting\"](\"http:\/\/regina-whipp.com\/blog\/wp-content\/uploads\/2013\/03\/ConditionalFormatting.png\")
<\/p>\n
I prefer to use Cream to indicate the field is Locked but you can select any color\u00a0OR any other formatting style you like.\u00a0 Then add *LockMe<\/strong>* (no asterisks) to the the Tag Property in the Controls Property\u00a0window.\u00a0 And finally,\u00a0add the below to the On_Current event of my Continuous Form…<\/p>\n\r\nFor Each ctl In Me.Controls\r\n If ctl.Tag = "LockMe" And ctl.Value <> "" Then\r\n ctl.Locked = True\r\n End If\r\nNext ctl\r\n<\/pre>\nAll Done!\u00a0 Now, only the Controls that have data (and any other formatting you have applied) will be Locked which will also apply once data is entered into them.\u00a0\u00a0Immediately apply Undo and your User can *Unlock<\/strong>* the record…\u00a0 This is a biggie, so you might want to make a way for your User to either Undo or Edit the record should they decide at a later date to do so!<\/p>\n<\/div>\n