[Resolvido]Caixa Mensagem Interativa

Boa tarde
Gostaria de um código para uma caixa de mensagem com três botões, sim, não e cancelar.
Onde ao clicar no sim iria para o form Teste, quando clicasse no não apenas fecharia a respectiva caixa de mensagem
Fiz esse código abaixo com duas linhas, contudo não abre com os três botões?

Private Sub Opção0_Click()
MsgBox "Possui alterações?" & Chr(13) & Chr(10) & "Ao clicar no sim abrirá o formulário específico", vbYesNoCancel + vbYesNo = vbYes 'Then
DoCmd.OpenForm "teste", acNormal, "", "", , acNormal
End Sub



Continuando..
A ideia era quando clicasse no botão não, essa informação fosse direta para uma tabela chamada normal, que já teria cadastrado informações consideradas normais.
Quando clicasse na opção sim as informações seriam cadastradas na tabela pertencente ao respectivo formulário aberto.

Obrigado

Fiz umas pesquisas e consegui os tres botoes como seguinte código:

Private Sub Opção0_Click()
If MsgBox("Possui alterações?" & Chr(13) & Chr(10) & "caso haja abrirá o formulário específico", vbYesNoCancel, "Escolha") = vbNo Then
dt = Empty
Else
DoCmd.OpenForm "teste", acNormal, "", "", , acNormal
End If
End Sub


Contudo com clico em cancelar ele abre o form teste.

Como resolvo?

E o Continuando..
A ideia era quando clicasse no botão não, essa informação fosse direta para uma tabela chamada normal, que já teria cadastrado informações consideradas normais.
Quando clicasse na opção sim as informações seriam cadastradas na tabela pertencente ao respectivo formulário aberto.

Obrigado

Olá, está bem confuso teu pedido de ajuda, o que queres dizer com ir para a tabela, não seria abrir um formulário? Explica detalhadamente o que precisas quando escolheres cada uma das opções opções.

Bastante confuso eu diria Amigo Beto!!

Mylton mas pra que o vbCancel, se você está utilizando apenas duas opções?

Não seria isso:

If MsgBox("Possui alterações?" & Chr(13) & Chr(10) & "caso haja abrirá o formulário específico", vbYesNo + vbQuestion, "Escolha") = vbYes Then
dt = Empty
   DoCmd.OpenForm "teste", acNormal, "", "", , acNormal
Else
   DoCmd.Close
End If

ele quer usar as 3 opções, o que não entendi são as 3 ações a serem executas, tenta lá:

Dim Msg As String
Msg = MsgBox("Possui alterações? " & vbCrLf & "Pressione Sim para 1ª ação, Não para 2ª ação e Cancela para 3ª ação.", vbYesNoCancel + vbInformation, "ESCOLHA")
If Msg = vbNo Then
Ação para o não
ElseIf Msg = vbYes Then
Ação para o sim
ElseIf Msg = vbCancel Then
Ação para o cancela
End If

Percebi isso Beto, seu código ficou chupeta pro amigo Mylton utilizar.
Abraço á todos.

Amigo Beto e demais Obrigado pelo código Ficou ótimo.
Quanto as tabelas a ideia seria essa:
Como é uma aplicação para exame médico tive a ideia de colocar como motor para acessar os forms a caixa de opção.
de forma que ao clicar numa exemplo na ectoscopia, abriria uma caixa de mensagem com as tres opções.
- cancelar se a pessoa desistisse.
- o sim abre o form ectoscopia com os campos a serem preenchidos, exemplo....cor...usa muletas e assim sucessivamente.
- Já o não .... não registraria nada na tabela ectoscopia anormal.
esta opção escolhida iria para a tabela ectoscopia normal, que ja digitado todos os valores do mesmo form ectoscopia considerados normal.

Assim, penso, corrija-me se estiver errado, quando fizesse a mala direta iria direto esses valores adiantando todo o processo.


É isso.
abraços

Amigo continua confuso, vamos ver se conseguimos nos entender assim, o que entendi:

Quando escolhe a opção Cancelar: não tem ação propriamente dita, faz tão somente fechar a msgbox e pernace no mesmo formulário, certo?

opção Sim: abre o formulário ectoscopia pronto para inserir um novo registro, correto?

opção Não: abre o formulário que tem como origem a tabela ectoscopia, procede?

Procede as duas primeiras
Fiz um pequeno exemplo.
Talvez consiga explicar melhor
Quando clicar em "não" registrara essa opção na tabela EctoscopiaNormal, que ja possui seus dados (veja) e serão esses que serão exportados para a mala direta.
quando clicar em sim vai para a tabela EctoscopiaAnormal

Obrigado

Amigo acho mais viável colocares o exemplo com dados concretos para tentarmos entender de fato o que precisas, pois veja só, no teu penúltimo post colocas: - Já o não .... não registraria nada na tabela ectoscopia anormal e no último post: Quando clicar em "não" registrara essa opção na tabela EctoscopiaNormal. Que opção é essa? Visto que o form. Inicio tem um grupo de 3 opções: Ectoscopia, Peso e Altura

Beto. Fiz um exemplo pratico em anexo.
Esqueça a confusão que fiz por favor.
O que desejo seria:


A tabela Antebraço Direito possui os seguintes campos com suas opçôes:
Esqueça o NProcesso.

Calor               "sem";"com"
Edema             "sem";"+1/4";"+2/4";"+3/4";"+4/4"
Hematoma        "sem";"com"
Rubor               "sem";"com"
Deformidade      "sem";"com"


Quando clicar na opção Não da caixa de mensagem que os seguintes registros sejam enviados a tabela Antebraço Direito nos respectivos campos:
Calor                "sem";
Edema              "sem";
Hematoma         "sem";
Rubor                "sem";
Deformidade       "sem";

Sendo estas informações gravadas na respectiva tabela

Quando clicar em Sim da caixa de mensagem abrirá o form Antebraço Direito, permitindo ao usuário escolher as suas opções marcando-as e estas deverão ser gravadas na tabela.

Faz o teste, espero que seja isso mesmo, me guiei pelo último post.

Beto...
És Coperfield...Mister M......rs.
Obrigado
É isso.
Gde abs

Saudações do fórum pelo retorno e fechamento do tópico

só uma correção, pode eliminar essa linha que esqueci de tirar: Dim i As Long. o códio fica:
Dim Msg, strResultado As String
   
   Msg = MsgBox("Possui alterações? " & vbCrLf & "Pressione Sim para abrir o formulário AntebracoDireito, Não para gravar na tabela AntebracoDir" _
   & "e Cancela para permanecer no formulário atual.", vbYesNoCancel + vbInformation, "ESCOLHA")
   
   If Msg = vbNo Then
   
   Set DB = CurrentDb()
   Set rs = DB.OpenRecordset("AntebracoDir")
   strResultado = "Sem"
   
       rs.AddNew
       rs("Calor") = strResultado
       rs("Edema") = strResultado
       rs("Hematoma") = strResultado
       rs("Rubor") = strResultado
       rs("Deformidade") = strResultado
       rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing


   ElseIf Msg = vbYes Then
       DoCmd.OpenForm "AntebracoDireito"
       DoCmd.GoToRecord , , acNewRec
       Forms!AntebracoDireito.NProcesso.SetFocus

   ElseIf Msg = vbCancel Then
       DoCmd.CancelEvent
   End If

Mais uma vez.
Obrigado.
Feliz dia das mães.

Igualmente