Version =20
VersionRequired =20
Checksum =-306312192
Begin Form
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =26011
    DatasheetFontHeight =10
    ItemSuffix =160
    Left =1320
    Top =75
    Right =27330
    Bottom =12510
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x49a5ec2c6870e340
    End
    RecordSource ="tbl_ad"
    Caption ="bcs group Analyse"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010400069c00bc031fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000000000000000000000000000000000000000000050524956 ,
        0xe030000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000180000000000102710271027 ,
        0x000010270000000000000000e800bc0300000000000000000000000000000000 ,
        0x0000000000000000030000000000000000001000503403002888040000000000 ,
        0x000000000000000000000000000000000000000000000000cb0077d408000000 ,
        0x00000000010001000000ff000200000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x01000000000000000000000000000000e8000000534d544a000000001000d800 ,
        0x4100700070006c00650020004c00610073006500720057007200690074006500 ,
        0x72002000380035003000300000005265736f6c7574696f6e0036303064706900 ,
        0x4475706c6578004e6f6e650042697473506572506978656c004e6f6e6500536d ,
        0x6f6f7468696e670046616c7365005061676553697a65004c6574746572005061 ,
        0x6765526567696f6e0000496e707574536c6f74005374616e6461726443617373 ,
        0x6574746500547261795377697463680054727565000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x08001f0057000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000545330303100
    End
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        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 ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        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
                0xa639d10569e51e418636ce6aa734e851
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =11313
            Name ="Detailbereich"
            GUID = Begin
                0xd7f5c8ffdbf6cb46a2a3224d390277db
            End
            Begin
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =287
                    Top =574
                    Width =1695
                    Height =330
                    FontSize =12
                    TabIndex =2
                    BorderColor =16777164
                    Name ="Von"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    InputMask ="00/00/0000;0;_"
                    GUID = Begin
                        0x48ad47a9ec1854498efda6a24c55225e
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =13096
                    Top =1123
                    Width =1545
                    Height =225
                    Name ="Bezeichnungsfeld95"
                    Caption ="AD auswählen"
                    FontName ="Arial"
                    GUID = Begin
                        0x06d2e27c5d3cf1438d6109bcc38df098
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =283
                    Top =911
                    Width =1530
                    Height =225
                    Name ="Bezeichnungsfeld97"
                    Caption ="Von Datum"
                    FontName ="Arial"
                    GUID = Begin
                        0xa55c5fde8f446d48be48ea4421a65f7f
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13096
                    Top =793
                    Width =8505
                    Height =345
                    FontSize =12
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xcd8f2420d57fb949bc62134c81d58cea
                    End
                    Name ="AD"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_ADAnalyse"
                    DefaultValue ="=\"*\""
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2548
                    Top =566
                    Width =2265
                    Height =345
                    FontSize =12
                    TabIndex =3
                    BorderColor =16777164
                    Name ="Bis"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    InputMask ="00/00/0000;0;_"
                    GUID = Begin
                        0xb0c05fcc8e60264e8c3dec6c50c6fb06
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =2548
                            Top =906
                            Width =2100
                            Height =240
                            Name ="Bezeichnungsfeld101"
                            Caption ="Bis Datum"
                            FontName ="Arial"
                            GUID = Begin
                                0x65441b8005471443bb41a47e130c6257
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =13096
                    Top =10723
                    Width =576
                    Height =576
                    TabIndex =13
                    Name ="Befehl104"
                    Caption ="Befehl104"
                    OnClick ="Mrk_FilterAnalyseSetzen"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular öffnen"
                    GUID = Begin
                        0xbc23aa53b7fcaf4ea0e7b62c7c53cf8e
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =19891
                    Top =10737
                    Width =576
                    Height =576
                    TabIndex =16
                    Name ="Befehl103"
                    Caption ="Befehl103"
                    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
                        0x7ba3556c2520d842b881f5be5599378e
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =13096
                    Top =1693
                    Width =1545
                    Height =225
                    Name ="Bezeichnungsfeld105"
                    Caption ="Agent auswählen"
                    FontName ="Arial"
                    GUID = Begin
                        0xbfcf9cff50874449ba506650e4285419
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13096
                    Top =1363
                    Width =8505
                    Height =345
                    FontSize =12
                    TabIndex =1
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xab797120ec461443b32c80fa6250a05f
                    End
                    Name ="Agent"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentAktiv"
                    DefaultValue ="=\"*\""
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin Label
                    OverlapFlags =93
                    Left =13096
                    Top =2878
                    Width =1545
                    Height =225
                    Name ="Bezeichnungsfeld111"
                    Caption ="Aktiv"
                    FontName ="Arial"
                    GUID = Begin
                        0xb16246c6eec5f64b8e2fd413cd669865
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13096
                    Top =2548
                    Width =1680
                    Height =345
                    FontSize =12
                    TabIndex =6
                    BorderColor =16777164
                    GUID = Begin
                        0xa8817d3be826ae4db8b7aa1f44c4f2b1
                    End
                    Name ="Aktiv"
                    RowSourceType ="Value List"
                    RowSource ="\"1\";\"0\";\"*\""
                    DefaultValue ="=\"1\""
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =13773
                    Top =10735
                    Width =1065
                    Height =576
                    TabIndex =14
                    Name ="Befehl115"
                    Caption ="Analyse AD"
                    OnClick ="Mkr_openAnalyseAD"
                    GUID = Begin
                        0x55623d00c49f7a49ad6d0756e04288aa
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15020
                    Top =10735
                    Width =576
                    Height =576
                    TabIndex =15
                    Name ="Befehl116"
                    Caption ="Befehl116"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff002727272727272727727272727272727227ffffffffffff27 ,
                        0x72fffffff727277227f2727272f2722772f727272f272f7227f27272f2727f27 ,
                        0x72ff272f27272f7227fff2f2727fff2772ff2f272727ff7227f2f27272727f27 ,
                        0x72f72727f7272f7227f2727fff727f2772ffffffffffff722727272727272727 ,
                        0x7272727272727272000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Analyse in Excel"
                    GUID = Begin
                        0x567719ac41fef74a9a0f650244916f1a
                    End
                End
                Begin TextBox
                    OverlapFlags =93
                    TextFontFamily =0
                    IMESentenceMode =3
                    Left =17341
                    Top =1933
                    Width =1881
                    Height =345
                    FontSize =12
                    TabIndex =4
                    Name ="Kundennummer"
                    DefaultValue ="=\"*\""
                    FontName ="Aria"
                    GUID = Begin
                        0xfe249bd8470b9748aee52aa075c9ee08
                    End
                End
                Begin Label
                    OverlapFlags =87
                    Left =17341
                    Top =2278
                    Width =1200
                    Height =225
                    Name ="Bezeichnungsfeld119"
                    Caption ="Kundennummer"
                    FontName ="Arial"
                    GUID = Begin
                        0xdff3d0e9843f4744a21673b0f3da0728
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =15361
                    Top =2953
                    Width =1530
                    Height =225
                    Name ="Bezeichnungsfeld121"
                    Caption ="Callcenter"
                    FontName ="Arial"
                    GUID = Begin
                        0x478d639551d353478534cc2a402e4e88
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =13096
                    Top =3508
                    Width =1545
                    Height =225
                    Name ="Bezeichnungsfeld122"
                    Caption ="Urspung Ergebnis"
                    FontName ="Arial"
                    GUID = Begin
                        0x058ccca3780f1f40ad94777825f69780
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =223
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13096
                    Top =3178
                    Width =8505
                    Height =345
                    FontSize =12
                    TabIndex =9
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xc40cbefc77e7eb4d8deef46dbb87583c
                    End
                    Name ="Ergebnis"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_ErgebnisAuswahl"
                    DefaultValue ="\"*\""
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin Label
                    OverlapFlags =85
                    Left =13156
                    Top =10273
                    Width =1545
                    Height =225
                    Name ="Bezeichnungsfeld125"
                    Caption ="Auswahl Analyse"
                    FontName ="Arial"
                    GUID = Begin
                        0x52a5067e4ef0ea49b95058dd491ec60c
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =13096
                    Top =4138
                    Width =1545
                    Height =225
                    Name ="Bezeichnungsfeld128"
                    Caption ="SP TW Status"
                    FontName ="Arial"
                    GUID = Begin
                        0xb5e5b27e4777fc428d2e21be45cd9b20
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13096
                    Top =3808
                    Width =8505
                    Height =345
                    FontSize =12
                    TabIndex =10
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0xf02f06d58d99154892b899731c81132e
                    End
                    Name ="SPTW Status"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_SPTWAuswahl"
                    DefaultValue ="=\"*\""
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                    EventProcPrefix ="SPTW_Status"
                End
                Begin ComboBox
                    OldBorderStyle =0
                    OverlapFlags =87
                    TextFontFamily =0
                    IMESentenceMode =3
                    Left =15361
                    Top =2608
                    Width =2841
                    Height =345
                    FontSize =12
                    TabIndex =7
                    ColumnInfo ="\"\";\"\";\"10\";\"400\""
                    GUID = Begin
                        0x1e5932e6b361094093b80d849446379a
                    End
                    Name ="Callcenter"
                    RowSourceType ="Table/Query"
                    RowSource ="qryOffice"
                    DefaultValue ="=\"*\""
                    FontName ="Aria"
                End
                Begin Label
                    OverlapFlags =95
                    Left =18766
                    Top =2953
                    Width =1530
                    Height =225
                    Name ="Bezeichnungsfeld138"
                    Caption ="Arbeitgeber"
                    FontName ="Arial"
                    GUID = Begin
                        0x3a1501a79a6e5d49a32701519803b2c6
                    End
                End
                Begin ComboBox
                    OldBorderStyle =0
                    OverlapFlags =87
                    TextFontFamily =0
                    IMESentenceMode =3
                    Left =18766
                    Top =2608
                    Width =2841
                    Height =345
                    FontSize =12
                    TabIndex =8
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0xfa0076765bdf2d43a698fef6b7c13e8b
                    End
                    Name ="Arbeitgeber"
                    RowSourceType ="Table/Query"
                    RowSource ="qryAG"
                    DefaultValue ="=\"*\""
                    FontName ="Aria"
                End
                Begin TextBox
                    OverlapFlags =93
                    TextFontFamily =0
                    IMESentenceMode =3
                    Left =19396
                    Top =1933
                    Width =2211
                    Height =345
                    FontSize =12
                    TabIndex =5
                    Name ="Ort"
                    FontName ="Aria"
                    GUID = Begin
                        0xf222b08c53d3ea469a3850be952a67f7
                    End
                End
                Begin Label
                    OverlapFlags =87
                    Left =19396
                    Top =2278
                    Width =1200
                    Height =255
                    Name ="Bezeichnungsfeld141"
                    Caption ="Ort"
                    FontName ="Arial"
                    GUID = Begin
                        0xe12f014f14b02b4496d525ef15fe595f
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =22111
                    Top =1123
                    Width =1680
                    Height =225
                    Name ="Bezeichnungsfeld142"
                    Caption ="Terminart differenziert"
                    FontName ="Arial"
                    GUID = Begin
                        0x626afec4e5e55d4795ef13b2b3cfe576
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =22111
                    Top =793
                    Width =3900
                    Height =345
                    FontSize =12
                    TabIndex =11
                    BoundColumn =1
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x6374df184d09e94cb717cce314b2cfff
                    End
                    Name ="Terminart"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_TerminartAuswahl"
                    DefaultValue ="\"*\""
                    FontName ="Arial"
                    BaseInfo ="\"qry_TerminartAuswahl\";\"tbl_terminart\";\"\";\"ID_TA\";\"Terminart\";\"PRIMAR"
                        "Y\""
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =93
                    BackStyle =0
                    IMESentenceMode =3
                    Left =22115
                    Top =2053
                    Width =1695
                    Height =330
                    FontSize =12
                    TabIndex =12
                    BorderColor =16777164
                    Name ="EndeWocheEnergie"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    InputMask ="00,00,0000;0;_"
                    GUID = Begin
                        0xa1e796dc08bfbe4894026809ca5d2bbb
                    End
                End
                Begin Label
                    OverlapFlags =87
                    Left =22111
                    Top =2383
                    Width =2550
                    Height =225
                    Name ="Bezeichnungsfeld147"
                    Caption ="Ende der Woche Forecast Energie"
                    FontName ="Arial"
                    GUID = Begin
                        0x189b831dab36f8418db0a9e12b0dcdb4
                    End
                End
                Begin Label
                    OverlapFlags =93
                    Left =22111
                    Top =1753
                    Width =1680
                    Height =225
                    Name ="Bezeichnungsfeld148"
                    Caption ="Terminart Kategorie"
                    FontName ="Arial"
                    GUID = Begin
                        0x44197b7086fa084797f99f9b1663dac9
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =22111
                    Top =1423
                    Width =3900
                    Height =345
                    FontSize =12
                    TabIndex =17
                    BorderColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x61eea09b65d0be48853e5eae1a4e1c57
                    End
                    Name ="Terminart Kategorie"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_TerminartAuswahKategorie"
                    DefaultValue ="=\"Telekommunikation\""
                    FontName ="Arial"
                    EventProcPrefix ="Terminart_Kategorie"
                End
                Begin Label
                    OverlapFlags =93
                    Left =22111
                    Top =3508
                    Width =2070
                    Height =225
                    Name ="Bezeichnungsfeld150"
                    Caption ="Termin / Termin Energie VK "
                    FontName ="Arial"
                    GUID = Begin
                        0xc8bc1449246cce4cbff210a39ba539a8
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =215
                    BackStyle =0
                    IMESentenceMode =3
                    Left =22111
                    Top =3178
                    Width =3900
                    Height =345
                    FontSize =12
                    TabIndex =18
                    BorderColor =16777164
                    GUID = Begin
                        0xb5e0e6dc9993844ca583f23fc2fa9510
                    End
                    Name ="Termin Termin Energie VK"
                    RowSourceType ="Value List"
                    RowSource ="\"Termin\";\"Termin Energie VK\""
                    DefaultValue ="\"Termin\""
                    FontName ="Arial"
                    EventProcPrefix ="Termin_Termin_Energie_VK"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =5612
                    Top =1700
                    Height =1003
                    TabIndex =19
                    Name ="Befehl153"
                    Caption ="Suchen Verträge die nicht in SST sind\015\012 Dann doppelklick auf Namen"
                    OnClick ="Mkr_frm_MAB_NichtSST"
                    GUID = Begin
                        0xa5aacb8be0468943b69206b1b92bb3a1
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =286
                    Top =1365
                    Width =1695
                    Height =330
                    FontSize =12
                    TabIndex =20
                    BorderColor =16777164
                    Name ="MonJahr"
                    FontName ="Arial"
                    GUID = Begin
                        0xee8dc60167131940a0b9279525b91f41
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =1712
                            Width =1575
                            Height =225
                            Name ="Bezeichnungsfeld155"
                            Caption ="Provision Monat Jahr"
                            FontName ="Arial"
                            GUID = Begin
                                0x504be8190e764b4e95d728e0106d84d3
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =87
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2550
                    Top =1365
                    Width =2265
                    Height =345
                    FontSize =12
                    TabIndex =21
                    BorderColor =16777164
                    Name ="Abrechnungsdatum Alt"
                    Format ="Short Date"
                    FontName ="Arial"
                    InputMask ="00,00,0000;0;_"
                    EventProcPrefix ="Abrechnungsdatum_Alt"
                    GUID = Begin
                        0x882a4b293da30d42bb95192cb08e2512
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =2550
                            Top =1710
                            Width =2310
                            Height =240
                            Name ="Bezeichnungsfeld157"
                            Caption ="Abrechnungsdatum Alt"
                            FontName ="Arial"
                            GUID = Begin
                                0xf921b57b6439bb4f85fd79b59628d639
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =87
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2550
                    Top =2055
                    Width =2265
                    Height =345
                    FontSize =12
                    TabIndex =22
                    BorderColor =16777164
                    Name ="Monat Jahr Alt"
                    FontName ="Arial"
                    EventProcPrefix ="Monat_Jahr_Alt"
                    GUID = Begin
                        0x0ae6cb1d2db78e46a70855108be9ebe5
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =2550
                            Top =2400
                            Width =2310
                            Height =240
                            Name ="Bezeichnungsfeld159"
                            Caption ="Monat Jahr Alt"
                            FontName ="Arial"
                            GUID = Begin
                                0xdee1ddba0c9a1e4ea73c22b38d102124
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x2c70036ae2134348a6e88c00a91310e5
            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 Termin_Formular__frische_Daten__öffnen_Click()
