Controle personalizado acesso de usuarios (Maestro_v5).

Bom dia!!
Preciso de uma grande ajuda de vocês do forum.
Eu baixei o aplicativo Maestro_v5 do Professor Avelino Sampaio.
Eu tentei adaptá-lo ao meu projeto parcialmente deu certo, mas não consigo usá-lo em um sub form, tentei atribuir a função: Call fncPermissões(Me).
Utilizei no form principal: Me!NOMEDOMEU SUBFORM.enabled = Nz(fncBloquear(idFun, login.id, mtExcluir), False) ,entre outros, funcionou mas não consigo visualizar os registros que estão abaixo, gostaria que fica-se igual ao Form Principal. E realizei muitas outras tentativas. E como usar os Forms: frmPermissõesUsuários e frmUsuários fora da Ribbon em um form?

Obs: Sou inciante no ACCESS .

Petrick

Coloque somente no formulário principal, se não tem acessa ao form principal,
não terá no seu subform, certo?
Para abrir qualquer formulário, terá que ter um botão de comando que o abra.

[ ]'s

Oi Noobezinho
Que rápido sua ajuda...
Então, meus Subs Forms estão acoplados ao form Principal não estão sendo abertos através de botões.
Mesmo com o form principal sendo bloqueado os Subs não ficam.

A função fncPermissões(), como está não funcionaria a contento
com sub formulários e teria que modificá-la.
Para evitar isso, pois acredito que são somente alguns subformulários.
sugiro que faça assim:

No evento Ao Abrir do subform:

if login.id <> X ' Onde X é o número do usuário que pode abrir o subform.
  Cancel = true
endif

Se for mais de um usuário que tem permissão para abrir o subform:

Select case login.id
        case  x1,x2,x3  ' permissões
             abre o subform
       case else
              Cancel=true
End select

Noobezinho parcialmente deu certo eu testei, testei sem o 'X'. Ficou bloqueado, não consigo usar as barras de rolagem.

Códigos do DB do Professor Avelino:

No modulo:

Public Function fncPermissões(NomeForm As Form)
Dim idFun As Long
On Error Resume Next
idFun = fncCapturaIdFuncao(NomeForm.Name, 102030)
If Nz(fncBloquear(idFun, login.id, mtBloquear), True) = True Or login.id = 0 Then
   MsgBox "Acesso bloqueado...", vbInformation, "Aviso"
   DoCmd.Close acForm, NomeForm.Name
   Exit Function
End If
NomeForm.AllowEdits = Nz(fncBloquear(idFun, login.id, mtAtualizar), False)
NomeForm.AllowDeletions = Nz(fncBloquear(idFun, login.id, mtExcluir), False)
NomeForm.AllowAdditions = Nz(fncBloquear(idFun, login.id, mtInserir), False)
End Function,

Eu coloquei nos meus Subs Forms: Me!NOMEDOMEU SUBFORM.enabled = Nz(fncBloquear(idFun, login.id, mtExcluir), também deu certo parcialmente. Onde de acordo com o usuário bloqueá os botões que eu escolher. Só que usei nos meus Sub Form e botões.

Se você quiser que eu enviei meu DB, mas só que esta meio desorganizado com essa implementação que eu tentei fazer.

Link do site que retirei o exemplo do Professor Avelino, que eu usei para meu projeto. La tem os códigos detalhadamente e o DB. Só não tem os codigos  dos Subs Forms como eu queria.
http://www.usandoaccess.com.br/tutoriais/video-controle-personalizado-acesso-de-usuarios.asp?id=1

Eu conheço o Maestro  do Avelino.

Baseado nele, eu fiz um controle de acesso de usuários por grupo.
Dessa forma, fica como era nas versões anteriores, onde
se dava permissão ao grupo e não ao usuário.
Então, era só atribuir o usuário ao grupo.

Noobezinho, você tem outro código para bloquear o acesso ao subform?

Desculpe se alguma msg minha não ficou muito clara, pois ainda estou inciando no Access.

Eu já dei uma solução, é só implementar no teu aplicativo.

Noobezinho muito obrigado pela sua ajuda.
Fiquei feliz de mais, quando visualizei que vc tinha respondido este tópico e ainda rapidamente.