mass emails by selection 1

[jmc014]

Hi,

Can someone help me add another condition to the below selection:

Dim Re As DAO.Recordset

Set Re = CurrentDb.OpenRecordset("Select * From Tel_List Where Email_1 Is not null")


The intention is to select all those [Email_1] Fields as well as a company category, for expample [Forms]![My_Form]![Category]

I'm not at very good at writing code, here's what I've been trying:

Set Re = CurrentDb.OpenRecordset("Select * From Tel_List Where Email_1 Is not null" & ("Select * From Tel_List Where Category = [Forms]![My_Form]![Category]"))

Any help would be highly appreciated.
Best regards,

P.D. HAPPY CHRISTMAS TO EVERYONE

 

[PHV]

Set Re = CurrentDb.OpenRecordset("SELECT * FROM Tel_List WHERE Email_1 Is Not Null AND Category='" & Forms!My_Form!Category & "'")

If Category is defined as numeric then get rid of the single quotes.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jmc014]

PHV,

Thank you very much, you help is appreciated.