Hi

If you have seen this message before, your right it was reposted, as replies to the original post seem to keep ‘disappearingâ€

I'm trying to do the following in access as opposed to excel

fileToOpen = Application
.GetOpenFilename("Text Files (*.txt), *.txt"
If fileToOpen <> False The
MsgBox "Open " & fileToOpe
End I

How can I rewrite this so the user can select the file to be uploaded

It has been suggested (thanks Larry) that I can use the Windows Common Dialog directly, using the information and cod
you'll find at http://www.mvps.org/access/api/api0001.htm.

I can’t seem to make it work. Do i need to turn on 'Common Dialog Control ' as a reference or something... if so, where do i find it and what is its name

I get an error when i try and run the macro
"Only comments may appear after End Sub, End Function or End Property

I have copied and pasted the text in the shaded area exactly from the web site link

It highlights the following text
“Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll"
Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolea
â€

and just after

“Type tagOPENFILENAM
… … â€
End Typeâ€

I'm using Windows XP and Access 2000

Any suggestions

Thanks

Marcus

The declarations have to go at the TOP of the module. If necessary,
cut the declarations again, and paste them further up.

(david)

"marcus.." <(E-Mail Removed)> wrote in message
news:4492E0B7-B59B-44D0-ADC8-(E-Mail Removed)...
> Hi,
>
> If you have seen this message before, your right it was reposted, as
replies to the original post seem to keep 'disappearing'
>
> I'm trying to do the following in access as opposed to excel:
>
> fileToOpen = Application _
> .GetOpenFilename("Text Files (*.txt), *.txt")
> If fileToOpen <> False Then
> MsgBox "Open " & fileToOpen
> End If
>
> How can I rewrite this so the user can select the file to be uploaded?
>
> It has been suggested (thanks Larry) that I can use the Windows Common
Dialog directly, using the information and code
> you'll find at http://www.mvps.org/access/api/api0001.htm.
>
> I can't seem to make it work. Do i need to turn on 'Common Dialog Control
' as a reference or something... if so, where do i find it and what is its
name?
>
>
> I get an error when i try and run the macro:
> "Only comments may appear after End Sub, End Function or End Property"
>
>
> I have copied and pasted the text in the shaded area exactly from the web
site link.
>
> It highlights the following text:
> "Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
> Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
> "
>
> and just after :
>
> "Type tagOPENFILENAME
> . . .
> End Type"
>
>
> I'm using Windows XP and Access 2000.
>
> Any suggestions?
>
> Thanks,
>
> Marcus.
>