Try using ADO to append the record into the new table and then refresh the list boxes.
Mihai
Ex:
Dim cnx as New ADODB.Connection
Dim str as String
Set cnx = CurrentProject.Connection
'Define str as the SQL statement that appends the record to table Temp, dependind on the conditions you want, like this
If cond1 Then
str = "INSERT INTO tblTest (Field1, Field2, ...)" & _
"SELECT Field1, Field2, ... FROM table1 ..."
cnx.Execute str
Set cnx= Nothing
'And then refresh the list boxes
|