[Resolvido]Código com erro na verificação IF

boas
tenho o seguinte código que funciona... sendo que tem um senão . . .

Código:

Private Sub DadosPessoais_Click()
    If Me.txtSenha = "1234" Then
    DoCmd.OpenForm "frmClientesDadosPessoais"
    txtSenha.SetFocus
    txtSenha = Null
    Else
    MsgBox "Senha de acesso... Não corresponde !"
    txtSenha.SetFocus
    txtSenha = Null
    End If
    
    stDocName = "frmClientesDadosPessoais"
    If IsNull(Me.ID) = False Then
    stLinkCriteria = "[ID]=" & Me![ID]
    Else
    stLinkCriteria = "[ID]=0"
    End If
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   End Sub

O problema esta que após dar o Ok abre na mesma o form Dados Pessoais não respeitando uma vez que a senha não corresponde !
Obrigado

As linhas sao lida na Ordem...

Essa ultima linha será lida independente de condição, pois ela está fora dos Ifs.

DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

É ela que abre o Formulario...

Olá Fábio
Retirando essa linha ou mesmo colocando acima, não abre realmente o form, mas, ao colocar a senha de acesso não mantém o foco no Cliente aberto anteriormente !
Obrigado

Bom dia para todos...

Se as linhas são lidas na ordem, então...

stDocName = "frmClientesDadosPessoais"
If IsNull(Me.ID) = False Then
stLinkCriteria = "[ID]=" & Me![ID]
Else
stLinkCriteria = "[ID]=0"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Olá Sílvio, antes de mais agradecer lhe ! No entanto ao colocar como disse funciona, não abre o form sem a senha, no entanto não abre o form dados Pessoais no Cliente aberto anteriormente, ou seja, não mantém o foco no cliente seleccionado.

Poste as partes envolvidas para uma melhor analise do mesmo.

E nos conte o que pretende...

Tipo: Ao clicar no botão xxx quero que peça a senha, se a senha tiver errada abra isso, se tiver certa, abra aquilo...

ok... amigão !
Cá vai . . .

E nos conte o que pretende...
Tipo: Ao clicar no botão xxx quero que peça a senha, se a senha tiver errada abra isso, se tiver certa, abra aquilo...

tenho um form frmClientes, dentro deste um botão (Dados Pessoais)... e um campoa (txtSenha) ao clicar no botão, se a senha foi coincidir, ou se não tiver colocado a senha o form não abre.
Se estiver tudo bem... aí abre o form frmDadosPessoais no Cliente aberto anteriormente. Imagine se :
Estavamos com o Cliente 1 Fábio Paes, iria abrir os Dados Pessoais deste Cliente.
Inclusive tentei assim :

Código:

Private Sub DadosPessoais_Click()
    If Me.txtSenha = "Saude" Then
    DoCmd.OpenForm "frmClientesDadosPessoais"
    txtSenha.SetFocus
    txtSenha = Null
    Else
    MsgBox "Senha de acesso... Não corresponde !"
    txtSenha.SetFocus
    txtSenha = Null
    End If
    DoCmd.CancelEvent
    stDocName = "frmClientesDadosPessoais"
    If IsNull(Me.ID) = False Then
    stLinkCriteria = "[ID]=" & Me![ID]
    Else
    stLinkCriteria = "[ID]=0"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
  End Sub

Colocando o DoCmd.CancelEvent
Desta form que esta faz tudo menos manter o foco do cliente aberto. Seria isto... Obrigado

If IsNull(Me.txtSenha) or Me.txtSenha = "" Then
msgbox "Senha nao preenchida"
exit Sub
End if

If Me.txtSenha = "Saude" Then
   DoCmd.OpenForm "frmClientesDadosPessoais", , , "ID = " & Me.IDCliente & ""
Else
   MsgBox "Senha de acesso... Não corresponde !"
   exit sub
End If

Tente dessa forma... Bem simples...

o Exit Sub interrompe a leitura do Código. ou seja, para nele e não faz mais nada!

Teste assim e depois incremente o que precisar...

Ups... Grande Fábio obrigado amigo... tudo certo.

Baca amigo, grato pelo retorno e até a próxima se Deus quiser!