I'm using Access 2000 and I want to fill a combo box list with the tables
from another database so my user can select which table to import.
--
Thank you,
Del

On Tue, 8 Jul 2008 15:10:02 -0700, Del wrote:

> I'm using Access 2000 and I want to fill a combo box list with the tables
> from another database so my user can select which table to import.


Let's assume the combo box name is "cboTableList".
Set the Combo box's RowsourceType property to Value List.
Leave the Rowsource blank.

Paste the following into a new module.

Function GetDiffDbTableNames()
Dim wrkJet As Workspace
Dim Db As DAO.Database
Dim tdf As TableDef
Dim strList As String
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

Set Db = wrkJet.OpenDatabase("c:\MyFolder\MyDatabaseName.mdb", False)

For Each tdf In Db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
strList = strList & tdf.Name & ","
End If

Next
strList = Left(strList, Len(strList) - 1)
GetDiffDbTableNames = strList
Set Db = Nothing
wrkJet.Close
End Function
------------------
Code the Form's Load event:

Me.cboTableList.RowSource = GetDiffDbTableNames



--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail