[AccessD] Adding Attachments

Dan Waters dwaters at usinternet.com
Fri Mar 14 12:04:01 CST 2003


Virginia,

By tomorrow, I will send you (off-line) a small demo database in A97
that contains the functionality that I believe you are looking for.
This does use File System Objects.

Dan Waters
Quality Process Solutions


-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com] On Behalf Of Hollis,Virginia
Sent: Friday, March 14, 2003 6:02 AM
To: 'accessd at databaseadvisors.com'
Subject: RE: [AccessD] Adding Attachments


Then what do I do? I have tried every combination. I found out opening
the file & saving it to the directory & folder I want it in, does not
work. When I do a save, the document that was saved to the network
directory is blank. I can't figure out how to make the file 'Move' from
where the user has it stored to the folder & directory on the network.

Virginia

-----Original Message-----
From: Stuart McLachlan [mailto:stuart at lexacorp.com.pg] 
Sent: Thursday, March 13, 2003 2:13 PM
To: Hollis,Virginia; accessd at databaseadvisors.com
Subject: RE: [AccessD] Adding Attachments


Stay away from the FSO unless you can *guarantee* that your applcation
will never 
have to run on a machine which has scripting turned off (Done frequently
by network 
administrators as a virus protection measure).

You can handle the case where the directory doesn't exist without using
it fairly easily.


> I get User defined type not defined Error on: Dim fso As
> FileSystemObject
>  
> This is in 97, does that make a difference?
> 
> -----Original Message-----
> From: Mike and Doris Manning [mailto:mikedorism at ntelos.net]
> Sent: Thursday, March 13, 2003 10:03 AM
> To: accessd at databaseadvisors.com
> Subject: RE: [AccessD] Adding Attachments
> 
> 
> You have to do a FileCopy from the first selected location to the
> second selected location in order to actually move the file.
> 
> Public Sub MoveFile(strOldPath As String, strOldName As String, _
>                     strNewPath As String, strNewName As String)
>                     
>     On Error GoTo ErrorHandler
>     
>     Dim fso As FileSystemObject
>     Dim strOldFile As String
>             
>     DoCmd.Hourglass True
>     
>     strOldFile = strOldPath & strOldName
>     
>     If Dir(strNewPath, vbDirectory) = "" Then
>         Set fso = New FileSystemObject
>         fso.CreateFolder strNewPath
>     End If
>     
>     FileCopy strOldFile, strNewName
>         
>     DoCmd.Hourglass False
>     
>     Exit Sub
>     
> ErrorHandler:
>     Call HandleErrors(Err, strMyName, "MoveFile")
> End Sub
> 
> Doris Manning
> Database Administrator
> Hargrove Inc.
> www.hargroveinc.com
> 
> -----Original Message-----
> From: accessd-admin at databaseadvisors.com
> [mailto:accessd-admin at databaseadvisors.com] On Behalf Of
> Hollis,Virginia
> Sent: Thursday, March 13, 2003 10:29 AM
> To: 'accessd at databaseadvisors.com'
> Subject: RE: [AccessD] Adding Attachments
> 
> 
> I have been playing around with the dialog to Save the file to a
> specified folder. Tell me if anyone thinks this will work...
>  
> Use the Open file dialog so the user can select the file they need to
> attach. Then the Save dialog box opens to the directory & folder where

> the attachment needs to be saved.
>  
> Once they save the file it places the file name in the field
> 'attachments' which is a hyperlink field.
>  
> Now, the problem... (there's always a catch)
>  
> How do I make the Save dialog box actually "Save" the file?!
>  
> The Save dialog opens, and places the file name in the attachments
> field, but it does not Save the file to the folder & directory.
>  
> Virginia
> 
> -----Original Message-----
> From: Wortz, Charles [mailto:CWortz at tea.state.tx.us]
> Sent: Wednesday, March 12, 2003 1:38 PM
> To: accessd at databaseadvisors.com
> Subject: RE: [AccessD] Adding Attachments
> 
> 
> Virginia,
>  
> If I was doing it I would add code that checks the path name and
> reject all path names that start with a drive letter and only accept 
> UNC path names. Thus, the only drives on their computers that pass are

> shared drives.
>  
> 
> Charles Wortz
> Software Development Division
> Texas Education Agency 
> 1701 N. Congress Ave 
> Austin, TX 78701-1494 
> 512-463-9493 
> CWortz at tea.state.tx.us 
> 
> -----Original Message-----
> From: Hollis,Virginia [mailto:HollisVJ at pgdp.usec.com]
> Sent: Wednesday 2003 Mar 12 13:16
> To: 'accessd at databaseadvisors.com'
> Subject: RE: [AccessD] Adding Attachments
> 
> 
> Is there a way to have the attachment saved (moved?) to a common
> network drive, or the directory the database is stored?
>  
> I got to thinking, there will be the user that will attach a file that

> is stored on their computer, which obviously will make it unavailable
> to everyone that needs the attachment.
>  
> Virginia
>  
>  
> 
> -----Original Message-----
> From: Arthur Fuller [mailto:artful at rogers.com]
> Sent: Wednesday, March 12, 2003 7:09 AM
> To: accessd at databaseadvisors.com
> Subject: RE: [AccessD] Adding Attachments
> 
> 
> 
> On my forms I have the text field beside a little button whose text is

> just 3 dots. The OnClick fires the code I posted. The user navigates
> to a file and selects ok, then the code plugs the complete filename 
> into the text field (in this case BigImagePath).
> 
>  
> 
> -----Original Message-----
> From: accessd-admin at databaseadvisors.com
> [mailto:accessd-admin at databaseadvisors.com] On Behalf Of
> Hollis,Virginia
> Sent: March 11, 2003 12:34 PM
> To: 'accessd at databaseadvisors.com'
> Subject: RE: [AccessD] Adding Attachments
> 
>  
> 
> Ok, I found Sub TestGetFileName() in ADH.
> 
>  
> 
> You mentioned posting the results to a control. Do I need to have a
> button on the form that opens the GetFileName? Then what transfers 
> this file name to the field?
> 
>  
> 
> Virginia
> 
> -----Original Message-----
> From: Arthur Fuller [mailto:artful at rogers.com]
> Sent: Tuesday, March 11, 2003 10:20 AM
> To: accessd at databaseadvisors.com
> Subject: RE: [AccessD] Adding Attachments
> 
> You don't need to use URLs if you don't want to. I use code from ADH
> that calls the Windows API to open the GetFile dialog, then posts the 
> result to a control on my form, like so:
> 
>  
> 
>     With Me
> 
>         .BigImagePath = ahtCommonFileOpenSave()
> 
>     End With
> 
>  
> 
> To cohere to the licensing I cannot post said function or its API
> declaration. Of course I could change all the variable names and the 
> function name and claim it as my own work, which is how I learned to 
> program, but now that I'm an old fart I don't do that any more.
> 
>  
> 
> (Fuller's Law #3: You start out a Young Turk and before you know it
> you're an Old Fart.)
> 
>  
> 
> The function called above returns an absolute path, but given same and

> knowledge of the app directory, it's a simple matter to replace the
> app path with a relative reference. The Replace function does it in 
> one line:
> 
>  
> 
>     Replace( strExp as String, strFind as String, strReplace as String

> )
> 
>  
> 
> HTH,
> 
> A.
> 
> 


-- 
Lexacorp Ltd
http://www.lexacorp.com.pg
Information Technology Consultancy, Software Development,System Support.



_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com





More information about the AccessD mailing list