[resolvido] Ajuda no código de mensagem

Moderador: Avelino Sampaio

mylton
Mensagens: 74
Registrado em: 18 Jul 2015, 15:00

[resolvido] Ajuda no código de mensagem

Mensagempor mylton » 17 Fev 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: Selecionar todos

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

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


mylton
Mensagens: 74
Registrado em: 18 Jul 2015, 15:00

Re: Ajuda no código de mensagem

Mensagempor mylton » 17 Fev 2018, 22:04

Tentei e tbm não foi..

Código: Selecionar todos

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

Avatar do usuário
Avelino Sampaio
Mensagens: 1882
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Ajuda no código de mensagem

Mensagempor Avelino Sampaio » 18 Fev 2018, 09:04

Mylton

1 - não vejo a necessidade de na mensagem especificar se deve clicar em SIM ou NÃO
2 - utilize o evento Ao Abrir pois tens o argumento CANCEL a disposição.
3 - não vi a necessidade de posicionar o formulário, já que ao maximizar irá se expandir por igual.

Experimente:

Código:
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
If MsgBox("Desejar sair sem salvar as informações?", vbYesNo, "Confirmaçao") = vbNo Then Cancel = True
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

mylton
Mensagens: 74
Registrado em: 18 Jul 2015, 15:00

Re: Ajuda no código de mensagem

Mensagempor mylton » 18 Fev 2018, 18:03

Obrigado mais uma vez, Avelino.
Funcionou.
Abs.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 4 visitantes