why is my loop not picking up the next value?

[Russ Neuman]

I know my loop is working because the counter is working and I am getting three emails. The problem is the value from the table is staying with row 1. I do not know why the row 2 value is not being loaded into the varible and emailed to me. The value getting loaded into TxtSubject is staying with the value of row 1 not getting to the value of row 2, etc.

Please review the below code.

Thank you very much. Russ

Private Sub MFNDTEMAILBUTTON_Click()
 
'==The first part prepares a table that is equal to a record set from the query to be loop through
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim intNumRecs As Integer
 
' The query loop below
 
Set db = CurrentDb()
intNumRecs = 0
Set rs = db.OpenRecordset("Q1230NDT3RDNOTICE")
While Not rs.EOF
   ' do what has to be done
   intNumRecs = intNumRecs + 1
   rs.MoveNext
Wend
Set rs = Nothing
 
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
'== the call is items are toemail fromemail subj body
 
Dim Txtbody1 As String
Dim TxtSubject As String
Dim Txtbody2 As String
Dim Txtbodyall As String
Dim Response As Integer
 
Txtbody2 = "Notice of Confidentiality: **"
Txtbody1 = " Test"
Txtbodyall = "Date Received - " & Txtbody1 & " - " & Txtbody2
Response = MsgBox("Please confirm the emailing of " & intNumRecs & " solicitations?", vbYesNo + vbQuestion, "Send by Email?")
 
If Response = vbYes Then
   'user answered "Yes"
   intNumRecs = 0
   Set rs = db.OpenRecordset("Q1230NDT3RDNOTICE")
   While Not rs.EOF
       ' do what has to be done
       intNumRecs = intNumRecs + 1
       TxtSubject = rs!IDCoName_2010TDB
 
       Call Xmail("[e-mail]", "[e-mail]", TxtSubject, Txtbodyall)
 
       rs.MoveNext
   Wend
   Set rs = Nothing
   MsgBox "The number of NDT solicitation(s) emailed was: " & intNumRecs & ".", vbOKOnly, "Confirmation...  "
Else
  'user answered "No"
   MsgBox "This NDT was Not emailed.", vbOKOnly, "Confirmation...  "
End If
 
End Sub

[NeoPa]

Russ,

Even before you changed a line of the code it was not clear what your problem was. Please explain your problem in clear, simple English. Remember, a reference which refers to something you haven't explained yet is neither clear nor simple.