Danny,
Here's some code by Joe Black I just found in another newsgroup. It's almost
exactly what you need!
Steve
PC Datasheet
I use the following code to populate a combo box with the table names in the
current database (excluding system tables):
'*** code start ***
Private Sub Form_Open(Cancel As Integer)
Dim strRowSource As String
Dim TblDef As TableDef
Set db = CurrentDb
For Each TblDef In db.TableDefs
If InStr(TblDef.name, "Sys") = 0 Then
strRowSource = strRowSource & "'" & TblDef.name & "';"
End If
Next
strRowSource = Left(strRowSource, Len(strRowSource) - 1)
cboTableDefs.RowSource = strRowSource
Set db = Nothing
End Sub
'*** code end ***
and when I select a table name from the combo box, the following code puts
all the field names from the selected table into a listbox:
'*** code start ***
Private Sub cboTableDefs_AfterUpdate()
Dim Feeld As Field
Dim strRowSource As String
If IsNull(cboTableDefs) Then Exit Sub
Set TblDef = db.TableDefs(cboTableDefs)
For Each Feeld In TblDef.Fields
strRowSource = strRowSource & "'" & Feeld.name & "';"
Next
strRowSource = Left(strRowSource, Len(strRowSource) - 1)
lstFields.RowSource = strRowSource
lstFields.Requery
End Sub
'*** code end ***
"Danny" <da********@hotmail.com> wrote in message
news:D2**********************@news4.srv.hcvlny.cv. net...
I have code to allow the user to select any .mdb of his choice on the HD,
but how do I then let him select a table from within this .mdb and then
create a destination table of a name that I assign in code.
DoCmd.TransferDatabase acImport, "Microsoft Access", anymdb, acTable,
anychoicetable, "fixedtablename"
So I would like this command to prompt the user so the user can select the
table
Thanks in advance
