Getting Values out of the table

[Guest]

Hi

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

 

[Guest]

Try something like

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!
MyRec.MoveNext
Wend
MyList = Mid(MyList, 2)

' use you code here with the mail list ceated

MyRec.Close
MyDB.Close
End Function

 

[Guest]

Cheers, it is wokrin now

Try something like

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!
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


[QUOTE="Daniel Lees"]
Hi

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[/QUOTE][/QUOTE]