Olá pessoal,
Existe uma forma de alterar o texto dos botões disso:
If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then
Para isso:
If MsgBox("Qual é o formato de sua impressão?", vbNormalDuplexCancel, "Impressão") = vbYes Then
=====Código=====
Private Sub Comando34_Click()
If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then
dt = Empty
DoCmd.OpenReport "rlt_Hospitais", acNormal, "", "", , acNormal
Else
DoCmd.Close
End If
End Sub
==============
Já agradeço, Luz e Paz!
Existe uma forma de alterar o texto dos botões disso:
If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then
Para isso:
If MsgBox("Qual é o formato de sua impressão?", vbNormalDuplexCancel, "Impressão") = vbYes Then
=====Código=====
Private Sub Comando34_Click()
If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then
dt = Empty
DoCmd.OpenReport "rlt_Hospitais", acNormal, "", "", , acNormal
Else
DoCmd.Close
End If
End Sub
==============
Já agradeço, Luz e Paz!