[AccessD] Dialog Box for Creating .txt tables

Max

...afaik the FSO doesn't work in a runtime environment ...if you've got it 
working in an A2k3 runtime I'd love to hear how.

William

--------------------------------------------------
From: "Max Wanadoo" <max.wanadoo at gmail.com>
Sent: Tuesday, March 17, 2009 8:19 PM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Dialog Box for Creating .txt tables

> You can also use the FileSystem objects to do this. Just set a Reference 
> to,
> oh dear,what was it now...oh yes, I think it was MS Office 200x.
>
> Works better then this (oldish) example.
>
> Max
> ps. Getting late now and it is Paddy's day so the ref may be worng!
>
> On Tue, Mar 17, 2009 at 10:02 PM, Rocky Smolin at Beach Access Software <
> rockysmolin at bchacc.com> wrote:
>
>> I was just doing this Bud.  I use the code from the Access Developer's
>> Handbook - just what you want:
>>
>>        lngFlags = adhOFN_HIDEREADONLY Or _
>>         adhOFN_HIDEREADONLY Or adhOFN_NOCHANGEDIR
>>
>>        varFileName = adhCommonFileOpenSave( _
>>            OpenFile:=False, _
>>            Filter:=strFilter, _
>>            flags:=lngFlags, _
>>            DialogTitle:="Enter File Name and Location for Mail List File
>> Export")
>>
>>            varFileName = adhTrimNull(varFileName)
>>
>>    intReply = MsgBox("Ready To Export Mailing List " & txtMailingList _
>>        & " to " & varFileName & ". OK to continue", vbYesNo)
>>    If intReply <> vbYes Then
>>        MsgBox "Export Aborted.", vbExclamation
>>        Exit Sub
>>    Else
>>        'DoCmd.TransferSpreadsheet acExportDelim, , 
>> "qryExportMailingList",
>> varFileName, True
>>        DoCmd.TransferSpreadsheet acExportDelim, acSpreadsheetTypeExcel9,
>> "qryExportMailingList", varFileName, True
>>
>>        MsgBox "Mail List Exported.", vbExclamation
>>    End If
>>
>>
>> Of course, my transfer is failing but the file name ends up in the var 
>> just
>> fine.
>>
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>> www.bchacc.com
>>
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bud Goss
>> Sent: Tuesday, March 17, 2009 2:45 PM
>> To: Access Group
>> Subject: [AccessD] Dialog Box for Creating .txt tables
>>
>> I have an Access application that creates a text (.txt) table using
>> DoCmd.TransferText.
>>
>> In this application, I would like to display a windows dialog box showing
>> “Save in;” and “File name:” that would allow the user to navigate to the
>> directory where the table would be located and designate file name to be
>> used.
>> (Similar to the dialog box that you see when you do a file save as in
>> Microsoft word etc.)
>>
>> Is it possible to do this in Access?
>>
>> If so, would some one tell me where I can find information and examples.
>> --
>> 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
>