Con un ejemplo
Suponiendo que tienes 3 opciones en tu menu mnuCompras,mnuVentas,mnuConsultas
Tienes tu tabla usuario
Las opciones del menu se bloquean dependiendo de los permisos de cada usuario
Código:
Dim bd As ADODB.Connection
Dim rg_usuarios As ADODB.Recordset
Private Sub Form_Load()
Set bd = New ADODB.Connection
Set rg_usuarios = New ADODB.Recordset
bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SEGURIDAD.mdb;Persist Security Info=False"
rg_usuarios.Open "select*from usuarios", bd, adOpenStatic, adLockOptimistic
End Sub
Private Sub Command1_Click()
With rg_usuarios
.MoveFirst
.Find "clave = '" & Text2 & "'"
If .EOF = False Then
frmMenu.Caption = !usuario
frmMenu.mnuCompras.Enabled = !compras
frmMenu.mnuVentas.Enabled = !ventas
frmMenu.mnuConsultas.Enabled = !consultas
frmMenu.Show
Else
MsgBox "Error", , "Datos incorrectos"
End If
End With
End Sub