On Error GoTo Err_Termin_Formular__frische_Daten__öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Terminierung"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Termin_Formular__frische_Daten__öff:
    Exit Sub

Err_Termin_Formular__frische_Daten__öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Termin_Formular__frische_Daten__öff
    
End Sub
Private Sub Terminierung_Formular__nach_Status__öffnen_Click()
On Error GoTo Err_Terminierung_Formular__nach_Status__öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_TerminierungStatusAbfrage"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Terminierung_Formular__nach_Status_:
    Exit Sub

Err_Terminierung_Formular__nach_Status__öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Terminierung_Formular__nach_Status_
    
End Sub
Private Sub Terminübersicht_öffnen_Click()
On Error GoTo Err_Terminübersicht_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Terminübersicht"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Terminübersicht_öffnen_Click:
    Exit Sub

Err_Terminübersicht_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Terminübersicht_öffnen_Click
    
End Sub
Private Sub Quali_Formular_öffnen_Click()
On Error GoTo Err_Quali_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Quali"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Quali_Formular_öffnen_Click:
    Exit Sub

Err_Quali_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Quali_Formular_öffnen_Click
    
End Sub
Private Sub Kunden_Formular_öffnen_Click()
On Error GoTo Err_Kunden_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_KD"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Kunden_Formular_öffnen_Click:
    Exit Sub

