dialog box

[favor08]

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 & "/<[e-mail]>"
 
DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF, strFax, , , "Outstanding Property Casualty Policies", "Please Review the Following Outstanding Policies", False
rst.MoveNext
Loop
End Sub
 

[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 & "/<[e-mail]>"
 
DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF, strFax, , , "Outstanding Property Casualty Policies", "Please Review the Following Outstanding Policies", False
rst.MoveNext
Loop
Setwarnings = true
End Sub
 

[favor08]

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 & "/<[e-mail]>"
 
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+v bYesNo


Also when do i return it to it's original state when I caputure the error or at the end of the loop

[Denburt]

this comes back with an sytanx error.

YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+v bYesNo
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+v bYesNo)

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!
 

[favor08]

Missed a parenthesis.
YesNo = MsgBox ("You are about to enter " & rst.RecordCount & " records!", vbInformation+v bYesNo)

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.ProdC d, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep FROM tara INNER JOIN TProdInfo ON tara.ProdCd = TProdInfo.ProdC d GROUP BY TProdInfo.ProdC d, TProdInfo.[Contact Name], TProdInfo.[Fax Number], tara.Keep, tara.Email HAVING (((tara.Keep)=T rue) AND ((tara.Email)=f OSUserName())); "

Set rst = db.OpenRecordse t(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 & "/<[e-mail] p.net>"

DoCmd.SendObjec t acSendReport, "RPCDemandF ax", acFormatRTF, strFax, , , "Outstandin g Property Casualty Policies", "Please Review the Following Outstanding Policies", False
rst.MoveNext
Loop
SetWarnings = True
End If
End Sub

[Denburt]

What does this dialog box say exactly?

[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.

[MMcCarthy]

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.

[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

[favor08]

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.