[Resolvido]Abrir formulário com senha

Boas galera do fórum:
Estou com uma dúvida e não estou conseguindo sanar por vias proóprias , então estou recorrendo aos feras. Acredito que seja simples mas não estou conseguindo finalizar. Seguinte:

Tenho um form com uma ListBox contendo 3 informações:
Incluir Usuário
Excluir Usuário
Alterar Senha

e tenho também uma TxtBox oculta que me traz o nome do usuário logado no Form principal.
Dentro deste formulário ainda tenho 2 botões (OK e Fechar) e criei o seguinte código para abrir outros forms quando selicionado algum deles e pressionado o botão OK.

On Error Resume Next
If me.Lista346.value="Alterar Senha" Then
DoCmd.OpenForm "FormAlteraSenhaUser"
ElseIf me.Lista346.value="Excluir Usuário" Then
DoCmd.OpenForm "FormSenhaExclusaoUser" ' Abre Form para inserir senha'
ElseIf me.Lista346.value="Incluir Usuário" Then
DoCmd.OpenForm "FormSenhaInclusaoUser" ' Abre Form para inserir senha'
End If
desta maneira funciona Ok. mas o que queria na verdade seria que quando selecionar o itema da ListBox e a TxtBox for Administrador não peça a senha, abra diretamente o Form para inclusão ou exclusão. Tentei o código assim e funciona em parte. Abre o form diretamente mas por trás pede a senha do outro form, como se estivesse sendo executado o código em cascata. segue:

On Error Resume Next
If me.Lista346.value="Alterar Senha" Then
DoCmd.OpenForm "FormAlteraSenhaUser"
End If
If me.Lista346.value="Excluir Usuário" And Me.IDUser="Administrador" Then
DoCmd.OpenForm "FormExclusaoUser" ' Abre Form para exclusão'
else
DoCmd.OpenForm "FormSenhaExclusaoUser" ' Abre Form para inserir senha'
End If
If me.Lista346.value="Incluir Usuário" And Me.IDUser="Administrador" Then
DoCmd.OpenForm "FormUser" ' Abre Form para inclusão'
else
DoCmd.OpenForm "FormSenhaInclusaoUser" ' Abre Form para inserir senha'
End If

Tenho alguns sistemas meus que funcionam no perfeito, mas já analisei que somente com 2 informações na LIstBox, quando coloco 3 Informações ela abre a sequencia do código.

Fico agradecido se alguem verificar este código para ver onde estou possivelmente errado...

Utilize o Select Case que para estes casos é o melhor.

Ok, Beleza estou fazendo mas onde entraria a condição?
Exemplo

Ex:
Select Case Me. Lista346.value
Case "Excluir Usuário" And me.IDUser="ADMINISTRADOR"
Docmd.OpenForm "FormExclusaoUser"
Else ??????? Qual seria a instrução aqui?
Docmd.OpenForm "FormSenhaExclusaoUser"
Agora caso não atenda esta condição queria que fosse aberto o form senha...

Boas....


Select Case Me. Lista346.value...substitua o .value por .text ( value= valor, número...text=texto)

if Select Case Me.Lista346.text
Case "Excluir Usuário" And me.name="ADMINISTRADOR" then
Docmd.OpenForm "FormExclusaoUser"
else
msgbox" apenas o admistrador..blá...blá.....",vbok,"Aviso"

Amigão agradeço a ajuda, mas nada feito

Não aceita o If antes da select Case e não me retorna o apção Text no lugar do value (Somente ValidationText)

Queria que desse certo, mas infelizmente vopu alterar o projeto da seguinte maneira

Vou colcar 3 ícones no formulário representando as opções e ao clicar crio os procedimentos...

Já utilizo desta forma em outro BD, mas na verdade queria na ListBox...

Boas....ApJesus...

tens como postar parte do teu projeto (tbl, forms and query )??

Está no Repositório de exemplos...
Segue aí:
https://dl.dropbox.com/s/2vucazrea6smor8/AccessProntoPortaria.rar?dl=1

Olá Alessandro,

Dá uma olhada e vê se é isso que você quer.

Nivaldo.

https://www.dropbox.com/s/lwh18xf6nzf45j7/AccessProntoPortaria2.zip

NIvaldo, Agradeço a preocupação!

Quase Isso. Olha o que acontece:

Tente inserir um novo usuário, Ok! e efetue o log com este:

Após entrar no menu principal tente inserir um novo usuário. Abre a tela de alteração. Se clicar em exclusão, abre também a tela alteração.

Bom dia Alessandro,

Conforme você escreveu:

..."mas o que queria na verdade seria que quando selecionar o itema da ListBox e a TxtBox for Administrador não peça a senha, abra diretamente o Form para inclusão ou exclusão"...

Fiz alguns ajustes em cima do que você expos, más podemos reverter para a forma que você quer. Estou em treinamento na parte da tarde, más a noite dou olhada e vejo o que pode ser feito.

Nivaldo.

Desculpe não ter me expressado da maneira específica, mas agora acredito que saiba o que procuro... rsrsrsr

Se for administrador não pede senha, caso seja qualquer outro usuário solicita senha, Ok?

mais uma vez agradeço antecipadamente...

Amigo, você está falando de qual formulário?

Olá Alessandro,

Vamos lá:

Cole o código abaixo no evento Ao Clicar do botão Ok (FormEscolhaUsuario):


Private Sub Comando50_Click()
'On Error Resume Next

If strUsuario = "ADMINISTRADOR" Then
Select Case Me.TxtUsuario5
Case "Incluir Usuário"
DoCmd.OpenForm "FormUser"
Case "Excluir Usuário"
DoCmd.OpenForm "FormExclusaoUser"
Case "Alterar Senha"
DoCmd.OpenForm "FormAlteraSenhaUser"
End Select
Else
Select Case Me.TxtUsuario5
Case "Incluir Usuário"
DoCmd.OpenForm "FormSenhaInclusaoUser"
Case "Excluir Usuário"
DoCmd.OpenForm "FormSenhaExclusaoUser"
Case "Alterar Senha"
DoCmd.OpenForm "FormAlteraSenhaUser"
End Select
End If
End Sub


Tentei incluir/excluir más aparece um formulário informando que a senha está errada.

Procurei ver o tratamento de senha, más não tive êxito.

Qualquer dúvida quanto ao tratamento de senha, exponha os detalhes (que você deve conhecer) que a gente ver o que pode fazer.

Nivaldo.

Nivaldo, Obrigado pela grande ajuda...
Desculpe não ter respondido antes pois estava fora este fim de semana. Ficou excelente...
As senhas defini como regra de validação (Senha: User) para todas as senhas internas do banco...

mais uma vez Obrigado...

Value pelo retorno Alessandro,

O forum agradece.


Nivaldo.