Err_Kunden_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Kunden_Formular_öffnen_Click
    
End Sub
Private Sub AD_ZielIst_Berichtvorschau_Click()
On Error GoTo Err_AD_ZielIst_Berichtvorschau_Click

    Dim stDocName As String

    stDocName = "rep_ADZielIstErgebnis"
    DoCmd.OpenReport stDocName, acPreview

Exit_AD_ZielIst_Berichtvorschau_Click:
    Exit Sub

Err_AD_ZielIst_Berichtvorschau_Click:
    MsgBox Err.Description
    Resume Exit_AD_ZielIst_Berichtvorschau_Click
    
End Sub
Private Sub Abrechnung_ADTL_Berichtsvorschau_Click()
On Error GoTo Err_Abrechnung_ADTL_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_AbrechnungADTL"
    DoCmd.OpenReport stDocName, acPreview

Exit_Abrechnung_ADTL_Berichtsvorschau_Cl:
    Exit Sub

Err_Abrechnung_ADTL_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Abrechnung_ADTL_Berichtsvorschau_Cl
    
End Sub
Private Sub Abzug_Handysub_AD_Berichtsvorschau_Click()
On Error GoTo Err_Abzug_Handysub_AD_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_AbzugHandyAD"
    DoCmd.OpenReport stDocName, acPreview

