[AccessD] IMPORT THE FORM

LOL, I wish I could see all the kicking and screaming.  I have to just imagine it in my head.

As Filch says in one of the Harry Potter movies... "A pity they let the old punishment die... Was a 
time detention found you hanging by your thumbs in the dungeons... God, I miss the screaming."

John W. Colby
www.ColbyConsulting.com


Arthur Fuller wrote:
> This is fun, JC. Thanks for the effort to drag us kicking and screaming into
> classes.
> 
> Arthur
> 
> On Wed, Feb 11, 2009 at 7:51 PM, jwcolby <jwcolby at colbyconsulting.com>wrote:
> 
>> hmmm...
>>
>> Function ExportForm(strFrmName As String, strExportPath As String)
>>     Application.SaveAsText acForm, strFrmName, strExportPath
>> End Function
>>
>> That is the code that exported the form.  Export a form in 97 and look at
>> that number.  Then place
>> that number in the code for the form I sent.
>>
>> John W. Colby
>> www.ColbyConsulting.com <http://www.colbyconsulting.com/>
>>
>>
>>  Stuart McLachlan wrote:
>>> Trying editing the first two lines to a lower Version Number:
>>>
>>> Version =xx
>>> VersionRequired =xx
>>>
>>> JC's form uses 19, I don't know what number would be required for
>> Access97 because this
>>> is not the Access Version Number.
>>>
>>>
>>> On 12 Feb 2009 at 10:47, MACE, Terry wrote:
>>>
>>>> JC,
>>>>
>>>> It doesn't work for me. I am using Access97 here at work and get the
>>>> following error:
>>>>
>>>> "Error encountered at line 2.
>>>> This object was created with a newer version of |9 than you are
>>>> currently running."
>>>>
>>>> Regards
>>>>
>>>> Terry Mace
>>>> Logistics Support Officer & Maintenance Supervisor
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
>>>> Sent: Thursday, 12 February 2009 8:13 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: Re: [AccessD] IMPORT THE FORM
>>>>
>>>> I need someone to verify that they successfully imported the form using
>>>> this methodology.  I did it
>>>> myself, but that means nothing as we all know.
>>>>
>>>> Thanks,
>>>>
>>>> John W. Colby
>>>> www.ColbyConsulting.com <http://www.colbyconsulting.com/>
>>>>
>>>>
>>>> jwcolby wrote:
>>>>> This email will document how to import a form into your database that
>>>> I provide to you.  WARNING!
>>>>> If you have modified frmDemoCtls to be the way you want it, rename the
>>>> form before performing the
>>>>> following.
>>>>>
>>>>> *   Cut and paste the form definition from the email with that stuff
>>>> into a text file that you can
>>>>> deal with.  As an example I used the path
>>>>>
>>>> "c:\Users\jwcolby\Documents\ClassesAndEventsDemo\frmDemoCtlsImport.txt".
>>>>> *   In your database click Insert / Module and immediately save it
>>>> as basImportForm.
>>>>> *   Insert the following code into the module:
>>>>>
>>>>> Function ExportForm(strFrmName As String, strExportPath As String)
>>>>>      Application.SaveAsText acForm, strFrmName, strExportPath
>>>>> End Function
>>>>>
>>>>> Function ImportForm(strFrmName As String, strImportPath As String)
>>>>>      Application.LoadFromText acForm, strFrmName, strImportPath
>>>>> End Function
>>>>>
>>>>> These functions are just wrappers to VBA code that allows importing
>>>> and exporting forms to / froim
>>>>> text files.
>>>>>
>>>>> *   Compile and save basImportform.
>>>>> *   In the debug window cut and paste or type in the following
>>>> (modifying the path to your own) and
>>>>> then hit enter:
>>>>>
>>>>> ImportForm "frmDemoCtls",
>>>> "c:\Users\jwcolby\Documents\ClassesAndEventsDemo\frmDemoCtlsImport.txt"
>>>>> *   Click on the form tab of the database and open frmDemoCtls.
>>>>> *   Notice that the form probably looks different than your old
>>>> form.
>>>>> *   Tab through the form and notice that the text and combo controls
>>>> change color as they gain / lose
>>>>> the focus.
>>>>>
>>>>> I will use this method of feeding you forms in the future.  If you
>>>> have any questions or something
>>>>> does not work as planned, let me know.
>>>>>
>>>> --
>>>> AccessD mailing list
>>>> AccessD at databaseadvisors.com
>>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>>> Website: http://www.databaseadvisors.com
>>>> "Warning:
>>>> The information contained in this email and any attached files is
>>>> confidential to BAE Systems Australia. If you are not the intended
>>>> recipient, any use, disclosure or copying of this email or any
>>>> attachments is expressly prohibited.  If you have received this email
>>>> in error, please notify us immediately. VIRUS: Every care has been
>>>> taken to ensure this email and its attachments are virus free,
>>>> however, any loss or damage incurred in using this email is not the
>>>> sender's responsibility.  It is your responsibility to ensure virus
>>>> checks are completed before installing any data sent in this email to
>>>> your computer."
>>>>
>>>>
>>>>
>>>> --
>>>> 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
>>