[Resolvido]msgbox com vbYesNo

Bom dia Amigos, estou tentando implementar um código para surgir uma msgbox com opção de SIM e NÃO, quando clicado em "SIM" quero que abra o formulário "log 02 rev 01" e quando clicado em "NÃO" quero que abra o formulário "log 02".

Meu código tem alguma falha que ainda não consegui detectar, pois, quando clicado em "NÃO" funciona normalmente abrindo o formulário "log 02" direto, porém, quando clicado em "SIM" ele abre o "log 02 rev 01" e rápidamente o fecha e abre o "log 02". Tentei modificar de várias formas e até agora não tive sucesso. Algum amigo pode me dar uma luz?

Agradeço antecipadamente Prezados!

Abaixo segue meu código.

Private Sub Comando1_Click()

If MsgBox("Deseja Abrir o Logbook Revisado?", vbYesNo, "Entrada e Saída de Amostras") = vbYes Then
DoCmd.Close
DoCmd.Close acForm, "SISTEMA COMPLETO"
DoCmd.OpenForm "log 02 rev 01"

End If

If vbNo Then
DoCmd.Close
DoCmd.Close acForm, "SISTEMA COMPLETO"
DoCmd.OpenForm "log 02"
End If

End Sub

Apenas;

If MsgBox("Deseja Abrir o Logbook Revisado?", vbYesNo, "Entrada e Saída de Amostras") = vbYes Then
    DoCmd.OpenForm "log 02 rev 01"
    DoCmd.Close acForm, "SISTEMA COMPLETO"
    Exit Sub
Else
    DoCmd.OpenForm "log 02"
    DoCmd.Close acForm, "SISTEMA COMPLETO"
    Exit Sub
End If

=] rss.... obrigado JPaulo tava na cara e eu não me toquei!
obrigado!

Obrigado pelo retorno o fórum agradece.

Amigos,

Pegando um gancho nesse tópico eu fiquei perdido aqui, alguém consegue me ajudar?

Tenho um botão que verifica se certos campos estão prrenchidos, e o campo "Nome do Pai" pode estar sem preencher, contudo eu quero alertar o usuario que ele está prossguindo sem preencher, mas meu código está dando errado.


If IsNull(Me.txtNomedopai) Then
MsgBox("Você quer mesmo prosseguir sem informar os dados do Pai?", vbYesNo, "Meu Sistema") = vbYes
Me.txtfinanceiro.SetFocus
Else
Me.txtNomedopai.SetFocus
Exit Sub
End If

Tiago o nome do campo inclui esse txt que você colocou no código ou é apenas "Nome do pai" mesmo? Também tem que lembrar de considera que se o nome do campo tem espaços você tem de escrever no código VBA os espaços com underlines.

Bom caso seu campo lá na tabela dele se chama "Nome do pai" com espaços ficaria assim:

Obs.: Utilizei vbInformation ao invés de vbYesNo não sei se vai te servir, mas você pode mudar a pergunta igual eu fiz para obrigar a pessoa a preencher o nome do pai, se o preenchimento não for obrigatório você pode usar o vbYesNo mesmo ok. segue:

If IsNull(Me.Nome_do_pai) Then
MsgBox "Preencha o campo Nome do Pai!", vbInformation, "Aviso"
me.Nome_do_pai.setfocus
else
me.nomedoseuoutrocampo.setfocus
Exit Sub
End If

Se na tabela ele se chama "txtnome do campo" ficaria quase igual só que incluindo o txt assim:

If IsNull(Me.txtNome_do_pai) Then
MsgBox "Preencha o campo Nome do Pai!", vbInformation, "Aviso"
me.txtNome_do_pai.setfocus
else
me.nomedoseuoutrocampo.setfocus
Exit Sub
End If

Dica, procure sempre nomear seus campos na tabela de origem sem espaços, cidilhas ou acentos para evitar problemas nos códigos vba, tambpem procure sempre nomear as caixas de texto no formulário com o mesmo nome de sua fonte de dados na s tabelas, assim você evita se confundir também... espero que de certo!!

André!

Obrigado pelas dicas cara, principalemnte sobre nomear os campos.. rsrs (Estou me perdendo aqui). rsrssr

Quanto ao msgBox, nesse caso tem que sem Opcional, pois em alguns casos as crianças não tem o nome do Pai.

Mas estou me perdendo com o VbYesNo, não consegui colocar as respostas aqui...

Legal... mas e aí resolveu o problema do código era os espaços mesmo?

como se chama o campo "txtNomedopai" ou "Nome do pai"?

O Nome correto é mesmo txtNomedoPai...

Valeu

Mas então qual era o erro? já deu certo aí?

Se ele chama txtNomedopai e o próximo campo se chama txtfinanceiro então ficaria assim:

If IsNull(Me.txtNomedopai) Then
MsgBox("Você quer mesmo prosseguir sem informar os dados do Pai?", ", vbYesNo, "Aviso") = vbYes Then
me.txtfinanceiro.setfocus
else
me.txtNomedopai.setfocus
End If
End Sub

Outra dica se o campo txtfinanceiro é o próximo na sequência você não precisa nem usar o setfocus, basta colocar la na propriedades na aba outra o número do índice de tabulação na sequência do campo anterior, por exemplo se o campo anterior nome do pai tiver com número de índice de tabulação igual a 1 o próximo você coloca 2 e assim por diante, lembrando que a parada de tabulação tem que estar com resposta SIM ok.... abçs

Andre,

Sou bem iniciante no Access, e as vezes dou uma improvisada aqui.

O Código que vc me enviou tava dando pau, ai inclui mais um IF e deu Certinho, ficou assim:

If IsNull(Me.txtNomedopai) Then
IF MsgBox("Você quer mesmo prosseguir sem informar os dados do Pai?", ", vbYesNo, "Aviso") = vbYes Then
me.txtfinanceiro.setfocus
else
me.txtNomedopai.setfocus
End If
End Sub

Agora deu certinho amigo, muito obrigado pelo apoio...

Blz se chegou na solução ótimo abçs!!!