Hello

I've searched previously all posted questions in Access (Form Coding, 
General Questions, Module Coding and Programming and I am not finding mine). 
Also I checked the Dir Function and I always get error. I also posted a 
question with no reply.

So here goes...

In Access 2003 I have a Continuous Form showing a query. The form shows the 
fields A, B, C, D, E and F from MyTable. The field F shows all records .pdf 
in the database. All files .pdf (from records of field F) are already in 
C:\AB\A.

What I need is:
A code in a button of my form (FQMA) that If I put the cursor in field F, 
the code will find the file in C:\AB\A, copy the file and paste the file on 
Desktop.

Thank you very much

Lets assume you click a button that is placed beside the text box for field 
F

And, it not clear if field F has the full path name and .pdf extension, or 
just the pdf name????

And, it not clear when you mean:

c:\ab\

Do you mean the letters "ab" , or do you want the field value for a and b 
???

For this code I assume you mean ab as an location ab, and not the field 
values.
(however, if you do mean the field values, it a simple matter to modify the 
below)

And, lets assume the field F has the pdf file name with the .pdf as part of
the extension.

dim strDeskTop       as string
' get path location to desktop
strDeskTop =    CreateObject("Shell.Application").Namespace(&H10&).self.Path

   FileCopy "c:\ab\" & Me.f, strDeskTop & "\" & Me.f

Of course, if ab is supposed to be field a + b, then above becomes:

   FileCopy "c:\" & me.a & me.b & "\" & Me.f, strDeskTop & "\" & Me.f

And, as mentioned, it not clear if the file extension ".pdf" is included in 
field f or not...

-- 
Albert D. Kallal    (Access MVP)
Edmonton, Alberta Canada
pleaseNOOSpamKallal@msn.com

Albert
The letters AB and A are file location names.
Yes .pdf is included in the field

I´ll try your code and I let you know. If you thing I have to chance 
something please let me know.

Thank you very much indeed

"Albert D. Kallal" wrote:

> Lets assume you click a button that is placed beside the text box for field 
> F
> 
> And, it not clear if field F has the full path name and .pdf extension, or 
> just the pdf name????
> 
> And, it not clear when you mean:
> 
> c:\ab\
> 
> Do you mean the letters "ab" , or do you want the field value for a and b 
> ???
> 
> For this code I assume you mean ab as an location ab, and not the field 
> values.
> (however, if you do mean the field values, it a simple matter to modify the 
> below)
> 
> And, lets assume the field F has the pdf file name with the .pdf as part of
> the extension.
> 
> dim strDeskTop       as string
> ' get path location to desktop
> strDeskTop =    CreateObject("Shell.Application").Namespace(&H10&).self.Path
> 
>    FileCopy "c:\ab\" & Me.f, strDeskTop & "\" & Me.f
> 
> Of course, if ab is supposed to be field a + b, then above becomes:
> 
>    FileCopy "c:\" & me.a & me.b & "\" & Me.f, strDeskTop & "\" & Me.f
> 
> And, as mentioned, it not clear if the file extension ".pdf" is included in 
> field f or not...
> 
> -- 
> Albert D. Kallal    (Access MVP)
> Edmonton, Alberta Canada
> pleaseNOOSpamKallal@msn.com
> 
> 
> .
> 

Albert
Following your this is my code:
Private Sub txtf_Click()
Dim strDeskTop As String
'get path location to desktop
strDeskTop = CreateObject("Shell.Application").Namespace(&H10&).self.Path
FileCopy "c:\AB\A\" & Me.f, strDeskTop & "\" & Me.f
End Sub

However, when I click the button VBA shows this message:
Run Time Error 76 Path not found.
In my case I copied the Path fromExplorer. 

I don't know how to fix this? Your help is greatly appreciated



"Albert D. Kallal" wrote:

> Lets assume you click a button that is placed beside the text box for field 
> F
> 
> And, it not clear if field F has the full path name and .pdf extension, or 
> just the pdf name????
> 
> And, it not clear when you mean:
> 
> c:\ab\
> 
> Do you mean the letters "ab" , or do you want the field value for a and b 
> ???
> 
> For this code I assume you mean ab as an location ab, and not the field 
> values.
> (however, if you do mean the field values, it a simple matter to modify the 
> below)
> 
> And, lets assume the field F has the pdf file name with the .pdf as part of
> the extension.
> 
> dim strDeskTop       as string
> ' get path location to desktop
> strDeskTop =    CreateObject("Shell.Application").Namespace(&H10&).self.Path
> 
>    FileCopy "c:\ab\" & Me.f, strDeskTop & "\" & Me.f
> 
> Of course, if ab is supposed to be field a + b, then above becomes:
> 
>    FileCopy "c:\" & me.a & me.b & "\" & Me.f, strDeskTop & "\" & Me.f
> 
> And, as mentioned, it not clear if the file extension ".pdf" is included in 
> field f or not...
> 
> -- 
> Albert D. Kallal    (Access MVP)
> Edmonton, Alberta Canada
> pleaseNOOSpamKallal@msn.com
> 
> 
> .
> 

Hello

I already fixed the path problem.Now after clicking the button vba displays 
this message: Object doesn't support this property or method.I am new to VB 
programming. What does this error mean? I have searched the 
help file and have not be able to find the answer.

I also replaced the AB, B and f with my actual ones.
This is the code
Private Sub txtPath_Click()
Dim strDeskTop As String
'get path location to desktop
 strDeskTop = CreateObject("Shell.Application").Namespace(&H10&).self.Path
FileCopy "c:\BZ\Docs\" & Me.txtPath, strDeskTop & "\" & Me.txtPath
End Sub

Many thanks in advance

"sebastico" wrote:

> Albert
> Following your this is my code:
> Private Sub txtf_Click()
> Dim strDeskTop As String
> 'get path location to desktop
> strDeskTop = CreateObject("Shell.Application").Namespace(&H10&).self.Path
> FileCopy "c:\AB\A\" & Me.f, strDeskTop & "\" & Me.f
> End Sub
> 
> However, when I click the button VBA shows this message:
> Run Time Error 76 Path not found.
> In my case I copied the Path fromExplorer. 
> 
> I don't know how to fix this? Your help is greatly appreciated
> 
> 
> 
> "Albert D. Kallal" wrote:
> 
> > Lets assume you click a button that is placed beside the text box for field 
> > F
> > 
> > And, it not clear if field F has the full path name and .pdf extension, or 
> > just the pdf name????
> > 
> > And, it not clear when you mean:
> > 
> > c:\ab\
> > 
> > Do you mean the letters "ab" , or do you want the field value for a and b 
> > ???
> > 
> > For this code I assume you mean ab as an location ab, and not the field 
> > values.
> > (however, if you do mean the field values, it a simple matter to modify the 
> > below)
> > 
> > And, lets assume the field F has the pdf file name with the .pdf as part of
> > the extension.
> > 
> > dim strDeskTop       as string
> > ' get path location to desktop
> > strDeskTop =    CreateObject("Shell.Application").Namespace(&H10&).self.Path
> > 
> >    FileCopy "c:\ab\" & Me.f, strDeskTop & "\" & Me.f
> > 
> > Of course, if ab is supposed to be field a + b, then above becomes:
> > 
> >    FileCopy "c:\" & me.a & me.b & "\" & Me.f, strDeskTop & "\" & Me.f
> > 
> > And, as mentioned, it not clear if the file extension ".pdf" is included in 
> > field f or not...
> > 
> > -- 
> > Albert D. Kallal    (Access MVP)
> > Edmonton, Alberta Canada
> > pleaseNOOSpamKallal@msn.com
> > 
> > 
> > .
> > 

Create a test form with a simple button on it.

Check if the code that gets the path to the desktop works.

eg:

dim   strDeskTop     as string

strDeskTop = CreateObject("Shell.Application").Namespace(&H10&).self.Path

msgbox strDeskTop


If the above fails, then that points to our problem we must fix. This might 
be an OS issue. I not at an Vista or win7 computer right now, and I find the 
above does work on windows xp.  So, access version + OS version might be an 
issue to look at here....

-- 
Albert D. Kallal    (Access MVP)
Edmonton, Alberta Canada
pleaseNOOSpamKallal@msn.com