Hollis,Virginia
HollisVJ at pgdp.usec.com
Thu Mar 13 11:30:01 CST 2003
I added the reference & still receive the same error. Virginia -----Original Message----- From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com] Sent: Thursday, March 13, 2003 11:24 AM To: 'accessd at databaseadvisors.com' Cc: 'HollisVJ at pgdp.usec.com' Subject: RE: [AccessD] Adding Attachments You need to set a reference to the Windows Script Host Object Model > From: Hollis,Virginia [SMTP:HollisVJ at pgdp.usec.com] > Sent: Thursday, March 13, 2003 11:21 AM > To: 'accessd at databaseadvisors.com' > Subject: RE: [AccessD] Adding Attachments > > 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. >