need help with importing a Table from another access database in code

[Danny]

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.TransferD atabase 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

[PC Datasheet]

Danny,

Look at TableDef in the help file. You will need to use the TableDef collection
to get a list of the tables in the .mdb. You will then have to write some code
where the user can select the table name from the collection and assign it to a
string variable such as SelectedTbl. Then in your TransferDatabas e expression,
you will put SelectedTbl where you have anychoicetable.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdata sheet.com
www.pcdatasheet.com
"Danny" <da********@hot mail.com> wrote in message
news:D2******** **************@ news4.srv.hcvln y.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.TransferD atabase 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

[PC Datasheet]

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(Cance l As Integer)
Dim strRowSource As String
Dim TblDef As TableDef

Set db = CurrentDb
For Each TblDef In db.TableDefs
If InStr(TblDef.na me, "Sys") = 0 Then
strRowSource = strRowSource & "'" & TblDef.name & "';"
End If
Next
strRowSource = Left(strRowSour ce, Len(strRowSourc e) - 1)
cboTableDefs.Ro wSource = 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_Af terUpdate()
Dim Feeld As Field
Dim strRowSource As String

If IsNull(cboTable Defs) Then Exit Sub

Set TblDef = db.TableDefs(cb oTableDefs)
For Each Feeld In TblDef.Fields
strRowSource = strRowSource & "'" & Feeld.name & "';"
Next
strRowSource = Left(strRowSour ce, Len(strRowSourc e) - 1)
lstFields.RowSo urce = strRowSource
lstFields.Reque ry
End Sub
'*** code end ***

"Danny" <da********@hot mail.com> wrote in message
news:D2******** **************@ news4.srv.hcvln y.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.TransferD atabase 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

[Danny]

"PC Datasheet" <sp**@nospam.sp am> wrote in message
news:wz******** ******@newsread 2.news.atl.eart hlink.net...

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(Cance l As Integer)
Dim strRowSource As String
Dim TblDef As TableDef

Set db = CurrentDb
For Each TblDef In db.TableDefs
If InStr(TblDef.na me, "Sys") = 0 Then
strRowSource = strRowSource & "'" & TblDef.name & "';"
End If
Next
strRowSource = Left(strRowSour ce, Len(strRowSourc e) - 1)
cboTableDefs.Ro wSource = 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_Af terUpdate()
Dim Feeld As Field
Dim strRowSource As String

If IsNull(cboTable Defs) Then Exit Sub

Set TblDef = db.TableDefs(cb oTableDefs)
For Each Feeld In TblDef.Fields
strRowSource = strRowSource & "'" & Feeld.name & "';"
Next
strRowSource = Left(strRowSour ce, Len(strRowSourc e) - 1)
lstFields.RowSo urce = strRowSource
lstFields.Reque ry
End Sub
'*** code end ***

"Danny" <da********@hot mail.com> wrote in message
news:D2******** **************@ news4.srv.hcvln y.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.TransferD atabase 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

Thakns, this is great.

I will apply this my app.

Danny