I have created a database, have a c

[Kathrynlewis]

I have created a database, have a command button but can't figure out VBA Code to select a file from the shared drive.
I would like to be able to click Command1 button
and be prompted to select file from specific folder on shared drive so that I can import it. Anyone know what the string is for this? This is what I have- but not working. What's wrong?

This works to import:
Private Sub Command1_Click()
DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel7, "AIRTEST", "L:\Marketing\Communications\Promos\Promos 2004\RegionOrders\AIRTEST.xls", -1
DoCmd.OpenTable ("AIRTEST&quot, acViewNormal, acEdit
End Sub

I tried to make it more specific with this, but doesn't work:
Private Sub Command1_Click()
Dim fn As String
fn = InputBox("Enter Path and File Name", "File Import&quot
End Sub

 

[lespaul]

Look into

GetOpenFileName

that should do what you're looking for!

HTH

Leslie

 

[Kathrynlewis]

That didn't seem to help or work....any other suggestions?

 

[lespaul]

I searched these fora for 'GetOpenFileName' and found 55 threads that mention it. Here are a few, the first one has a lot of code already written that does what you are looking for:

Thread705-457897
Thread707-522045
Thread705-660357

Good luck


Leslie

 

[Kathrynlewis]

great, think I have something working here! THanks for all your help.!