Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.
and this in a private sub:
Private Sub Form_Current() DisableControls End Sub
Private Sub DisableControls() On Error GoTo Err_DisableControls If DLookup("[SecurityLevel]", "LOCALtblCurrentUser") > 2 Then Dim ctl As Control For Each ctl In Me.Controls Select Case ctl.ControlType Case acComboBox If ctl.Name <> "cboFindRecord" Or ctl.Name <> "cboPartN" Then ctl.Locked = True Case acCommandButton If ctl.Name <> "cmdMainMenu" Or ctl.Name <> "cmdGridView" Then ctl.Locked = True Case acTextBox If ctl.Name <> "txtCompanyID" Then ctl.Locked = True End Select Next End If Exit_DisableControls: Exit Sub Err_DisableControls: MsgBox "Error Number: " & Err.Number & vbCrLf & "Error Description: " & Err.Description & vbCrLf & "Error Source: " & Err.Source Resume Exit_DisableControls End Sub But when the form opens I get an error... Error #438. Object doesn't support this property or method.
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.