Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
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.
|How to save an Unbound Text Box to a field on the Table in its After Update event.||6||57|
|Add a field from main report with a field from subreport||5||44|
|Database (Access Table) Security Access||8||50|
|Multiple tables for a tabbed form||2||21|
Join the community of 500,000 technology professionals and ask your questions.