Looping net send

[hartwell]

I want to send a net send to multiple people from a query, so it would take each record from a field untill the end, I have never done a loop before and have no idea where to start

they query would be called FilterAgent and the field would be called RACF under access97

 

[PHV]

Have a look at recordset (either DAO or ADODB).

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hartwell]

i dont supose u could show an example

 

[PHV]

What have you tried so far ?
TONS of threads in the access fora about browsing a recordset.

 

[hartwell]

ive been looking at posts for the past hour but just going over my head

 

[hartwell]

well i tried the following but with e-mails instead of net send (im at home at the moment) but doesnt work, error user-definded type not definded

Dim rs As DAO.Recordset
Dim qd As DAO.QueryDef
set qd = CurrentDb.QueryDefs("qryemail")
set rs = qd.OpenRecordset
Do Until rs.EOF
DoCmd.SendObject , , , rs!Address, , "TEST", "TESTING"
rs.MoveNext
Loop

 

[PHV]

When in VBE menu Tools -> References ...
select the Microsoft DAO 3.x library.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hartwell]

thats great works fine, does that mean it needs to be enabled on every machine access runs in!?

 

[PHV]

This reference is part of your database, so if the target machine has the library with same or higher version then simply copying the database should suffice.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886