Version =20
VersionRequired =20
Checksum =251429923
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    OrderByOn = NotDefault
    AllowDesignChanges = NotDefault
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =18481
    DatasheetFontHeight =10
    ItemSuffix =158
    Left =1590
    Top =4485
    Right =20070
    Bottom =15090
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xb3550db32d9ce340
    End
    RecordSource ="qry_RetentionKontroling1"
    Caption ="bcs group Retention Kontrolle"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    Moveable =0
    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 ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =396
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x7da3512073c55f46929c2621cf6e446e
            End
            Begin
                Begin Label
                    OverlapFlags =93
                    TextAlign =1
                    Top =57
                    Width =966
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="KD_NR_Bezeichnungsfeld"
                    Caption ="KD_NR"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x3e3b0afff2d961498460012d8d82064f
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =966
                    Top =57
                    Width =1926
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Firma_Bezeichnungsfeld"
                    Caption ="Firma"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x59044d3cd793da42bdf8f9be45104609
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =2892
                    Top =57
                    Width =1281
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Name_Bezeichnungsfeld"
                    Caption ="Name"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x47a7523263d15845a5277361f0e7fce0
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =4173
                    Top =57
                    Width =1374
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="MSISDN_Bezeichnungsfeld"
                    Caption ="MSISDN"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xa11ddb6937883f479a3200dd445fc170
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =5547
                    Top =57
                    Width =456
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="R_Bezeichnungsfeld"
                    Caption ="R"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xca7b28c4e6fc5d4e9b87ff59d1c6ebc7
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =6003
                    Top =57
                    Width =1689
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Buchungsnummer_Bezeichnungsfeld"
                    Caption ="Buchungsnummer"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xeb662a92ada4af4893a4d11f1dda3933
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =7692
                    Top =57
                    Width =1506
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Art_Bezeichnungsfeld"
                    Caption ="Art"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x33fed2b92d0ed74480938907a99e8643
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =9198
                    Top =57
                    Width =1776
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Artikelbezeichnung_Bezeichnungsfeld"
                    Caption ="Artikelbezeichnung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x483164c9f329db4f91dfee459ecb19f1
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =10974
                    Top =57
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="EK_Bezeichnungsfeld"
                    Caption ="EK"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x0accdba09d64a847b5bbf184e77fa825
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =11868
                    Top =57
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="VK_Bezeichnungsfeld"
                    Caption ="VK"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd1e8382ddd2f3c48b4eb80e5090cff15
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =12762
                    Top =57
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Sub netto_Bezeichnungsfeld"
                    Caption ="Sub netto"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Sub_netto_Bezeichnungsfeld"
                    GUID = Begin
                        0x5032ccd1ebd6504abc07dd622110df8f
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =13656
                    Top =57
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Hardware B_Bezeichnungsfeld"
                    Caption ="Hardware B"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Hardware_B_Bezeichnungsfeld"
                    GUID = Begin
                        0x0598a66da60e8f46933ebd43754203a0
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =14550
                    Top =57
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Prov_Bezeichnungsfeld"
                    Caption ="Prov"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xf55e10e998206c4db037df598d925ebe
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =15444
                    Top =57
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Deckung_Bezeichnungsfeld"
                    Caption ="Deckung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x7d7e34c8b8a1b84a8b92ba06d8d42796
                    End
                End
                Begin Label
                    OverlapFlags =87
                    TextAlign =1
                    Left =16335
                    Top =57
                    Width =1506
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld134"
                    Caption ="Bea - Nummer"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x9d21e550a8313b4e8c0bf7142c34c502
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =396
            Name ="Detailbereich"
            GUID = Begin
                0x737729026e9364499a6d84650b601367
            End
            Begin
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =93
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Top =57
                    Width =966
                    Height =255
                    FontSize =9
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="KD_NR"
                    ControlSource ="KD_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0xa7fa0d7f9a197645a35cbce70c96506b
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =966
                    Top =57
                    Width =1926
                    Height =255
                    FontSize =9
                    TabIndex =1
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Firma"
                    ControlSource ="Firma"
                    FontName ="Arial"
                    GUID = Begin
                        0xdcdbc05211911c47af018991ee725efb
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2892
                    Top =57
                    Width =1281
                    Height =255
                    FontSize =9
                    TabIndex =2
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Name"
                    ControlSource ="Name"
                    FontName ="Arial"
                    GUID = Begin
                        0xe455d1438d042f458fee2bd8a3321f51
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =4173
                    Top =57
                    Width =1374
                    Height =255
                    FontSize =9
                    TabIndex =3
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="MSISDN"
                    ControlSource ="MSISDN"
                    FontName ="Arial"
                    GUID = Begin
                        0xb582058eaa2ea3428a6ffcdb46af3be7
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =5547
                    Top =57
                    Width =456
                    Height =255
                    FontSize =9
                    TabIndex =4
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="R"
                    ControlSource ="R"
                    FontName ="Arial"
                    GUID = Begin
                        0x78fa20875ef4b949b3ef99908cd6d099
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =6003
                    Top =57
                    Width =1689
                    Height =255
                    FontSize =9
                    TabIndex =5
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Buchungsnummer"
                    ControlSource ="Buchungsnummer"
                    FontName ="Arial"
                    GUID = Begin
                        0xd503d125957a5b48a06001cf282895e6
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =7692
                    Top =57
                    Width =1506
                    Height =255
                    FontSize =9
                    TabIndex =6
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Art"
                    ControlSource ="Art"
                    FontName ="Arial"
                    GUID = Begin
                        0xcbd3b1e9d1b9234d934128180339b99f
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =9198
                    Top =57
                    Width =1776
                    Height =255
                    FontSize =9
                    TabIndex =7
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Artikelbezeichnung"
                    ControlSource ="Artikelbezeichnung"
                    FontName ="Arial"
                    GUID = Begin
                        0x4f021cfa01b65e48b7555800ca6b1b89
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =10974
                    Top =57
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =8
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="EK"
                    ControlSource ="EK"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x5ecc9ec9c1a4de4f8341885309b2f966
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =11868
                    Top =57
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =9
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="VK"
                    ControlSource ="VK"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x9101084ba532804b80f55b827dc04b20
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =12762
                    Top =57
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =10
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Sub netto"
                    ControlSource ="Sub netto"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    EventProcPrefix ="Sub_netto"
                    GUID = Begin
                        0xd2ac1c23c72bda4fb429dd9c4d1c36cf
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13656
                    Top =57
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =11
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Hardware B"
                    ControlSource ="Hardware B"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    EventProcPrefix ="Hardware_B"
                    GUID = Begin
                        0x42d8380f6e0c9f4f8d567d9959b188f6
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =14550
                    Top =57
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =12
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Prov"
                    ControlSource ="Prov"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x69071b6e43127040b5351ec7be58eb9c
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =15444
                    Top =57
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =13
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Deckung"
                    ControlSource ="Deckung"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x041462328335734c8c15055c078ff776
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =87
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =16335
                    Top =57
                    Width =1506
                    Height =255
                    FontSize =9
                    TabIndex =14
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text135"
                    ControlSource ="BearbeitungsNR"
                    FontName ="Arial"
                    GUID = Begin
                        0x12847d9f65bd2f4a814d92a05aa0051b
                    End
                End
            End
        End
        Begin FormFooter
            Height =525
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xdbf8a45caf3a404c8862f0b22e470d4b
            End
            Begin
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =93
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =10995
                    Width =894
                    Height =255
                    FontSize =9
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text145"
                    ControlSource ="=Sum([EK])"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x252f90361fe2e54698edb0b45d2d305c
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =11889
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =1
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text146"
                    ControlSource ="=Sum([VK])"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x4106b7183f2ccb49b5cbcd77fffc0e48
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =12783
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =2
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text147"
                    ControlSource ="=Sum([Sub netto])"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x61475cd92f021d44b2479fa3810fe258
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =13677
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =3
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text148"
                    ControlSource ="=Sum([Hardware B])"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0xe85a8d2be092514f8a15043de8be0af8
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =14571
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =4
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text149"
                    ControlSource ="=Sum([Prov])"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0x92b26defbdf3224ca5e55e96e10c62bd
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =87
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =15465
                    Width =894
                    Height =255
                    FontSize =9
                    TabIndex =5
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text150"
                    ControlSource ="=Sum([Deckung])"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    GUID = Begin
                        0xfd537045b34b84448107200763c7a48e
                    End
                End
                Begin Label
                    OverlapFlags =93
                    TextAlign =1
                    Left =10995
                    Top =285
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld151"
                    Caption ="EK"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd4a92275eba8ce48aac00850bbc94d1e
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =11889
                    Top =285
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld152"
                    Caption ="VK"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x10683b759e3f014d9d718c4c1b427a6e
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =12783
                    Top =285
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld153"
                    Caption ="Sub netto"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x24341927a1b028408ee2078b45e4b67e
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =13677
                    Top =285
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld154"
                    Caption ="Hardware B"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x81235e367532e044b88193adbb5b9d48
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =14571
                    Top =285
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld155"
                    Caption ="Prov"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x5cc0d1331384634783dff6239cc31139
                    End
                End
                Begin Label
                    OverlapFlags =87
                    TextAlign =1
                    Left =15465
                    Top =285
                    Width =894
                    Height =240
                    FontSize =9
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld156"
                    Caption ="Deckung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x00c811ebd894d94689ccc7172b16866b
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Width =4041
                    Height =255
                    FontSize =9
                    TabIndex =6
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text157"
                    ControlSource ="=\"Anzahl Retention\" & \" \" & Count([KD_NR])"
                    FontName ="Arial"
                    GUID = Begin
                        0x1341af4293d24c44a1ea8d5b1a615f45
                    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 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 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


    DoCmd.Close

Exit_Befehl113_Click:
    Exit Sub

Err_Befehl113_Click:
    MsgBox Err.Description
    Resume Exit_Befehl113_Click
    
End Sub