problem with Do Loops

[plutz]

I have a database that i am try to loop through a table (maillist)of email address to send out different reports based on the field [deptid]. can you help

Dim project
project = Deptid
Do Until maillist.EOF
If project = 1 Then
DoCmd.SendObject acSendReport, "rptcalendar1", acFormatSNP, RP_email, , , "test", , False
ElseIf project = 2 Then
DoCmd.SendObject acSendReport, "rptcalendar2", acFormatSNP, RP_email, , , "test", , False
End If
maillist.MoveNext
Loop

 

[SQLBill]

That's Visual Basic code not Transact-SQL. You need to post in the proper forum. Microsoft SQL Server (this forum) uses Transact-SQL not VB.

-SQLBill