[Resolvido]Ajuda no código de mensagem

Mylton 17/2/2018, 21:42

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1017
Registrado : 23/08/2010

Mensagem nº1

[Resolvido]Ajuda no código de mensagem

Mensagem Mylton 17/2/2018, 21:42

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

Mylton 17/2/2018, 22:28

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1017
Registrado : 23/08/2010

Mensagem nº2

Re: [Resolvido]Ajuda no código de mensagem

Mensagem Mylton 17/2/2018, 22:28

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

**Alexandre Fim** 17/2/2018, 22:42

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3241
Registrado : 13/12/2016

Mensagem nº3

Re: [Resolvido]Ajuda no código de mensagem

Mensagem Alexandre Fim 17/2/2018, 22:42

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