Exit_Abzug_Handysub_AD_Berichtsvorschau_:
    Exit Sub

Err_Abzug_Handysub_AD_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Abzug_Handysub_AD_Berichtsvorschau_
    
End Sub
Private Sub Ergebnis_AD_Berichtsvorschau_Click()
On Error GoTo Err_Ergebnis_AD_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_ErgebnisStatistikAD"
    DoCmd.OpenReport stDocName, acPreview

Exit_Ergebnis_AD_Berichtsvorschau_Click:
    Exit Sub

Err_Ergebnis_AD_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Ergebnis_AD_Berichtsvorschau_Click
    
End Sub
Private Sub TL_Abrechnungscheck_Berichtsvorschau_Click()
On Error GoTo Err_TL_Abrechnungscheck_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_KundenTLabgerechnetjanein"
    DoCmd.OpenReport stDocName, acPreview

Exit_TL_Abrechnungscheck_Berichtsvorscha:
    Exit Sub

Err_TL_Abrechnungscheck_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_TL_Abrechnungscheck_Berichtsvorscha
    
End Sub
Private Sub Status_Statistik_Berichtsvorschau_Click()
On Error GoTo Err_Status_Statistik_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_StatusStatistik"
    DoCmd.OpenReport stDocName, acPreview

Exit_Status_Statistik_Berichtsvorschau_C:
    Exit Sub

