Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.