[AccessD] the form for A97

MACE, Terry terry.mace at baesystems.com
Thu Feb 12 23:04:19 CST 2009


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."






More information about the AccessD mailing list