[Resolvido]Problema com fncPermissões

Boas
Tenho um programa que estou desenvolvendo e encontro-me com o seguinte.

Tenho uma barra lateral onde tenho o menu.
no menu tenho:

Pesquisa por código
Pesquisa por nome
Pesquisa detalhada
Gerir produtos

Quando logado como utilizador Melo que não tem permissões para aceder aos
formulários descritos e clico em 'Pesquisa por nome' aparece uma janela a dizer
que o acesso esta bloqueado. portanto esta funcionando bem

Quando eu clico em 'Pesquisa por código' ele também mostra essa janela mas o
problema esta quando eu fecho essa janela. A base de dados bloqueia e só
forçando o encerramento do Access e que desliga.

Criei este exemplo eliminando varias coisas que não são necessárias para
este caso mas o engraçado e que passei a ter problema com 'Pesquisa detalhada'
quando esta funcionando bem na base de dados completa.

Gostaria de vossa ajuda para a questão 'Pesquisa código' e se conseguirem me
explicar o que se passa com o 'Pesquisa detalhada' seria bom.

Utilizador:Melo
Senha:1234

Uso o Windows 7 Ultimate 32bits
Microsoft Office Entreprise 2007


Obrigado
Pedro Melo

Bons dias
De todos os caros colegas do forum será que alguém já conseguiu
desvendar alguma coisa desse meu problema?
Estou lutando aqui para perceber o porque dele fazer isso mas não
estou descobrindo.
Se alguém esta trabalhando sobre isso poderia ir falando aqui.
quem sabe juntos iremos conseguir.

Cumprimentos
Pedro Melo

Bom dia Pedromelo, esse sistema é do Avelino e utilizo em todos meus programas.

faça o seguinte: na propriedade de cada formulário, no evento ao carregar, coloque isso para permitir bloquear ou desbloquear o usuário na abertura do formulário conforme você tenha feito nas opções do frmPermissõesUsuários.

Private Sub Form_Load()
On Error Resume Next
Dim Filtro As String
Dim db As Database
Dim dbname As String

Call fncPermissões(Me)

Set db = CurrentDb
dbname = db.Name

Filtro = "objeto = '" & Me.Name & "'"
Filtro = "Idfuncao = " & Nz(DLookup("idFuncao", "tblFunções", Filtro), 0) & " AND idUsuario =" & CLng(login.id)

'* A rotina abaixo refere-se aos nomes dos botões existente em seu formulário e na tabela tblpermissõesUsuários, caso você queira habilitar ou desabilitar por usuário.

'If Nz(DLookup("Inserir", "tblpermissõesUsuários", Filtro), "false") = False Then
'Me.Inserir.enabled = False
'Else
' Me.Inserir.enabled = True
' End If
End Sub

Boas
obrigado por me esclarecer mais um pouco mas o meu problema não é esse
eu já tenho isso em todos os formulários.
Meu problema esta bem explicado em cima.
tentei teu exemplo mas continua bloqueando e obrigando a fazer ctr + alt + del para
fechar o Access.
mas só faz isso quando eu clico em: 'Pesquisa por código'
nos outros funciona bem a aplicação. bloqueia o acesso ao formulário mas não da bug no Access.

Pedromelo

Abra seu formulário frmcodigo modo estrutura, no evento ao abrir, desabilite essas funções
'gdb.InitFormAuto Me
'gdb.ResizePesquisar

Vai resolver seu problema...

Desculpa a demora estou fazendo um sistema para empresa e estou com pouco tempo.

Não deu pra ver direito seu formulário frmcodigo sendo este o formulário que apresenta erro com usuário Melo
desabilitei as funções abaixo e funcionou bem.

'gdb.InitFormAuto Me
'gdb.ResizePesquisar

veja o exemplo abaixo

Ok.
tudo bem mas eu preciso de essas funções activas!
se elas ai estão...
e porque é que nesse formulário da problema e nos outros não?
os outros também tem essas formulas...

Esse problema só aparece quando você bloqueia o usuário nos formulários

não. só neste especifico. nos outros esta tudo bem...
bloqueando ou não, não dão problema.
mas este da esse problema....

se virmos os eventos ao abrir, ao carregar e ao fechar desse formulário
e de outro não tem nada de muito diferente.
as funções que estão neste estão no outros...
não deveria dar problemas....

Pedromelo, vendo seu sistema com mais calma verifiquei que no formulário que apresenta problema esta faltando informação como:

No evento ao abrir do formulário frmcodigo você deve criar uma condição:
Se o formulário estiver bloqueado vai acontecer algo,
Se estiver desbloqueado o formulário abre normalmente.

Exemplo:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If Nz(DLookup("bloqueada", "tblpermissõesUsuários", Filtro), True) = True Or login.id = 0 Then
gdb.ResizePesquisar
gdb.ReSizeFormAuto
gdb.InitFormAuto Me
Else
Me.codigo = ""
Me.codigo.SetFocus
DoCmd.Restore
Me.KeyPreview = True
End If
End Sub

Boas
Inicialmente não preciso de nada disso pois essa condição
esta na função fncPermissões.
mas imaginemos que sim. ok tua solução é muito boa. obrigado.
Mas repara nos outros formulários que estando bloqueados e não
dão esse problema.
eles abrem ou ficam bloqueados consoante as permissões do utilizador
e não tem essa condição!!!!

Todos os outros formulários bloqueiam e abrem consoante as permissões
sem dar bug no Access. Porque é que só este é que da bug no Access?
Não consigo entender....

Mas obrigado pela ajuda. se não conseguir resolver de outra maneira terá que ser assim.

Bom dia Pedromelo,

No formulário frmcodigo você tem 1 campo chamado codigo que nos outros você não tem e no evento ao abrir o formulário você colocou assim:

gdb.ResizePesquisar
gdb.ReSizeFormAuto
gdb.InitFormAuto Me
Me.codigo = ""
Me.codigo.SetFocus
DoCmd.Restore
Me.KeyPreview = True

Veja só nos outros formulário você não tem o campo codigo por isso não da problema no bloqueado e desbloqueado mas no formulário frmcodigo tem o campo codigo, veja só as funções:

você utiliza isso em todos.

gdb.ResizePesquisar
gdb.ReSizeFormAuto
DoCmd.Restore
Me.KeyPreview = True

esse campo é exclusivo do formulário frmcodigo
você pede para o sistema limpar o campo codigo e colocar o foco no campo codigo

Me.codigo = ""
Me.codigo.SetFocus

por esse motivo o ideal é criar uma condição, se o usuário tiver bloqueado para aquele formulário a função não abre o formulário e não enxerga o campo codigo ou se tiver desbloqueado abre o formulário e limpar o campo codigo jogando o foco para ele.

deu pra entender melhor agora?
você unindo seu código o sistema vai ver que esta bloqueado porem vai continuar procurando o campo codigo e com a condição você separa as coisas.

Ok.
agora percebi tua logica.
por acaso ja tinha me apercebido que poderia ser algo relacionado com isso
mas nao tinha certeza e ainda nao tive tempo pra voltar a ver isso.
vou investigar e ja darei retorno.

Caso a lógica esteja certa...

de o tópico como resolvido Pedro.

Boas já descobri o problema que dava bug no Access
e não tem a ver com o me.codigo="" nem com o me.codigo.setfocus

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Me.codigo = ""
Me.codigo.SetFocus
DoCmd.Restore
gdb.ReSizeFormAuto
gdb.InitFormAuto Me
gdb.ResizePesquisar
Me.KeyPreview = True
End Sub

O problema esta que este código esta chamando duas funções (gdb.ReSizeFormAuto e gdb.ResizePesquisar)
para redimensionar o formulário quando só devia ter uma (gdb.ResizePesquisar).

alterei para:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Me.codigo = ""
Me.codigo.SetFocus
DoCmd.Restore
gdb.InitFormAuto Me
gdb.ResizePesquisar
Me.KeyPreview = True
End Sub

Agora já não da bug no Access mas tem outro problemazinho!! lol
se o usuário esta bloqueado ele não deveria abrir o formulário e sim
uma janela de aviso que diz que o acesso esta bloqueado.
O que acontece agora e que abre o formulário código mais a janela de aviso
ao clicar no ok da janela de aviso fecha a janela e o formulário.
o normal seria só aparecer a janela de aviso e não os dois!

Experimenta eliminar esse código e ver o que acontece!



Ja descobri. bastou eliminar: DoCmd.Restore
Muito obrigado pela ajuda de todos. Se consegui resolver
foi porque me indicaram o caminho certo.
Assunto resolvido(pelo menos por enquanto!kkkk)

Já que resolveu de o tópico como resolvido.

Se por acaso me puderes ajudar neste topico agradecia.
http://maximoaccess.forumeiros.com/t12741-obter-dados-da-xsidebar-top-left-width-height
Obrigado a todos.