Reading empoy number from query and writing the date to table

Hi Experts,

I have a report based on 7 day reminder query that flags all the people that have 7 days or less to go to the course.  I need to open query via the VBA code, pick up their employ numbers and then write to the Course Table under their particular record the exact date of reminder (Now) in 7 days reminder field.  How do I do that?

P.S.  I have managed to open the query thus far (see code below).  For some reason it only picks up the last employer number although there is more than one? Should I be doing this in Repot_Load subroutine?

LillyC

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Private Sub Report_Load()
 
Dim i, count As Integer
Dim emp_number()
 
count = DCount("*", "7 day reminder query") - 1
ReDim emp_number(count)
 
Set rs = CurrentDb.OpenRecordset("7 day reminder query")
 
i = -1
 
rs.MoveFirst
 
Do Until rs.EOF
i = i + 1
 
    emp_number(i) = Employ
 
rs.MoveNext
Loop
 
 
 
End Sub