MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda no código de mensagem

    Compartilhe
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 23/08/2010

    [Resolvido]Ajuda no código de mensagem

    Mensagem  Mylton em 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
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 23/08/2010

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

    Mensagem  Mylton em 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
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 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







    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 23/08/2010

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

    Mensagem  Mylton em 18/2/2018, 17:46

    Funcionou.
    Obrigado Alexandre.
    Abs.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 314
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim em 18/2/2018, 18:25

    Valeu Mylton,

    Tamo junto.

    abs cheers cheers

      Data/hora atual: 17/7/2018, 01:23