Getting Values out of the table
Daniel Lees
I am trying to have a table which stores a series of e-mail address which i
will use to send e-mails with using send object. The problem I have is i
can't get the values out of the table. I was trying to do a for loop that did
for d = 0 to MyTable.Count
t = MyTable!email(d)
t = t & ","
Next
The problem is that it doesn't let me do the MyTable.count it says object
required.
Could some please help me with his, I have been trying for ages (I can never
reference tables in VB for some reason)
Cheers
danny
Ofer Cohen
Function GetMailList()
Dim MyDB As DAO.Database, MyRec As DAO.Recordset, MyList As String
Set MyDB = CurrentDb
Set MyRec = MyDB.OpenRecordset("Select email From TableName")
While Not MyRec.EOF ' Loop trough the table
MyList = MyList & ";" & MyRec![email]
MyRec.MoveNext
Wend
MyList = Mid(MyList, 2)
' use you code here with the mail list ceated
MyRec.Close
MyDB.Close
End Function
--
Good Luck
BS"D