Gustav Brock
Gustav at cactus.dk
Fri Feb 13 04:55:04 CST 2009
Hi Terry
Easy! The same way as in newer versions:
SaveAsText acForm, "frmName", "Form97.txt"
/gustav
>>> terry.mace at baesystems.com 13-02-2009 06:04 >>>
Gustav,
The last txt form that JC sent out I tried to get working in A97 using
the code you sent, and using A97 or A2003 I couldn't create a text file
that would load a form into A97.
How did you generate the A97 text file that you sent out?
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 MACE, Terry
Sent: Friday, 13 February 2009 10:09 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] the form for A97
Gustav,
Thanks, works fine in A97
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 Gustav Brock
Sent: Thursday, 12 February 2009 9:23 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] the form for A97
Hi Terry and John
SaveAsText acForm, "frmName", "Form97.txt"
and
LoadFromText acForm, "frmName", "Form97.txt"
work nicely in A97 as well, though undocumented.
Below please find the form for A97.
/gustav
<Text>
Version = 17
VersionRequired = 17
Checksum = -930099809
Begin Form
DefaultView = 0
RecordLocks = 2
TabularFamily = 0
PictureAlignment = 2
DatasheetGridlinesBehavior = 3
GridX = 24
GridY = 24
Width = 3240
DatasheetFontHeight = 10
ItemSuffix = 20
DatasheetGridlinesColor = 12632256
RecSrcDt = Begin
0x3a86509cea75e340
End
OnOpen ="[Event Procedure]"
DatasheetFontName ="Arial"
Begin
Begin Label
BackStyle = 0
FontName ="Tahoma"
End
Begin CommandButton
FontSize = 8
FontWeight = 400
ForeColor = -2147483630
FontName ="Tahoma"
End
Begin OptionButton
SpecialEffect = 2
LabelX = 230
LabelY = -30
End
Begin CheckBox
SpecialEffect = 2
LabelX = 230
LabelY = -30
End
Begin OptionGroup
SpecialEffect = 3
End
Begin TextBox
SpecialEffect = 2
OldBorderStyle = 0
FontName ="Tahoma"
End
Begin ListBox
SpecialEffect = 2
FontName ="Tahoma"
End
Begin ComboBox
SpecialEffect = 2
FontName ="Tahoma"
End
Begin ToggleButton
FontSize = 8
FontWeight = 400
ForeColor = -2147483630
FontName ="Tahoma"
End
Begin Section
Height = 5100
BackColor = -2147483633
Name ="Detail"
Begin
Begin TextBox
OverlapFlags = 85
Left = 660
Top = 360
Name ="Text1"
Begin
Begin Label
OverlapFlags = 85
Left = 60
Top = 360
Width = 555
Height = 240
Name ="Label2"
Caption ="Text1:"
End
End
End
Begin Label
OverlapFlags = 85
Left = 60
Top = 60
Width = 2220
Height = 210
Name ="Label3"
Caption ="Label"
End
Begin OptionGroup
OverlapFlags = 85
Left = 480
Top = 3360
Height = 480
TabIndex = 7
Name ="Frame4"
Begin
Begin Label
BackStyle = 1
OverlapFlags = 215
Left = 600
Top = 3240
Width = 615
Height = 240
BackColor = -2147483633
Name ="Label5"
Caption ="Frame4"
End
End
End
Begin ToggleButton
OverlapFlags = 85
Left = 780
Top = 3960
TabIndex = 8
Name ="Toggle6"
End
Begin OptionButton
OverlapFlags = 85
Left = 960
Top = 2550
TabIndex = 5
Name ="Option7"
Begin
Begin Label
OverlapFlags = 247
Left = 1190
Top = 2520
Width = 645
Height = 240
Name ="Label8"
Caption ="Option7"
End
End
End
Begin CheckBox
OverlapFlags = 85
Left = 960
Top = 2940
TabIndex = 6
Name ="Check9"
Begin
Begin Label
OverlapFlags = 247
Left = 1190
Top = 2910
Width = 600
Height = 240
Name ="Label10"
Caption ="Check9"
End
End
End
Begin ComboBox
OverlapFlags = 85
Left = 960
Top = 660
TabIndex = 1
Name ="Combo11"
RowSourceType ="Table/Query"
Begin
Begin Label
OverlapFlags = 85
Left = 60
Top = 660
Width = 810
Height = 240
Name ="Label12"
Caption ="Combo11:"
End
End
End
Begin ListBox
OverlapFlags = 85
Left = 960
Top = 1680
Height = 600
TabIndex = 4
Name ="List13"
RowSourceType ="Table/Query"
Begin
Begin Label
OverlapFlags = 85
Left = 60
Top = 1680
Width = 555
Height = 240
Name ="Label14"
Caption ="List13:"
End
End
End
Begin CommandButton
OverlapFlags = 85
Left = 480
Top = 4740
TabIndex = 9
Name ="Command15"
Caption ="Command15"
End
Begin ComboBox
OverlapFlags = 85
Left = 960
Top = 1020
TabIndex = 2
Name ="Combo16"
RowSourceType ="Table/Query"
Begin
Begin Label
OverlapFlags = 85
Left = 60
Top = 1020
Width = 810
Height = 240
Name ="Label17"
Caption ="Combo11:"
End
End
End
Begin ComboBox
OverlapFlags = 85
Left = 960
Top = 1380
TabIndex = 3
Name ="Combo18"
RowSourceType ="Table/Query"
Begin
Begin Label
OverlapFlags = 85
Left = 60
Top = 1380
Width = 810
Height = 240
Name ="Label19"
Caption ="Combo11:"
End
End
End
End
End
End
End
CodeBehindForm
Option Compare Database
Option Explicit
Public fclsFrm As clsFrm
Private Sub Form_Open(Cancel As Integer)
Set fclsFrm = New clsFrm
fclsFrm.mInit Me
End Sub
</text>
--
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
"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