dialog box | Member | | Join Date: Jan 2007
Posts: 56
| |
How do I get remove the dialog box that pops up each time a fax is getting ready to be sent. I just want them to go. Right now the user would have to click the yes each time.
I just want to have a message box show up that says you are about to seen 12 faxes do you want to send they click yes and 12 send with no dialog box if no the action cancels. -
Dim db As DAO.Database
-
Dim rst As DAO.Recordset
-
Dim strName As String
-
Dim strFaxNo As String
-
Dim strFax As String
-
-
Set db = CurrentDb
-
-
strSQL = "SELECT TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep FROM tara INNER JOIN TProdInfo ON tara.ProdCd = TProdInfo.ProdCd GROUP BY TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep, tara.Email HAVING (((tara.Keep)=True) AND ((tara.Email)=fOSUserName()));"
-
-
Set rst = db.OpenRecordset(strSQL)
-
-
rst.MoveFirst
-
-
Do Until rst.EOF
-
gProdCd = rst!ProdCd
-
strName = "/Name=" & rst![Contact Name]
-
strFaxNo = "/Fax=" & rst![Fax Number]
-
-
strFax = strName & strFaxNo & "/<fax@faxit.travp.net>"
-
-
DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF, strFax, , , "Outstanding Property Casualty Policies", "Please Review the Following Outstanding Policies", False
-
rst.MoveNext
-
Loop
-
End Sub
-
|  | Moderator | | Join Date: Mar 2007 Location: Louisiana
Posts: 1,218
| | | re: dialog box
I think this should work, I used the setwarnings command, this can be especially dangerous since you can delete everything in your db with no prompt if you do not return it to it's original state of true. You shouls add some error trapping in here and make sure if an error is trapped you set the setwarnings command = true in that area. Hope this helps. -
Dim db As DAO.Database
-
Dim rst As DAO.Recordset
-
Dim strName As String
-
Dim strFaxNo As String
-
Dim strFax As String
-
Setwarnings = false
-
Set db = CurrentDb
-
-
strSQL = "SELECT TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep FROM tara INNER JOIN TProdInfo ON tara.ProdCd = TProdInfo.ProdCd GROUP BY TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep, tara.Email HAVING (((tara.Keep)=True) AND ((tara.Email)=fOSUserName()));"
-
-
Set rst = db.OpenRecordset(strSQL)
-
'To prevent an error when your recordset is empty use the following
-
If not rst.eof then
-
rst.MoveFirst
-
YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+vbYesNo
-
if YesNo = vbNo then exit sub
-
-
Do Until rst.EOF
-
gProdCd = rst!ProdCd
-
strName = "/Name=" & rst![Contact Name]
-
strFaxNo = "/Fax=" & rst![Fax Number]
-
-
strFax = strName & strFaxNo & "/<fax@faxit.travp.net>"
-
-
DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF, strFax, , , "Outstanding Property Casualty Policies", "Please Review the Following Outstanding Policies", False
-
rst.MoveNext
-
Loop
-
Setwarnings = true
-
End Sub
-
| | Member | | Join Date: Jan 2007
Posts: 56
| | | re: dialog box
Quote:
Originally Posted by Denburt I think this should work, I used the setwarnings command, this can be especially dangerous since you can delete everything in your db with no prompt if you do not return it to it's original state of true. You shouls add some error trapping in here and make sure if an error is trapped you set the setwarnings command = true in that area. Hope this helps.
-
Dim db As DAO.Database
-
Dim rst As DAO.Recordset
-
Dim strName As String
-
Dim strFaxNo As String
-
Dim strFax As String
-
Setwarnings = false
-
Set db = CurrentDb
-
-
strSQL = "SELECT TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep FROM tara INNER JOIN TProdInfo ON tara.ProdCd = TProdInfo.ProdCd GROUP BY TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep, tara.Email HAVING (((tara.Keep)=True) AND ((tara.Email)=fOSUserName()));"
-
-
Set rst = db.OpenRecordset(strSQL)
-
'To prevent an error when your recordset is empty use the following
-
If not rst.eof then
-
rst.MoveFirst
-
YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+vbYesNo
-
if YesNo = vbNo then exit sub
-
-
Do Until rst.EOF
-
gProdCd = rst!ProdCd
-
strName = "/Name=" & rst![Contact Name]
-
strFaxNo = "/Fax=" & rst![Fax Number]
-
-
strFax = strName & strFaxNo & "/<fax@faxit.travp.net>"
-
-
DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF, strFax, , , "Outstanding Property Casualty Policies", "Please Review the Following Outstanding Policies", False
-
rst.MoveNext
-
Loop
-
Setwarnings = true
-
End Sub
-
this comes back with an sytanx error.
YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+vbYesNo
Also when do i return it to it's original state when I caputure the error or at the end of the loop
| | Moderator | | Join Date: Mar 2007 Location: Louisiana
Posts: 1,218
| | | re: dialog box
Quote:
Originally Posted by favor08 this comes back with an sytanx error.
YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+vbYesNo
Also when do i return it to it's original state when I caputure the error or at the end of the loop
Missed a parenthesis.
YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+vbYesNo) -
Public Sub Whatever()
-
On error goto DumbErrorTrap
-
-
'Do this and that
-
loop
-
setwarnings = true
-
-
Exit_DumbErrorTrap:
-
Exit sub
-
-
DumbErrorTrap:
-
setWarnings = true
-
'if you want put an error message here!
-
| | Member | | Join Date: Jan 2007
Posts: 56
| | | re: dialog box
Quote:
Originally Posted by Denburt Missed a parenthesis.
YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+vbYesNo)
-
Public Sub Whatever()
-
On error goto DumbErrorTrap
-
-
'Do this and that
-
loop
-
setwarnings = true
-
-
Exit_DumbErrorTrap:
-
Exit sub
-
-
DumbErrorTrap:
-
setWarnings = true
-
'if you want put an error message here!
-
I had to add "end if" statements to get the code to work.
But the microsoft dialog box still opened up.
im db As DAO.Database
Dim rst As DAO.Recordset
Dim strName As String
Dim strFaxNo As String
Dim strFax As String
SetWarnings = False
Set db = CurrentDb
strSQL = "SELECT TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep FROM tara INNER JOIN TProdInfo ON tara.ProdCd = TProdInfo.ProdCd GROUP BY TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep, tara.Email HAVING (((tara.Keep)=True) AND ((tara.Email)=fOSUserName()));"
Set rst = db.OpenRecordset(strSQL)
'To prevent an error when your recordset is empty use the following
If Not rst.EOF Then
rst.MoveFirst
YesNo = MsgBox("You are about to Fax " & rst.RecordCount & " records!", vbInformation + vbYesNo)
If YesNo = vbNo Then
Exit Sub
End If
Do Until rst.EOF
gProdCd = rst!ProdCd
strName = "/Name=" & rst![Contact Name]
strFaxNo = "/Fax=" & rst![Fax Number]
strFax = strName & strFaxNo & "/<fax@faxit.travp.net>"
DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF, strFax, , , "Outstanding Property Casualty Policies", "Please Review the Following Outstanding Policies", False
rst.MoveNext
Loop
SetWarnings = True
End If
End Sub
| | Moderator | | Join Date: Mar 2007 Location: Louisiana
Posts: 1,218
| | | re: dialog box
What does this dialog box say exactly?
| | Member | | Join Date: Jan 2007
Posts: 56
| | | re: dialog box
microsoft office outlook
a program is try to automatically send e-mail on your behalf. do you want to allow this? etc
Actually even if I say "NO" it still happens. So NO is not stopping the fax from process.
|  | Administrator | | Join Date: Aug 2006 Location: Dublin, Ireland
Posts: 11,115
| | | re: dialog box
Quote:
Originally Posted by favor08 microsoft office outlook
a program is try to automatically send e-mail on your behalf. do you want to allow this? etc
Actually even if I say "NO" it still happens. So NO is not stopping the fax from process. This is a standard outlook warning that can be turned off if you have admin privilages.
| | Administrator | | Join Date: Aug 2006 Location: Dublin, Ireland
Posts: 11,115
| | | re: dialog box
Quote:
Originally Posted by mmccarthy This is a standard outlook warning that can be turned off if you have admin privilages. If you need another solution have a look at this other thread ... http://www.thescripts.com/forum/thread609479.html
Mary
| | Member | | Join Date: Jan 2007
Posts: 56
| | | re: dialog box
Quote:
Originally Posted by mmccarthy This is a standard outlook warning that can be turned off if you have admin privilages. i do have admin privilages, so how do I turn it off.
| | Administrator | | Join Date: Aug 2006 Location: Dublin, Ireland
Posts: 11,115
| | | re: dialog box
Quote:
Originally Posted by favor08 i do have admin privilages, so how do I turn it off. In Outlook go to options and under the security tab click on Attachment Security. Be careful though as this disables all attachment security.
Mary
| | Moderator | | Join Date: Mar 2007 Location: Louisiana
Posts: 1,218
| | | re: dialog box
Found this, it will definately need some work but it should do what you need: Outlook Warnings - Visual Basic 6 (VBA)
-
OlSecurityManager.ConnectTo OutlookApp
-
OlSecurityManager.DisableOOMWarnings = True
-
On Error Goto Finally
-
'... any action with protected objects ...
-
Finally:
-
OlSecurityManager.DisableOOMWarnings = False
-
| | Moderator | | Join Date: Mar 2007 Location: Louisiana
Posts: 1,218
| | | re: dialog box
The following link may help also, you will probably need to utilize some of the techniques mentioned in this article in order to implemente the above post. http://support.microsoft.com/default...b;en-us;291120 |  | Administrator | | Join Date: Oct 2006 Location: London - UK
Posts: 16,402
| | | re: dialog box
That's brilliant Denburt.
I will be looking to implement this at work from now on.
I Love The Scripts :)
| | Moderator | | Join Date: Mar 2007 Location: Louisiana
Posts: 1,218
| | | re: dialog box
Quote:
Originally Posted by NeoPa That's brilliant Denburt.
I will be looking to implement this at work from now on.
I Love The Scripts :) Thanks, I had a similar issue a few years ago and as usual I can not seem to find that particular db. I am doing my best to keep up with my code storage db but it is an interesting project in itself. Glad you found it usefull.
|  |
Similar Microsoft Access / VBA bytes | | |  Forums
Visit our community forums for general discussions and latest on Bytes
/bytes/about
We are a network of experts and professionals in IT and software development that help one another with answers to tough questions and share insights.
Get the best answers to your questions from over 231,098 network members.
|