Err_Status_Statistik_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Status_Statistik_Berichtsvorschau_C
    
End Sub
Private Sub Termine_ZielIst_Berichtsvorschau_Click()
On Error GoTo Err_Termine_ZielIst_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_TermineProduktionZielISt"
    DoCmd.OpenReport stDocName, acPreview

Exit_Termine_ZielIst_Berichtsvorschau_Cl:
    Exit Sub

Err_Termine_ZielIst_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Termine_ZielIst_Berichtsvorschau_Cl
    
End Sub
Private Sub Kosten_gesamt_ZielIst_Berichtsvorschau_Click()
On Error GoTo Err_Kosten_gesamt_ZielIst_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_Kosten_Gesamt_Ziel_Ist"
    DoCmd.OpenReport stDocName, acPreview

Exit_Kosten_gesamt_ZielIst_Berichtsvorsc:
    Exit Sub

Err_Kosten_gesamt_ZielIst_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_Kosten_gesamt_ZielIst_Berichtsvorsc
    
End Sub
Private Sub Terminimport_Telcom_Click()
On Error GoTo Err_Terminimport_Telcom_Click

    Dim stDocName As String

    stDocName = "qry_TerminimportTelcom"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Terminimport_Telcom_Click:
    Exit Sub

Err_Terminimport_Telcom_Click:
    MsgBox Err.Description
    Resume Exit_Terminimport_Telcom_Click
    
End Sub
Private Sub Befehl17_Click()
On Error GoTo Err_Befehl17_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Agenten_Stunden_Ist"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl17_Click:
    Exit Sub

Err_Befehl17_Click:
    MsgBox Err.Description
    Resume Exit_Befehl17_Click
    
End Sub
Private Sub Termin_Block_Formular_öffnen_Click()
On Error GoTo Err_Termin_Block_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Frm_TerminBlock"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Termin_Block_Formular_öffnen_Click:
    Exit Sub

Err_Termin_Block_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Termin_Block_Formular_öffnen_Click
    
End Sub
Private Sub Stunden_Ist_Formular_öffnen_Click()
On Error GoTo Err_Stunden_Ist_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Agenten_Stunden_Ist"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Stunden_Ist_Formular_öffnen_Click:
    Exit Sub

Err_Stunden_Ist_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Stunden_Ist_Formular_öffnen_Click
    
End Sub
Private Sub AD_Ziel_Ist_Berichtsvorschau_Click()
On Error GoTo Err_AD_Ziel_Ist_Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rep_ADZielIstErgebnisNEU"
    DoCmd.OpenReport stDocName, acPreview

Exit_AD_Ziel_Ist_Berichtsvorschau_Click:
    Exit Sub

Err_AD_Ziel_Ist_Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_AD_Ziel_Ist_Berichtsvorschau_Click
    
End Sub
Private Sub Provisionsvergleich_TL_öffnen_Click()
On Error GoTo Err_Provisionsvergleich_TL_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_VerträgeTL_akzeptiert"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Provisionsvergleich_TL_öffnen_Click:
    Exit Sub

Err_Provisionsvergleich_TL_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Provisionsvergleich_TL_öffnen_Click
    
End Sub
Private Sub AbrechnungscheckTL_öffnen_Click()
On Error GoTo Err_AbrechnungscheckTL_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_AbrechnungscheckTL"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AbrechnungscheckTL_öffnen_Click:
    Exit Sub

Err_AbrechnungscheckTL_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_AbrechnungscheckTL_öffnen_Click
    
End Sub
Private Sub Abrechnung_Formular_öffnen_Click()
On Error GoTo Err_Abrechnung_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Abrechnung"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abrechnung_Formular_öffnen_Click:
    Exit Sub

Err_Abrechnung_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Abrechnung_Formular_öffnen_Click
    
End Sub
Private Sub Alle_Termine_Kunden_Formular_öffnen_Click()
On Error GoTo Err_Alle_Termine_Kunden_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_KD_AlleTermine"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Alle_Termine_Kunden_Formular_öffnen:
    Exit Sub

Err_Alle_Termine_Kunden_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Alle_Termine_Kunden_Formular_öffnen
    
End Sub
Private Sub Abschlüsse_Kunden_Formular_öffnen_Click()
On Error GoTo Err_Abschlüsse_Kunden_Formular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_KD_AlleAbschlüsse"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abschlüsse_Kunden_Formular_öffnen_C:
    Exit Sub

