How to add multiple records in a recordset (DAO) ???

[AccDeveloper]

Hi,

I have 9 List boxes (3 sets of 3 listboxes for ClientName, ClienId and Balance) on a Form and want to insert the values into a TempTable with the same fields (ClientName, ClientID, Balance)

I have following code to write 1 record into the table:

Private Sub UpdateData()

Dim db As DAO.Database
Dim tblRst As DAO.Recordset

Set db = CurrentDb
Set tblRst = db.OpenRecordset("TempTable&quot

With tblRst

.AddNew

.Fields("ClientName&quot = Val (Me.Text1 & "&quot
.Fields("ClientID&quot = Val (Me.Text2 & "&quot
.Fields("Balance&quot = Val (Me.Text3 & "&quot

.Update

End With
tblRst.Close

End Sub

HOW DO I ADD ALL MY 3 SET OF RECORDS (I.E. MY FORM SHOWS 3 CLIENTS AT A TIME) ???

ANY HELP IS VERY MUCH APPRECIATED !!
THANKS,
VIC

 

[Rolliee]

h tblRst

.AddNew

.Fields("ClientName&quot = Val (Me.Text1 & "&quot
.Fields("ClientID&quot = Val (Me.Text2 & "&quot
.Fields("Balance&quot = Val (Me.Text3 & "&quot

.Update
.AddNew

.Fields("ClientName&quot = Val (Me.Text7 & "&quot
.Fields("ClientID&quot = Val (Me.Text8 & "&quot
.Fields("Balance&quot = Val (Me.Text9 & "&quot

.Update
.AddNew

.Fields("ClientName&quot = Val (Me.Text4 & "&quot
.Fields("ClientID&quot = Val (Me.Text5 & "&quot
.Fields("Balance&quot = Val (Me.Text6 & "&quot

.Update

End With


rollie@bwsys.net

 

[AccDeveloper]

Thanks,
Vic

 

[Rolliee]

if someone gives helpful tips, Vic, remember to say so by clicking the post as helpful.