Bloquear Menus

[spiderman78]

Iniciado por franko1809

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

Muchas gracias por la ayuda y el jemplo, ya lo adecue y ya logre bloquear mis menus dependiendo el usuario

saludos


ejemplo