Err_Abschlüsse_Kunden_Formular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Abschlüsse_Kunden_Formular_öffnen_C
    
End Sub
Private Sub AD_Ziel_Ist_o__Port__Berichtsvorschau_Click()
On Error GoTo Err_AD_Ziel_Ist_o__Port__Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rep_ADZielIstErgebnisNEUOhnePort"
    DoCmd.OpenReport stDocName, acPreview

Exit_AD_Ziel_Ist_o__Port__Berichtsvorsch:
    Exit Sub

Err_AD_Ziel_Ist_o__Port__Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_AD_Ziel_Ist_o__Port__Berichtsvorsch
    
End Sub
Private Sub AD_Ergebnis_o__Port__Berichtsvorschau_Click()
On Error GoTo Err_AD_Ergebnis_o__Port__Berichtsvorschau_Click

    Dim stDocName As String

    stDocName = "rpt_ErgebnisStatistikADohnePort"
    DoCmd.OpenReport stDocName, acPreview

Exit_AD_Ergebnis_o__Port__Berichtsvorsch:
    Exit Sub

Err_AD_Ergebnis_o__Port__Berichtsvorschau_Click:
    MsgBox Err.Description
    Resume Exit_AD_Ergebnis_o__Port__Berichtsvorsch
    
End Sub
Private Sub Termin_Import_T_elcom_Click()
On Error GoTo Err_Termin_Import_T_elcom_Click

    Dim stDocName As String

    stDocName = "qry_Terminimport_T-elcomNEU"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Termin_Import_T_elcom_Click:
    Exit Sub

Err_Termin_Import_T_elcom_Click:
    MsgBox Err.Description
    Resume Exit_Termin_Import_T_elcom_Click
    
End Sub
Private Sub Nachforderung_Click()
On Error GoTo Err_Nachforderung_Click

    Dim stDocName As String

    stDocName = "rpt_Nachforderungen"
    DoCmd.OpenReport stDocName, acPreview

Exit_Nachforderung_Click:
    Exit Sub

Err_Nachforderung_Click:
    MsgBox Err.Description
    Resume Exit_Nachforderung_Click
    
End Sub
Private Sub Reklastatistik_Click()
On Error GoTo Err_Reklastatistik_Click

    Dim stDocName As String

    stDocName = "qry_Reklastatistik"
    DoCmd.OpenReport stDocName, acPreview

Exit_Reklastatistik_Click:
    Exit Sub

Err_Reklastatistik_Click:
    MsgBox Err.Description
    Resume Exit_Reklastatistik_Click
    
End Sub
Private Sub Analyse_Terminierung_Click()
On Error GoTo Err_Analyse_Terminierung_Click

    Dim stDocName As String

    stDocName = "rpt_AnalyseTerminierung"
    DoCmd.OpenReport stDocName, acPreview

Exit_Analyse_Terminierung_Click:
    Exit Sub

Err_Analyse_Terminierung_Click:
    MsgBox Err.Description
    Resume Exit_Analyse_Terminierung_Click
    
End Sub
Private Sub Status_Statistik_HEUTE_Click()
On Error GoTo Err_Status_Statistik_HEUTE_Click

    Dim stDocName As String

    stDocName = "qry_StatusStatistikHeute"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Status_Statistik_HEUTE_Click:
    Exit Sub

Err_Status_Statistik_HEUTE_Click:
    MsgBox Err.Description
    Resume Exit_Status_Statistik_HEUTE_Click
    
End Sub
Private Sub Antje_Diagramm_Click()
On Error GoTo Err_Antje_Diagramm_Click

    Dim stDocName As String

    stDocName = "diag_Antje"
    DoCmd.OpenReport stDocName, acPreview

Exit_Antje_Diagramm_Click:
    Exit Sub

Err_Antje_Diagramm_Click:
    MsgBox Err.Description
    Resume Exit_Antje_Diagramm_Click
    
End Sub
Private Sub Vertragskunden_suchen_Click()
On Error GoTo Err_Vertragskunden_suchen_Click

    Dim stDocName As String

    stDocName = "qry_Kunden_AbschlüsseSUCHE"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Vertragskunden_suchen_Click:
    Exit Sub

Err_Vertragskunden_suchen_Click:
    MsgBox Err.Description
    Resume Exit_Vertragskunden_suchen_Click
    
End Sub
Private Sub Abschlüsse_Kunden_SUCHEN_Click()
On Error GoTo Err_Abschlüsse_Kunden_SUCHEN_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_KD_AlleAbschlüsseSUCHEN"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abschlüsse_Kunden_SUCHEN_Click:
    Exit Sub

Err_Abschlüsse_Kunden_SUCHEN_Click:
    MsgBox Err.Description
    Resume Exit_Abschlüsse_Kunden_SUCHEN_Click
    
End Sub
Private Sub ID_Ergebnis_Statistik_Click()
On Error GoTo Err_ID_Ergebnis_Statistik_Click

    Dim stDocName As String

    stDocName = "rep_IDErgebnisStatistik"
    DoCmd.OpenReport stDocName, acPreview

