[Resolvido]Formulário de Permissões

Boa Tarde a todos

Quem conheçe o aplicativo Maestro, baixei ele e agora importei para o meu bd e estou adapatando a minha realidade, está ficando ótimo. Porém está acontecendo o seguinte:

Coloquei o frmlogin para iniciar primeiro, depois vem o frminício que tem botões para todos os formulários do projeto inclusive o frmPremissões e frmusuários, só que quando clico para abrir diz que o metodo openform está cancelado, sendo que os outros forms abrem normalmente.

Quando coloco ' (apostrofo) antes das seguintes linhas de código no form_open do frmpermissões ele abre.

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
'bloquei a abertura do formulário pelo painel de navegação
If Nz(Me.OpenArgs, 0) = 0 Then
Cancel = True
Exit Sub
End If
If DCount("IdUsuario", "tblUsuários") = 1 Then
MsgBox "Não há usuário cadastrado...", vbInformation, "Aviso"
Cancel = True
Exit Sub
End If
Call fncCarregalista
End Sub


Alguém pode me ajudar?


Agradeçido


Adilson

Tente trocar os nomes dos formulários para ver. Talvez apenas um formulário tenha permissão para abrir e os outros formulários só possam abrir à partir do principal. Caso persista a dúvida, melhor entrar em contato com o Avelino pelo site dele.

Olhe o E-Mail que acabei de receber do Avelino Sampaio.

Olá Adilson



Veja o evento “Ao abrir” do formulário de permissões que vc se refere:



Private Sub Form_Open(Cancel As Integer)

On Error Resume Next

'bloquei a abertura do formulário pelo painel de navegação

If Nz(Me.OpenArgs, 0) = 0 Then

Cancel = True

Exit Sub

End If

If DCount("idUsuario", "tblUsuários") = 1 Then

MsgBox "Não há usuário cadastrado...", vbInformation, "Aviso"

Cancel = True

Exit Sub

End If

Call fncCarregalista

End Sub



Este código está projetado para impedir(cancel=true) a abertura do formulário em duas situações. Quando não houver usuários cadastrados ou quando não for informado um valor diferente de zero(0) para o OpenArgs. O que vc deve fazer então é passar um valor do openArgs pelo seu botão de chamada, do seu formulário principal.



DoCmd.OpenForm "frmPermissõesUsuários", , , , , , 1



Isso evita que se abra o formulário pelo painel de navegação. Veja mais detalhes no meu artigo abaixo:



http://www.usandoaccess.com.br/dicas/dica21.asp?id=1#inicio





Sucesso!

Avelino Sampaio

Resolvido o Problema. eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!

Atenciosamente e Agradeçido pela Atenção.

Adilson Calixto

Certo. Grato pelo retorno.