[Resolvido]MsgBox com YesNo

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

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

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:




Boa sorte

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

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

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

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