[Resolvido]Ajuda no código de mensagem

Boa noite
Estou enrolado em um código de mensagem.
Objetivo:
Se a resposta for não...fecha o form
Se for sim.... abre o form sempre no topo e maximado.

Código:



Private Sub Form_Load()

'Mensagem

 If MsgBox("Deseja cadastrar um novo exame físico?" & Chr(13) & Chr(10) & "Caso deseje clique em SIM! Depois clique no Botão Novo" & Chr(13) & Chr(10) & "Caso não deseje clique em NÃO que a ação será anulada!", vbYesNo, "Escolha") = vbNo Then
         If Me.Dirty Then Me.Dirty = False
 End If
   XPos = 0
   YPos = 0
   DoCmd.MoveSize XPos, YPos
   DoCmd.Maximize
End Sub

Obrigado

Tentei e tbm não foi..

Private Sub Form_Load()
'Form sempre maximizado e no topo
XPos = 0
YPos = 0
DoCmd.MoveSize XPos, YPos
DoCmd.Maximize
If MsgBox("Desejar sair sem salvar as informações?" & Chr(13) & Chr(10) & "Caso deseje clique em SIM!" & Chr(13) & Chr(10) & "Caso não deseje clique em NÃO que a ação será anulada!", vbYesNo, "Escolha") = vbNo Then
If Me.Dirty Then Me.Dirty = False
' dt = Empty
Else
DoCmd.Close
End If
End Sub

Mylton, faça o seguinte:

*** Mensagem ***


If MsgBox("Deseja cadastrar um novo exame físico? " & vbCrLf & _
"Caso deseje clique em SIM! Depois clique no Botão Novo " & vbCrLf & _
"Caso não deseje clique em NÃO que a ação será anulada!", vbYesNo, "Escolha") = vbNo Then

DoCmd.Close acForm, Me.Name, acSaveYes
Exit Sub

End If


Copie e cole no seu form a seguinte rotina:

Private Sub Form_Resize()
Dim Xpos As Integer
Dim Ypos As Integer


Xpos = 0
Ypos = 0

With Me
DoCmd.MoveSize Xpos, Ypos
DoCmd.Maximize
End With

End Sub



Qualquer dúvida é so postar.

Valeu

Abraço

Funcionou.
Obrigado Alexandre.
Abs.

Valeu Mylton,

Tamo junto.

abs