We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function fntDisableControls(strFormName As String) 'If the claim is closed, lock the controls so changes cannot be made Dim frmName As Form frmName.Name = strFormName '''frmName.CmdScans.SetFocus Dim ctl As Control For Each ctl In frmName.Controls With ctl Select Case .ControlType Case acTextBox, acListBox, acComboBox .Locked = True .BackColor = 15461355 Case acCheckBox .Enabled = False .Locked = True End Select End With Next ctl 'Me.SubFrmGLdata.Enabled = False frmName.LblLocked.Visible = True frmName.CmdUnlock.Visible = True End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Expression in Access Query Field not showing null results||11||43|
|Sharepoint list to Access database||9||48|
|How do a DCount on a report||1||17|
|MS Access VBA For Each Field Designation||3||18|