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]MsgBox com YesNo

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3836
    Registrado : 06/11/2009

    [Resolvido]MsgBox com YesNo Empty [Resolvido]MsgBox com YesNo

    Mensagem  Assis em 7/2/2019, 16:50

    Boa tarde Amigos

    Tenho o código abaixo ao carregar um formulário.
    '----------------------------------------------------------------------
    Private Sub Form_Load()
    Call Center(Me)
    Call AccessTransparente(0)

    Me.Texto1 = getScreenResolution

    If getScreenResolution <> "1366x768" Then
      MsgBox "Quer Alterar a Resolução para a Ideal do Programa 1366*768", vbInformation, "Aviso"
     
    Else
      DoCmd.Close acForm, "frmMudaResolução"
      DoCmd.openForm "frmSplash"
    End If

    End Sub

    '----------------------------------------------------------------------

    Mas queria ter a opção YesNo na Msgbox, para mudar ou não.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7249
    Registrado : 05/11/2009

    [Resolvido]MsgBox com YesNo Empty Re: [Resolvido]MsgBox com YesNo

    Mensagem  Alexandre Neves em 7/2/2019, 17:37

    Boa tarde, Assis


    If MsgBox("Quer Alterar a Resolução para a Ideal do Programa 1366*768?", vbYesNo) = vbYes Then
    'código sim
    else
    'código não
    End If


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]MsgBox com YesNo Empty Re: [Resolvido]MsgBox com YesNo

    Mensagem  Alexandre Fim em 7/2/2019, 18:35

    Só complementando a resposta do Alexandre Neves:


    Código:

    If MsgBox("Quer Alterar a Resolução para a Ideal do Programa 1366*768?", vbQuestion + vbYesNo, "Aviso") = vbYes Then


    A mensagem é exibida da seguinte forma:

    [Resolvido]MsgBox com YesNo Mensag10


    Boa sorte
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3836
    Registrado : 06/11/2009

    [Resolvido]MsgBox com YesNo Empty Re: [Resolvido]MsgBox com YesNo

    Mensagem  Assis em 7/2/2019, 19:00

    Boa noite Alexandre (s)

    A questão é que ao abrir o formulário "frmMudaResolução" se a resolução for igual a "1366x768" não dá MsgBox nenhuma, e abre o formulário, "frmSplash".


    Só se a resolução for diferente de  "1366x768" é que aparece a Msgbox com a mensagem.

     MsgBox "Quer Alterar a Resolução para a Ideal do Programa 1366*768", vbInformation, "Aviso"

    Então era aqui que queria a opção YesNo.

    '-------------------------------------------------------------------------------------
    Porque o código aqui abaixo funciona mas não dá a opção YesNo

    If getScreenResolution <> "1366x768" Then
     MsgBox "Quer Alterar a Resolução para a Ideal do Programa 1366*768", vbInformation, "Aviso"
     
    Else
     DoCmd.Close acForm, "frmMudaResolução"
     DoCmd.openForm "frmSplash"
    End If


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3836
    Registrado : 06/11/2009

    [Resolvido]MsgBox com YesNo Empty Re: [Resolvido]MsgBox com YesNo

    Mensagem  Assis em 7/2/2019, 19:09

    Alexandre (s)

    Cheguei lá…



    If getScreenResolution <> "1366x768" Then
    If MsgBox("Quer Alterar a Resolu??o para a Ideal do Programa 1366*768?", vbYesNo) = vbYes Then

    Else
    DoCmd.Close acForm, "frmMudaResolu??o"
    DoCmd.openForm "frmSplash"
    End If
    ElseIf getScreenResolution = "1366x768" Then

    DoCmd.Close acForm, "frmMudaResolu??o"
    DoCmd.openForm "frmSplash"
    End If

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7249
    Registrado : 05/11/2009

    [Resolvido]MsgBox com YesNo Empty Re: [Resolvido]MsgBox com YesNo

    Mensagem  Alexandre Neves em 7/2/2019, 19:12

    Será isto:

    Private Sub Form_Load()
    Call Center(Me)
    Call AccessTransparente(0)

    Me.Texto1 = getScreenResolution

    If getScreenResolution <> "1366x768" Then
    If MsgBox("Quer Alterar a Resolução para a Ideal do Programa 1366*768?", vbQuestion + vbYesNo, "Aviso") = vbYes Then  
      DoCmd.Close acForm, "frmMudaResolução"
      DoCmd.openForm "frmSplash"
    End If

    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3836
    Registrado : 06/11/2009

    [Resolvido]MsgBox com YesNo Empty Re: [Resolvido]MsgBox com YesNo

    Mensagem  Assis em 7/2/2019, 20:35

    Alexandre

    Não funciona, se não tiver o Else


    Private Sub Form_Load()
    Call Center(Me)
    Call AccessTransparente(0)

    Me.Texto1 = getScreenResolution

    If getScreenResolution <> "1366x768" Then
    If MsgBox("Quer Alterar a Resolução para a Ideal do Programa 1366*768?", vbQuestion + vbYesNo, "Aviso") = vbYes Then  
    Else
     DoCmd.Close acForm, "frmMudaResolução"
     DoCmd.openForm "frmSplash"
    End If

    End Sub


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado

    [Resolvido]MsgBox com YesNo Empty Re: [Resolvido]MsgBox com YesNo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 20:52