Version =20
VersionRequired =20
Checksum =1750250960
Begin Form
    AutoCenter = NotDefault
    FilterOn = NotDefault
    AllowDesignChanges = NotDefault
    TabularFamily =48
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =5159
    DatasheetFontHeight =10
    ItemSuffix =6
    Left =345
    Top =1800
    Right =21255
    Bottom =12345
    DatasheetGridlinesColor =12632256
    Filter ="Firma like '*Huber*'"
    OrderBy ="Abfrage6.KDNR"
    RecSrcDt = Begin
        0x37c689617668e540
    End
    RecordSource ="Abfrage6"
    Caption ="Abfrage6"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =623
            BackColor =-2147483633
            Name ="Formularkopf"
            GUID = Begin
                0x467250b9367dea4499585a65fe062559
            End
            Begin
                Begin TextBox
                    OverlapFlags =215
                    IMESentenceMode =3
                    Left =623
                    Top =113
                    Name ="FirmaFilter"
                    OnDblClick ="[Event Procedure]"
                    GUID = Begin
                        0x2b4a8f499b62f244bd18e2f95a20b224
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Top =120
                            Width =870
                            Height =240
                            Name ="Bezeichnungsfeld5"
                            Caption ="Firma Filter:"
                            GUID = Begin
                                0x75763b9c381de24da5a93cc7b72d4152
                            End
                        End
                    End
                End
            End
        End
        Begin Section
            Height =977
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0xc8be304b643b4344bdfc41a99dd335b7
            End
            Begin
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1677
                    Top =114
                    Width =900
                    Height =255
                    ColumnWidth =5655
                    Name ="KDNR"
                    ControlSource ="KDNR"
                    OnDblClick ="Mkr_frmTest1"
                    GUID = Begin
                        0xcce0e4487ebff546b0493696646c159f
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =114
                            Width =1560
                            Height =255
                            Name ="KDNR_Bezeichnungsfeld"
                            Caption ="KDNR"
                            GUID = Begin
                                0x47ae148a0f6be94b94ba74f55ea93fa6
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3458
                    Top =396
                    ColumnWidth =3255
                    TabIndex =1
                    Name ="FirmaUnter"
                    ControlSource ="Firma"
                    OnDblClick ="[Event Procedure]"
                    GUID = Begin
                        0x5c18413c0380ce46bec1145327a6c280
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =1757
                            Top =396
                            Width =495
                            Height =240
                            Name ="Bezeichnungsfeld2"
                            Caption ="Firma:"
                            GUID = Begin
                                0xbe6eb187e2aade4d849896e4d7ab70e7
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3458
                    Top =737
                    ColumnWidth =5310
                    TabIndex =2
                    Name ="Name"
                    ControlSource ="Name"
                    GUID = Begin
                        0x780d85301767304193da02d231ee77ea
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =1757
                            Top =737
                            Width =540
                            Height =240
                            Name ="Bezeichnungsfeld3"
                            Caption ="Name:"
                            GUID = Begin
                                0xe28a9f8aa020164594bf029c9056cbfe
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =-2147483633
            Name ="Formularfuß"
            GUID = Begin
                0x408ba06ad1211542b52265296bb5ce3d
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database

Private Sub FirmaFilter_DblClick(Cancel As Integer)
Me.Filter = "Firma like '*" & Me.FirmaFilter & "*'"
Me.FilterOn = True
End Sub

Private Sub FirmaUnter_DblClick(Cancel As Integer)
Me.Filter = "Firma" = [Forms]![frmDatensuchenHaupt]![FirmaHaupt]
Me.FilterOn = True
End Sub