Version =20
VersionRequired =20
Checksum =-424030658
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =18538
    DatasheetFontHeight =10
    ItemSuffix =137
    Left =3180
    Top =2355
    Right =9135
    Bottom =7110
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xf85a6e04f270e340
    End
    RecordSource ="qry_Tarifwechsel"
    Caption ="bcs group Tarifwechsel"
    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 =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x1b19bcaa14c4f74aa63183337c0fad74
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =14173
                    Top =113
                    FontSize =10
                    FontWeight =700
                    Name ="KD_NR"
                    ControlSource ="KD_NR"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0xee6943c728ae15479099bd86ca8eab8c
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =9297
            Name ="Detailbereich"
            GUID = Begin
                0xe6673eee565a794494db47247748e830
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2203
                    Top =225
                    Width =13671
                    Height =285
                    FontSize =10
                    FontWeight =700
                    Name ="Tarifumstellung_NR"
                    ControlSource ="Tarifumstellung_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0x2f3082d108a34a4aaecf816dc1ec871e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =225
                            Top =225
                            Width =1395
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld0"
                            Caption ="Tarifwechsel Nr"
                            FontName ="Arial"
                            GUID = Begin
                                0x4f6487a40b8e0e488d501222d0591ff5
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2203
                    Top =915
                    Width =13671
                    Height =285
                    FontSize =10
                    TabIndex =2
                    Name ="Tarifwechsel"
                    ControlSource ="Tarifwechsel"
                    FontName ="Arial"
                    GUID = Begin
                        0x46018a7ef5817740adef03efa6b2dffa
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =225
                            Top =915
                            Width =1140
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld1"
                            Caption ="Tarifwechsel"
                            FontName ="Arial"
                            GUID = Begin
                                0x9b16a511253b5a43af4bc180d54d64bf
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2203
                    Top =2895
                    Width =13671
                    Height =1518
                    FontSize =10
                    TabIndex =3
                    Name ="zusätzliches Textfeld"
                    ControlSource ="zusätzliches Textfeld"
                    FontName ="Arial"
                    EventProcPrefix ="zusätzliches_Textfeld"
                    GUID = Begin
                        0xef87873d93447f409bfa6a602609561c
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =225
                            Top =2895
                            Width =1290
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld4"
                            Caption ="Zusatz Text"
                            FontName ="Arial"
                            GUID = Begin
                                0x3a470ade5ab6124e95a70405568aef01
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2203
                    Top =8060
                    Width =13671
                    Height =285
                    FontSize =10
                    TabIndex =4
                    Name ="Erstellt_von"
                    ControlSource ="Erstellt_von"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![Terminierer]"
                    FontName ="Arial"
                    GUID = Begin
                        0xee36446c2fd446408000aaa70737759f
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =225
                            Top =8060
                            Width =1815
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld5"
                            Caption ="Erstellt_von"
                            FontName ="Arial"
                            GUID = Begin
                                0x85cdc286013cb74da8f1f022b855db83
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2203
                    Top =8465
                    Width =13671
                    Height =285
                    FontSize =10
                    TabIndex =5
                    Name ="Text8"
                    ControlSource ="Erstellt_am"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![Terminierer]"
                    FontName ="Arial"
                    GUID = Begin
                        0x8b965fa1ee52e545adb2fe8003263346
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =225
                            Top =8465
                            Width =1815
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld9"
                            Caption ="Erstellt_am"
                            FontName ="Arial"
                            GUID = Begin
                                0x882286f8ac0c8943ac2473e760037569
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2203
                    Top =570
                    Width =13671
                    Height =285
                    FontSize =10
                    TabIndex =1
                    Name ="Provider"
                    ControlSource ="Provider"
                    FontName ="Arial"
                    GUID = Begin
                        0xcf2d5145458a22449abdf5eb68c593ed
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =225
                            Top =570
                            Width =1110
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld116"
                            Caption ="Provider"
                            FontName ="Arial"
                            GUID = Begin
                                0x90c2eb70aa4f6c4199cef494477e62d4
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =4530
                    TabIndex =6
                    Name ="Handynummer1"
                    ControlSource ="Handynummer1"
                    GUID = Begin
                        0xebe54536ac65fb4fbdbe7707380db883
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =4530
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld118"
                            Caption ="Handynummer1:"
                            GUID = Begin
                                0x80987015039b9a4db9091857c53add5b
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =4870
                    TabIndex =7
                    Name ="Handynummer2"
                    ControlSource ="Handynummer2"
                    GUID = Begin
                        0xc57fce20bd281b49bee82b53dcb75ce0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =4870
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld119"
                            Caption ="Handynummer2:"
                            GUID = Begin
                                0x80457048dc38354eb65aef334cb4b90b
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =5210
                    TabIndex =8
                    Name ="Handynummer3"
                    ControlSource ="Handynummer3"
                    GUID = Begin
                        0xd2cf4014b60a874a82f647fe6eb14f14
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =5210
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld120"
                            Caption ="Handynummer3:"
                            GUID = Begin
                                0x4683fbf882f7d846ab5dcab31ff0b245
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =5550
                    TabIndex =9
                    Name ="Handynummer4"
                    ControlSource ="Handynummer4"
                    GUID = Begin
                        0x199f12d569ee1d479de1d8acf2059014
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =5550
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld121"
                            Caption ="Handynummer4:"
                            GUID = Begin
                                0x624a3057e51cc145b7cd363aefdd122a
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =5890
                    TabIndex =10
                    Name ="Handynummer5"
                    ControlSource ="Handynummer5"
                    GUID = Begin
                        0xcfd91c3fec245047b1ef8e5b951fa8c0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =5890
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld122"
                            Caption ="Handynummer5:"
                            GUID = Begin
                                0x66431544fa172043ab7d357a43d5a4de
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =6231
                    TabIndex =11
                    Name ="Handynummer6"
                    ControlSource ="Handynummer6"
                    GUID = Begin
                        0x941e8cc558ef1b47a824052b96ef377f
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =6231
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld123"
                            Caption ="Handynummer6:"
                            GUID = Begin
                                0xf931328edf5a1449822cc5170edc5358
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =6571
                    TabIndex =12
                    Name ="Handynummer7"
                    ControlSource ="Handynummer7"
                    GUID = Begin
                        0xa634b29c04e3d74281ff839f779530e9
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =6571
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld124"
                            Caption ="Handynummer7:"
                            GUID = Begin
                                0x9a0c93896242d049a151985a82333f6d
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =6911
                    TabIndex =13
                    Name ="Handynummer8"
                    ControlSource ="Handynummer8"
                    GUID = Begin
                        0xbaea830d93bd5446a4203c52333a265d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =6911
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld125"
                            Caption ="Handynummer8:"
                            GUID = Begin
                                0xa16da3909bb34441b473bfb57ce84556
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =7251
                    TabIndex =14
                    Name ="Handynummer9"
                    ControlSource ="Handynummer9"
                    GUID = Begin
                        0xf2ef3f54076d324ca1f6fec85af4f55d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =7251
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld126"
                            Caption ="Handynummer9:"
                            GUID = Begin
                                0xd4521918a1aab14891a73afbb347f5dd
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1986
                    Top =7591
                    TabIndex =15
                    Name ="Handynummer10"
                    ControlSource ="Handynummer10"
                    GUID = Begin
                        0x6ef906a244f6974cab6fed1a4ac9f0ff
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =7591
                            Width =1350
                            Height =240
                            Name ="Bezeichnungsfeld127"
                            Caption ="Handynummer10:"
                            GUID = Begin
                                0xb584493ee9d0984c9dd19ac640ad9714
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5496
                    Top =4470
                    TabIndex =16
                    Name ="Kundennummer1"
                    ControlSource ="Kundennummer1"
                    GUID = Begin
                        0x7e63afba95204a4ea9b32d360057d995
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =3795
                            Top =4470
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld128"
                            Caption ="Kundennummer1:"
                            GUID = Begin
                                0xa8d5a17bce3fcb4db9091d143e07a596
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5496
                    Top =4811
                    TabIndex =17
                    Name ="Kundennummer2"
                    ControlSource ="Kundennummer2"
                    GUID = Begin
                        0x10404a2da3801143ba24b23d1b545221
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =3795
                            Top =4811
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld129"
                            Caption ="Kundennummer2:"
                            GUID = Begin
                                0x3b4def4050e75f41b6a3fa941e89b78b
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5496
                    Top =5151
                    TabIndex =18
                    Name ="Kundennummer3"
                    ControlSource ="Kundennummer3"
                    GUID = Begin
                        0x6b4a06b8cc509443ac1a7e8f72a2a88a
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =3795
                            Top =5151
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld130"
                            Caption ="Kundennummer3:"
                            GUID = Begin
                                0x5d26674d5ec1204bb91249168a276a20
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5496
                    Top =5491
                    TabIndex =19
                    Name ="Kundennummer4"
                    ControlSource ="Kundennummer4"
                    GUID = Begin
                        0x307b081dcbe04840910d6ef11e775d9a
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =3795
                            Top =5491
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld131"
                            Caption ="Kundennummer4:"
                            GUID = Begin
                                0x60d075b2e458b840ad64fdbdeae52e42
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5496
                    Top =5831
                    TabIndex =20
                    Name ="Kundennummer5"
                    ControlSource ="Kundennummer5"
                    GUID = Begin
                        0xeae19579ac64a041a16e965f91a26264
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =3795
                            Top =5831
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld132"
                            Caption ="Kundennummer5:"
                            GUID = Begin
                                0xe7597b02354e904896b4aa6d677d4e1e
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2203
                    Top =1320
                    Width =13671
                    Height =1518
                    FontSize =10
                    TabIndex =21
                    Name ="Text135"
                    ControlSource ="Text"
                    FontName ="Arial"
                    GUID = Begin
                        0x35aa42d3fa77314f80b111c8eb33c795
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =225
                            Top =1320
                            Width =1290
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld136"
                            Caption ="Standard Text"
                            FontName ="Arial"
                            GUID = Begin
                                0x84334b0864c5264786404fef92b89ffa
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x8f32e1fc3176d94f947f3b71a4a146f0
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =15870
                    Top =60
                    Width =576
                    Height =516
                    TabIndex =1
                    Name ="Befehl114"
                    Caption ="Befehl114"
                    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
                        0x586c2004ef712945ad141f32a491e7e7
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =14055
                    Top =60
                    Height =516
                    Name ="Neue Email"
                    Caption ="Neue Email"
                    OnClick ="Mkr_EmailTextNeu"
                    EventProcPrefix ="Neue_Email"
                    GUID = Begin
                        0x22cca1fc464b6d419a2467b3693baa4f
                    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 Email_Vorlage_öffnen_Click()
On Error GoTo Err_Email_Vorlage_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Email_Vorlage_öffnen_Click:
    Exit Sub

Err_Email_Vorlage_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Email_Vorlage_öffnen_Click
    
End Sub
Private Sub Email_senden_Click()
On Error GoTo Err_Email_senden_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Email_senden_Click:
    Exit Sub

Err_Email_senden_Click:
    MsgBox Err.Description
    Resume Exit_Email_senden_Click
    
End Sub
Private Sub Befehl114_Click()
On Error GoTo Err_Befehl114_Click


    DoCmd.Close

Exit_Befehl114_Click:
    Exit Sub

Err_Befehl114_Click:
    MsgBox Err.Description
    Resume Exit_Befehl114_Click
    
End Sub