win2pdf mail helper loop problem

[Maverick6197]

Here's what I'm trying to do.....

I have a form who's recordsource is a query that pulls records with a date of
30 days before today's date.

In the OnOpen() Event of the form, I have placed code that uses the
information from the form to build a report. The report is then e-mailed to
the e-mail address on the form using the win2pdf Mail Helper program. The
code then tells the form to go to the next record and repeat everything for
this record as well.

The problem is that the first report is e-mailed to the e-mail address twice
and I cannot figure out why. The report for the second record is only sent
once.

Here is my code........

---------Start of Code-------------------

Option Explicit

Private Const REG_DWORD As Long = 4
Private Const HKEY_CURRENT_USER = &H80000001
Private Const KEY_ALL_ACCESS = &H3F

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long)
As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal
ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal
Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long)
As Long

Private Sub SaveWin2PDFDword(sValueName As String, lValueSetting As Long)

Dim lRetVal As Long 'result of the SetValueExLong function

Dim hKey As Long 'handle of open key

lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\VB and VBA Program
Settings\Dane Prairie Systems\Win2PDF", 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegSetValueExLong(hKey, sValueName, 0&, REG_DWORD, lValueSetting,
4)

RegCloseKey (hKey)

End Sub

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_cmdLoadReport_Click

Loop_cmdLoopReport_Click:

Dim ProtecCode As String

ProtecCode = Me.txtEmailContact

SaveWin2PDFDword "file options", &H421
SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFMailFrom", "No-
(e-mail address removed)"
SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFMailRecipients",
ProtecCode
SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFMailSubject", "PROTEC -
NOTIFICATION OF WARRANTY STATUS"
SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFMailNote", "Please see
the attached document concerning a unit registered with Astec Underground by
your dealership. DO NOT REPLY TO THIS E-MAIL."
SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFFileName", "T:\
Customer Support\Protec\Protec Warranty Status Notifications\" & Me.
txtDealerNumber & " - " & Me.txtUnitSerialNumber & ".pdf"
DoCmd.OpenReport "rptProtec", acViewNormal
DoEvents
'Forms![frmProtec].SetFocus


DoCmd.GoToRecord , , acNext
DoEvents
'Forms![frmProtec].SetFocus

GoTo Loop_cmdLoopReport_Click

Exit_cmdLoadReport_Click:
Exit Sub

Err_cmdLoadReport_Click:
MsgBox Err.DESCRIPTION
Resume Exit_cmdLoadReport_Click
End Sub

---------End Code----------

Any help would be greatly appreciated. Thanks in advance.....


Shannan