Version =20
VersionRequired =20
Checksum =-1990500632
Begin Form
    AutoResize = NotDefault
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =31680
    DatasheetFontHeight =10
    ItemSuffix =6
    Left =1875
    Top =1920
    Right =20820
    Bottom =10635
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xd5b429a21471e340
    End
    Caption ="bcs group Terminauswertung"
    DatasheetFontName ="Arial"
    Moveable =0
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xc2c2002cf3a99f4a9d078ae301be3017
            End
            Begin
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =225
                    Top =120
                    Width =2331
                    Height =330
                    FontSize =12
                    Name ="Termindatum"
                    Format ="Short Date"
                    DefaultValue ="=Date()-1"
                    FontName ="Arial"
                    GUID = Begin
                        0xb5d2435466fe0f4c90f2b030c0e87e74
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2663
                    Top =120
                    Width =2331
                    Height =330
                    FontSize =12
                    TabIndex =1
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xadc988a42f4b594f965af33150be6108
                    End
                    Name ="AD"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_ADAktiv2"
                    FontName ="Arial"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =5102
                    Top =113
                    Width =351
                    Height =345
                    TabIndex =2
                    Name ="OK"
                    Caption ="OK"
                    OnClick ="Mkr_Terminauswertung"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Befehl ausführen"
                    GUID = Begin
                        0x05878551ba5e3940a13682c229b74810
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =7596
            Name ="Detailbereich"
            GUID = Begin
                0xa86da1c754ff404c89d0903d48ad5c25
            End
            Begin
                Begin Subform
                    OverlapFlags =85
                    Left =113
                    Top =340
                    Width =23077
                    Height =4350
                    Name ="frm_TermineErgebnisTabelle"
                    SourceObject ="Form.frm_TermineErgebnisTabelle"
                    GUID = Begin
                        0x543910da57cbe0498cab0a7527c84902
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x82d5556d3b910d4dab1d47843f31055d
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =60
                    Top =30
                    Width =516
                    Height =516
                    Name ="Befehl0"
                    Caption ="Befehl0"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular schließen"
                    GUID = Begin
                        0x7a3c55361b9dba4eab709e7fa168a5fc
                    End
                End
            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 Befehl0_Click()
On Error GoTo Err_Befehl0_Click


    DoCmd.Close

Exit_Befehl0_Click:
    Exit Sub

Err_Befehl0_Click:
    MsgBox Err.Description
    Resume Exit_Befehl0_Click
    
End Sub