Exit_ID_Ergebnis_Statistik_Click:
    Exit Sub

Err_ID_Ergebnis_Statistik_Click:
    MsgBox Err.Description
    Resume Exit_ID_Ergebnis_Statistik_Click
    
End Sub
Private Sub ID_Ergebnis_Statistik2_Click()
On Error GoTo Err_ID_Ergebnis_Statistik2_Click

    Dim stDocName As String

    stDocName = "rpt_IDErgebnisStatistik"
    DoCmd.OpenReport stDocName, acPreview

Exit_ID_Ergebnis_Statistik2_Click:
    Exit Sub

Err_ID_Ergebnis_Statistik2_Click:
    MsgBox Err.Description
    Resume Exit_ID_Ergebnis_Statistik2_Click
    
End Sub
Private Sub Auswertung_Callcenter_Click()
On Error GoTo Err_Auswertung_Callcenter_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Start_Auswertung_Callcenter"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Auswertung_Callcenter_Click:
    Exit Sub

Err_Auswertung_Callcenter_Click:
    MsgBox Err.Description
    Resume Exit_Auswertung_Callcenter_Click
    
End Sub
Private Sub Auswertung_AD_Click()
On Error GoTo Err_Auswertung_AD_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Start_Auswertung_AD"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Auswertung_AD_Click:
    Exit Sub

Err_Auswertung_AD_Click:
    MsgBox Err.Description
    Resume Exit_Auswertung_AD_Click
    
End Sub
Private Sub Termin_Export_Callcenter_Click()
On Error GoTo Err_Termin_Export_Callcenter_Click

    Dim stDocName As String

    stDocName = "qry_Terminexport_frische_Daten"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Termin_Export_Callcenter_Click:
    Exit Sub

Err_Termin_Export_Callcenter_Click:
    MsgBox Err.Description
    Resume Exit_Termin_Export_Callcenter_Click
    
End Sub
Private Sub Test_Abschlüsse_Kunden_1_Click()
On Error GoTo Err_Test_Abschlüsse_Kunden_1_Click

    Dim stDocName As String

    stDocName = "qry_Kunden_Abschlüsse_Test_1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Test_Abschlüsse_Kunden_1_Click:
    Exit Sub

Err_Test_Abschlüsse_Kunden_1_Click:
    MsgBox Err.Description
    Resume Exit_Test_Abschlüsse_Kunden_1_Click
    
End Sub
Private Sub Kunden_ausschneiden_DB_FonLink_Click()
On Error GoTo Err_Kunden_ausschneiden_DB_FonLink_Click

    Dim stDocName As String

    stDocName = "qry_Kunden_Verteilen_FONLink"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Kunden_ausschneiden_DB_FonLink_Clic:
    Exit Sub

Err_Kunden_ausschneiden_DB_FonLink_Click:
    MsgBox Err.Description
    Resume Exit_Kunden_ausschneiden_DB_FonLink_Clic
    
End Sub
Private Sub Abschlüsse_Kunden_Namen_suchen_Click()
On Error GoTo Err_Abschlüsse_Kunden_Namen_suchen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_KD_AlleAbschlüsseNamenSUCHEN"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abschlüsse_Kunden_Namen_suchen_Clic:
    Exit Sub

Err_Abschlüsse_Kunden_Namen_suchen_Click:
    MsgBox Err.Description
    Resume Exit_Abschlüsse_Kunden_Namen_suchen_Clic
    
End Sub
Private Sub Abschlüsse_Kundennummer_suchen_Click()
On Error GoTo Err_Abschlüsse_Kundennummer_suchen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_KD_AlleAbschlüsseKundennummerSUCHEN"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abschlüsse_Kundennummer_suchen_Clic:
    Exit Sub

Err_Abschlüsse_Kundennummer_suchen_Click:
    MsgBox Err.Description
    Resume Exit_Abschlüsse_Kundennummer_suchen_Clic
    
End Sub
Private Sub Befehl61_Click()
On Error GoTo Err_Befehl61_Click

    Dim stDocName As String

    stDocName = "mkr_akt_frm_Rekla_WV"
    DoCmd.RunMacro stDocName

Exit_Befehl61_Click:
    Exit Sub

Err_Befehl61_Click:
    MsgBox Err.Description
    Resume Exit_Befehl61_Click
    
End Sub
Private Sub Befehl62_Click()
On Error GoTo Err_Befehl62_Click


    DoCmd.Close

Exit_Befehl62_Click:
    Exit Sub

Err_Befehl62_Click:
    MsgBox Err.Description
    Resume Exit_Befehl62_Click
    
End Sub
Private Sub Partnerformular_öffnen_Click()
On Error GoTo Err_Partnerformular_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Partnerfirma"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Partnerformular_öffnen_Click:
    Exit Sub

Err_Partnerformular_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Partnerformular_öffnen_Click
    
