Version =20
VersionRequired =20
Checksum =-474479063
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =17241
    DatasheetFontHeight =10
    ItemSuffix =131
    Left =525
    Top =1950
    Right =18735
    Bottom =10695
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xa7c7538d7b72e340
    End
    RecordSource ="qry_Handy_Gutschrift_UnterManuell"
    Caption ="bcs group Handyrechnungen Manuell"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    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
                0xe29c3896eb52504fa7eca23e0caa8a63
            End
            Begin
                Begin Label
                    OverlapFlags =93
                    TextAlign =1
                    Left =165
                    Top =60
                    Width =630
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="HandyLieferung_NR_Bezeichnungsfeld"
                    Caption ="ID"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x63b03ee0e440cc48ac67ed71b44d2d9b
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =795
                    Top =57
                    Width =1191
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Rechnungsnummer_Lieferant_Bezeichnungsfeld"
                    Caption ="RE Nr Lieferant"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd68bdcbee658404c84771e5d9e58ca39
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =1980
                    Top =60
                    Width =1305
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="RechnungsdatumLieferant_Bezeichnungsfeld"
                    Caption ="RE Dat. Lieferant"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x440dc181dcd1d744be3b0b0d9ce42d42
                    End
                End
                Begin Label
                    OverlapFlags =93
                    TextAlign =1
                    Left =6693
                    Top =57
                    Width =1113
                    Height =225
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Handybestell_NR_Bezeichnungsfeld"
                    Caption ="Handybest. Nr"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x7ec9cceb60f7524f87aba7d776ac3e89
                    End
                End
                Begin Label
                    OverlapFlags =93
                    TextAlign =1
                    Left =7818
                    Top =57
                    Width =966
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Artikelnummer_Bezeichnungsfeld"
                    Caption ="Artikelnr"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x373cfd664371d5438ba38f59b25b4ba3
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =8787
                    Top =57
                    Width =1191
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Artikelbezeichnung_Bezeichnungsfeld"
                    Caption ="Artikelbez."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xc2e832878bfd9140838757399f3ea4da
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =9978
                    Top =57
                    Width =594
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Anzahl_Bezeichnungsfeld"
                    Caption ="Anzahl"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xb24d93296b9e1344b1fbcf6af38d5f61
                    End
                End
                Begin Label
                    OverlapFlags =87
                    TextAlign =1
                    Left =3288
                    Top =57
                    Width =2301
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Imeinr_Bezeichnungsfeld"
                    Caption ="Imeinr"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xe5fae89707835e46a61e6a12c834f218
                    End
                End
                Begin Label
                    OverlapFlags =223
                    TextAlign =1
                    Left =10551
                    Top =57
                    Width =1125
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="EkEinzelpreisNetto_Bezeichnungsfeld"
                    Caption ="Ek Einzel netto"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x0d7555bef04e364ab983469d869d6393
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =11676
                    Top =60
                    Width =1215
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Gesamtbetrag_Bezeichnungsfeld"
                    Caption ="Ek Gesamt netto"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x091c5a00f7a2374989f6132082e508a2
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =12891
                    Top =57
                    Width =465
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="MwStSatz_Bezeichnungsfeld"
                    Caption ="MwSt"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xc6a59c1215226440bba2e1b080da5301
                    End
                End
                Begin Label
                    OverlapFlags =95
                    TextAlign =1
                    Left =13356
                    Top =57
                    Width =1140
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Einzel_VK_Preis_brutto_Bezeichnungsfeld"
                    Caption ="Vk einzel brutto"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x26ff73bb2bdb1c408bfa5be17a27e9b4
                    End
                End
                Begin Label
                    OverlapFlags =87
                    TextAlign =1
                    Left =14496
                    Top =57
                    Width =1305
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Gesamt_VK_Preis_brutto_Bezeichnungsfeld"
                    Caption ="Vk Gesamt brutto"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x116eec8ac41cbf49901994674968fb2e
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =15825
                    Top =57
                    Width =1176
                    Height =240
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Sachbearbeiter_Bezeichnungsfeld"
                    Caption ="Sachbearbeiter"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x0da6b1f414991f4fa83716af8c66402a
                    End
                End
                Begin Label
                    OverlapFlags =215
                    TextAlign =1
                    Left =5613
                    Top =57
                    Width =1113
                    Height =225
                    BackColor =-2147483633
                    ForeColor =-2147483630
                    Name ="Bezeichnungsfeld129"
                    Caption ="Bea Nr"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x6d37f13c49f6ba4e97cf9a801000fafd
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =396
            Name ="Detailbereich"
            GUID = Begin
                0xf00a24f023877a4ba723e9a5a71f36bb
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =93
                    TextAlign =1
                    IMESentenceMode =3
                    Left =120
                    Top =57
                    Width =669
                    Height =255
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="HandyLieferung_NR"
                    ControlSource ="HandyLieferung_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0x3f8fbe6606299f4dbfa7d1bcde9151c9
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    IMESentenceMode =3
                    Left =795
                    Top =57
                    Width =1191
                    Height =255
                    TabIndex =1
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Rechnungsnummer_Lieferant"
                    ControlSource ="Rechnungsnummer_Lieferant"
                    FontName ="Arial"
                    GUID = Begin
                        0x417c88bf8164f04d87a7ffd080590dde
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    IMESentenceMode =3
                    Left =1980
                    Top =57
                    Width =1302
                    Height =255
                    TabIndex =2
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="RechnungsdatumLieferant"
                    ControlSource ="RechnungsdatumLieferant"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0x77767d51de4d814ea5067d7f340fca3b
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =93
                    TextAlign =1
                    IMESentenceMode =3
                    Left =6690
                    Top =57
                    Width =1113
                    Height =255
                    TabIndex =5
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Handybestell_NR"
                    ControlSource ="Handybestell_NR"
                    DefaultValue ="=[Forms]![frmHandyNichtErledigt]![Handybestell_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0xa8c7de0404f65e4f8886331c8705153d
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =7815
                    Top =57
                    Width =966
                    Height =255
                    TabIndex =6
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Artikelnummer"
                    ControlSource ="Artikelnummer"
                    DefaultValue ="=[Forms]![frmHandyNichtErledigt]![Artikelnummer]"
                    FontName ="Arial"
                    GUID = Begin
                        0xc0cd874bbc14f144b7c342cb3c7ad64d
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =93
                    TextAlign =1
                    IMESentenceMode =3
                    Left =8784
                    Top =57
                    Width =1191
                    Height =255
                    TabIndex =7
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Artikelbezeichnung"
                    ControlSource ="Artikelbezeichnung"
                    DefaultValue ="=[Forms]![frmHandyNichtErledigt]![Artikelbezeichnung]"
                    FontName ="Arial"
                    GUID = Begin
                        0xa950c824e76da245bc0e7db6a818438f
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =95
                    TextAlign =1
                    IMESentenceMode =3
                    Left =9975
                    Top =57
                    Width =594
                    Height =255
                    TabIndex =8
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Anzahl"
                    ControlSource ="Anzahl"
                    DefaultValue ="=[Forms]![frmHandyNichtErledigt]![Anzahl]"
                    FontName ="Arial"
                    GUID = Begin
                        0xf586d1279defb243ad571e1d62345d05
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =87
                    TextAlign =1
                    IMESentenceMode =3
                    Left =3285
                    Top =57
                    Width =2301
                    Height =255
                    TabIndex =3
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Imeinr"
                    ControlSource ="Imeinr"
                    FontName ="Arial"
                    GUID = Begin
                        0x79d52c357075a54085b5898af9cb7e53
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =255
                    TextAlign =1
                    IMESentenceMode =3
                    Left =10548
                    Top =57
                    Width =1125
                    Height =255
                    TabIndex =9
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="EkEinzelpreisNetto"
                    ControlSource ="EkEinzelpreisNetto"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    OnExit ="MKr_EKGesamtpreisErrechnen"
                    DefaultValue ="=[Forms]![frmHandyNichtErledigt]![EkEinzelpreis]"
                    FontName ="Arial"
                    GUID = Begin
                        0x66277c9f9b566c45b3960b8400bba804
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =127
                    TextAlign =1
                    IMESentenceMode =3
                    Left =11673
                    Top =57
                    Width =1260
                    Height =255
                    TabIndex =10
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Gesamtbetrag"
                    ControlSource ="Gesamtbetrag"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    DefaultValue ="=[Form]![Anzahl]*[EkEinzelpreisNetto]"
                    FontName ="Arial"
                    GUID = Begin
                        0x6064592741d45544ac90b45cf7830554
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =127
                    TextAlign =1
                    IMESentenceMode =3
                    Left =12933
                    Top =57
                    Width =468
                    Height =255
                    TabIndex =11
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="MwStSatz"
                    ControlSource ="MwStSatz"
                    DefaultValue ="=\"19\""
                    FontName ="Arial"
                    GUID = Begin
                        0x5a65ab97e42e434da6cc607931704897
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =127
                    TextAlign =1
                    IMESentenceMode =3
                    Left =13401
                    Top =57
                    Width =1140
                    Height =255
                    TabIndex =12
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Einzel_VK_Preis_brutto"
                    ControlSource ="Einzel_VK_Preis_brutto"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    OnExit ="MKr_VKGesamtpreisErrechnen"
                    DefaultValue ="=[Forms]![frmHandyNichtErledigt]![VkEinzelpreis]"
                    FontName ="Arial"
                    GUID = Begin
                        0x6d40046d49705b44b9392a3ef0e541ef
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    SpecialEffect =0
                    OverlapFlags =119
                    TextAlign =1
                    IMESentenceMode =3
                    Left =14541
                    Top =57
                    Width =1305
                    Height =255
                    TabIndex =13
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Gesamt_VK_Preis_brutto"
                    ControlSource ="Gesamt_VK_Preis_brutto"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    DefaultValue ="=[Einzel_VK_Preis_brutto]*[Form]![Anzahl]"
                    FontName ="Arial"
                    GUID = Begin
                        0x150cc6d9730a3c4f9ceb6f9399447e8c
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =93
                    TextAlign =1
                    IMESentenceMode =3
                    Left =16563
                    Top =113
                    Width =108
                    Height =105
                    TabIndex =15
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text126"
                    ControlSource ="Import_Datum"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0x23d7afdec2b6534786f8735e8f767089
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OverlapFlags =247
                    TextAlign =1
                    IMESentenceMode =3
                    Left =15870
                    Top =57
                    Width =1176
                    Height =255
                    TabIndex =14
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Sachbearbeiter"
                    ControlSource ="Sachbearbeiter"
                    OnExit ="Mkr_GeheZuschliessen"
                    DefaultValue ="=[Forms]![frm_Haupt]![Terminierer]"
                    FontName ="Arial"
                    GUID = Begin
                        0xcb328055b1204a42ae20827a09d189ab
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =247
                    TextAlign =1
                    IMESentenceMode =3
                    Left =5595
                    Top =60
                    Width =1113
                    Height =255
                    TabIndex =4
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="Text130"
                    ControlSource ="BearbeitungsNR"
                    DefaultValue ="=[Forms]![frmHandyNichtErledigt]![BearbeitungsNR]"
                    FontName ="Arial"
                    GUID = Begin
                        0xf5238e11ee6e4946bbb34439742cbd54
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x6aa85503846d9b4db5c9c6b16e63d8dd
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =16680
                    Top =30
                    Width =501
                    Height =516
                    FontWeight =700
                    TabIndex =1
                    Name ="Schließen"
                    Caption ="Befehl113"
                    OnClick ="MKr_HandyrechnungMAnuellschliessen"
                    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
                        0x08dc6fef9d7e2546846128e0d0be6166
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =16140
                    Top =30
                    Width =501
                    Height =516
                    FontWeight =700
                    Name ="Befehl127"
                    Caption ="Befehl113"
                    OnClick ="Mkr_RechnungenHeuteoeffnen"
                    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 schließen"
                    GUID = Begin
                        0x271f678ca6f1a8498e239f4d4099a691
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =165
                    Top =45
                    Width =501
                    Height =516
                    TabIndex =2
                    Name ="Befehl128"
                    Caption ="Befehl128"
                    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
                        0xa25a79ac35a26c4f9783f0e47e273734
                    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
Private Sub Befehl128_Click()
On Error GoTo Err_Befehl128_Click


    DoCmd.Close

Exit_Befehl128_Click:
    Exit Sub

Err_Befehl128_Click:
    MsgBox Err.Description
    Resume Exit_Befehl128_Click
    
End Sub