[Resolvido]Caixa Mensagem Interativa

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 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?

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

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

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

Igualmente