End Sub
Private Sub Partner_nach_Kundennummer_suchen_Click()
On Error GoTo Err_Partner_nach_Kundennummer_suchen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Partnerfirma_KDNR_suchen"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Partner_nach_Kundennummer_suchen_Cl:
    Exit Sub

Err_Partner_nach_Kundennummer_suchen_Click:
    MsgBox Err.Description
    Resume Exit_Partner_nach_Kundennummer_suchen_Cl
    
End Sub
Private Sub Adressverwaltung_Click()
On Error GoTo Err_Adressverwaltung_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Adressverwaltung"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Adressverwaltung_Click:
    Exit Sub

Err_Adressverwaltung_Click:
    MsgBox Err.Description
    Resume Exit_Adressverwaltung_Click
    
End Sub
Private Sub Mitarbeiter_Anlegen_Click()
On Error GoTo Err_Mitarbeiter_Anlegen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Start_Mitarbeiter_Anlegen"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Mitarbeiter_Anlegen_Click:
    Exit Sub

Err_Mitarbeiter_Anlegen_Click:
    MsgBox Err.Description
    Resume Exit_Mitarbeiter_Anlegen_Click
    
End Sub
Private Sub Abschlüsse_Kunden_nach_AD_Click()
On Error GoTo Err_Abschlüsse_Kunden_nach_AD_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_KD_AlleAbschlüsse_nachAD"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Abschlüsse_Kunden_nach_AD_Click:
    Exit Sub

Err_Abschlüsse_Kunden_nach_AD_Click:
    MsgBox Err.Description
    Resume Exit_Abschlüsse_Kunden_nach_AD_Click
    
End Sub
Private Sub Daisy_Import_Click()
On Error GoTo Err_Daisy_Import_Click

    Dim stDocName As String

    stDocName = "Mkr_DaisyImport"
    DoCmd.RunMacro stDocName

Exit_Daisy_Import_Click:
    Exit Sub

Err_Daisy_Import_Click:
    MsgBox Err.Description
    Resume Exit_Daisy_Import_Click
    
End Sub
Private Sub Neue_Bearbeitungsnummer_Click()
On Error GoTo Err_Neue_Bearbeitungsnummer_Click

    Dim stDocName As String

    stDocName = "Mkr_FilterEntfernen"
    DoCmd.RunMacro stDocName

Exit_Neue_Bearbeitungsnummer_Click:
    Exit Sub

Err_Neue_Bearbeitungsnummer_Click:
    MsgBox Err.Description
    Resume Exit_Neue_Bearbeitungsnummer_Click
    
End Sub
Private Sub Sende_Meldung_Click()
On Error GoTo Err_Sende_Meldung_Click

    Dim stDocName As String

    stDocName = "Mkr_MeldungAn"
    DoCmd.RunMacro stDocName

Exit_Sende_Meldung_Click:
    Exit Sub

Err_Sende_Meldung_Click:
    MsgBox Err.Description
    Resume Exit_Sende_Meldung_Click
    
End Sub
Private Sub Anmelden_Click()
On Error GoTo Err_Anmelden_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Anmeldung"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Anmelden_Click:
    Exit Sub

Err_Anmelden_Click:
    MsgBox Err.Description
    Resume Exit_Anmelden_Click
    
End Sub

Private Sub AD_GotFocus()
 Me!AD.DropDown
End Sub

Private Sub Agent_GotFocus()
 Me!Agent.DropDown
End Sub

Private Sub Aktiv_GotFocus()
 Me!Aktiv.DropDown
End Sub

Private Sub Befehl103_Click()
On Error GoTo Err_Befehl103_Click


    DoCmd.Close

Exit_Befehl103_Click:
    Exit Sub

Err_Befehl103_Click:
    MsgBox Err.Description
    Resume Exit_Befehl103_Click
    
End Sub
Private Sub Befehl104_Click()
On Error GoTo Err_Befehl104_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_ErgebnisEingabe"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl104_Click:
    Exit Sub

Err_Befehl104_Click:
    MsgBox Err.Description
    Resume Exit_Befehl104_Click
    
End Sub
Private Sub Befehl113_Click()
On Error GoTo Err_Befehl113_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "StatistikSupportAD"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl113_Click:
    Exit Sub

Err_Befehl113_Click:
    MsgBox Err.Description
    Resume Exit_Befehl113_Click
    
End Sub

Private Sub Ergebnis_GotFocus()
Me!Ergebnis.DropDown
End Sub

Private Sub FilterAuswertung_Exit(Cancel As Integer)
 Me!FilterAuswertung.DropDown
End Sub
Private Sub Befehl116_Click()
On Error GoTo Err_Befehl116_Click

    Dim stDocName As String

    stDocName = "Mkrtest"
    DoCmd.RunMacro stDocName

Exit_Befehl116_Click:
    Exit Sub

Err_Befehl116_Click:
    MsgBox Err.Description
    Resume Exit_Befehl116_Click
    
End Sub

Private Sub FilterAuswertung_GotFocus()
Me!FilterAuswertung.DropDown
End Sub

Private Sub SPTW_Status_GotFocus()
Me.SPTW_Status.DropDown
End Sub