B
Bob
I already have one message to appear but if yes is selected i want this new
message box to show ....Thanks Bob
Private Sub cmdDistributeAllInvoices_Click()
Dim nRtnValue As Integer
nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?",
vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices")
If nRtnValue = vbYes Then
DoCmd.Hourglass True
****MsgBox(" All these Invoices will have Invoice Numbers") Yes No****
subSetInvoiceValues
Application.SysCmd acSysCmdSetStatus, "Process is completed."
Application.SysCmd acSysCmdClearStatus
DoCmd.Hourglass False
End If
End Sub
..........Jenny Vance
message box to show ....Thanks Bob
Private Sub cmdDistributeAllInvoices_Click()
Dim nRtnValue As Integer
nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?",
vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices")
If nRtnValue = vbYes Then
DoCmd.Hourglass True
****MsgBox(" All these Invoices will have Invoice Numbers") Yes No****
subSetInvoiceValues
Application.SysCmd acSysCmdSetStatus, "Process is completed."
Application.SysCmd acSysCmdClearStatus
DoCmd.Hourglass False
End If
End Sub
..........Jenny Vance