[AccessD] Dialog Box for Creating .txt tables

That's why I keep the MDB tucked away and only let the lusers see the mde 
:-)

-- 
Stuart

On 19 Mar 2009 at 1:54, William Hindman wrote:

> ...we work in different worlds ...I can't imagine an environment where 
> anyone but me can get to the code ...I'd be serving hard time for mass 
> maiming, I would.
> 
> William
> 
> --------------------------------------------------
> From: "Max Wanadoo" <max.wanadoo at gmail.com>
> Sent: Wednesday, March 18, 2009 12:58 PM
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Dialog Box for Creating .txt tables
> 
> > I don't use the RT William, just a mdb or mde.
> > Worth remembering though
> > Thanks
> > Max
> >
> >
> > On 3/18/09, William Hindman <wdhindman at dejpolsystems.com> wrote:
> >>
> >> 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
> >> >
> >>
> >> --
> >> 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
>