Issue in Importing datatabse-VBA

[ajay.2613]

Hi All

I am importing a database into another blank database below is the code m using

Sub makedb()
Dim accessApp As Access.Application
Set accessApp = New Access.Application
accessApp.DBEngine.CreateDatabase "D:\tblImport.accdb", DB_LANG_GENERAL


DoCmd.TransferDatabase acImport, "Microsoft Access", _
"C:\WMDokInt_80_01_32Bit.accdb", acTable, "datLogo", _
"datLogo", False
EndSub

It give me 2046 error(the command or action TransferDatabase isn't available now)

Can anyone Please help?

[ranman256]

You don't need any of this code to import a db element, except the
docmd.transferdatabase

it may not work if the source db is open.
or if the element does not exist in it.

[ajay.2613]

You don't need any of this code to import a db element, except the
docmd.transferdatabase

it may not work if the source db is open.
or if the element does not exist in it.

Thnx for the reply!!!

source db is not open and table exist in that DB

[ranman256]

'all you need:

DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\WMDokInt_80_01_32Bit.accdb", acTable, "datLogo", "datLogo"