Version =20
VersionRequired =20
Checksum =114439998
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 =17130
    DatasheetFontHeight =10
    ItemSuffix =144
    Left =3180
    Top =2355
    Right =9135
    Bottom =7110
    DatasheetGridlinesColor =12632256
    Filter ="[Forms]![frmTarifwechsel]![KD_NR]=[KD_NR]"
    RecSrcDt = Begin
        0x96639f851785e440
    End
    RecordSource ="qry_Tarifwechsel"
    Caption ="bcs group Tarifwechsel erstellen"
    OnOpen ="Mkr_EmailTWErstellen"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010407039c003c091fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000010060b00 ,
        0x5052495600200000049808000000010101100000180000000000102710271027 ,
        0x000010270000000000000000ff00000000000100000002000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000d86e010001000100010000000000000000000001 ,
        0x0200000000000000000064000000000000000000010001000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xbb02880400000300000000000000000000000000000001000000750701000000 ,
        0x09000900000000000000ffff2000070007000700000000000000000081000000 ,
        0x000000000000000002000000070000000000000000190000e40c000000000000 ,
        0xb80b00007017000000000000dc05000058020000000000000000000000000000 ,
        0xfeff0000000000000000000000000000000000000000000000000000370c0000 ,
        0xda0c000010270000102700001027000010270000a00a0000c2060000b8060000 ,
        0x2c04000040010000d20000000000000000000000000000000000000000000000 ,
        0x000000000000ffff000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000530045005200560030003100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000000000000000000fffffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffefffffffefffffffefffffffefffffffefffffffeffffff ,
        0xfefffffffefffffffffffffffeffffff4745524d414e00000000000000000000 ,
        0x420052004d00530031003000340042002e004500580045000000000000000000 ,
        0x420052004c004d0046003000340042002e0044004c004c000000000000000000 ,
        0x420052004200370035003000340042002e0044004c004c000000000000000000 ,
        0x42004f0037003800320030004e002e0049004e00490000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000007000804000000000000000000000000 ,
        0x0100ffff000000000e0100000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x00000000c6008800000064000000000001010000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000006000000f5ffffff00000000 ,
        0x000000000000000000000000000000010000000041007200690061006c000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000ffffff0001000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000ffffffff64000000 ,
        0x0000000000000080460061006200690061006e002e004c00650069006e006800 ,
        0x6f00730000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000010000000000000000000000000000000100000042524c4d ,
        0x463034422e444c4c000000000000000000000000454f5343
    End
    PrtDevNames = Begin
        0x0800220055000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000545330303100
    End
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =575
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x00d62c4ade77224697fe346515332dcf
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =3
                    BackStyle =0
                    IMESentenceMode =3
                    Left =14745
                    Top =165
                    FontSize =10
                    FontWeight =700
                    Name ="KD_NR"
                    ControlSource ="KD_NR"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0xd871ed53aa267445ad42c33ace6e4b81
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    ListRows =30
                    Left =2265
                    Top =120
                    Width =6075
                    Height =345
                    FontSize =12
                    FontWeight =700
                    TabIndex =1
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xfb824e1bbb3e1c409de9a2042ea6e054
                    End
                    Name ="FilterTarifwechsel"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_FilterAuswahlTarifwechsel"
                    ColumnWidths ="1442"
                    DefaultValue ="=\"MkrOptionMobileWebM\""
                    FontName ="Arial"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =8445
                    Top =120
                    Width =351
                    Height =345
                    TabIndex =2
                    Name ="Befehl63"
                    Caption ="OK"
                    OnClick ="Mrk_FilterTarifwechsel"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadad00000000000adada ,
                        0x003333333330adad0b03333333330ada0fb03333333330ad0bfb03333333330a ,
                        0x0fbfb000000000000bfbfbfbfb0adada0fbfbfbfbf0dadad0bfb0000000adada ,
                        0xa000adadadad000ddadadadadadad00aadadadad0dad0d0ddadadadad000dada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Befehl ausführen"
                    GUID = Begin
                        0xa5be268ad7e0b54abef6e69f30b63306
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =11055
            Name ="Detailbereich"
            GUID = Begin
                0x7773abb903a0cc46919813258d422dfc
            End
            Begin
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =1650
                    Width =14181
                    Height =3513
                    FontSize =10
                    TabIndex =4
                    Name ="zusätzliches Textfeld"
                    ControlSource ="zusätzliches Textfeld"
                    FontName ="Arial"
                    EventProcPrefix ="zusätzliches_Textfeld"
                    GUID = Begin
                        0xc97527fdd638dc4e8eafcec93e4cf729
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =1650
                            Width =1290
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld4"
                            Caption ="Text"
                            FontName ="Arial"
                            GUID = Begin
                                0xb251ba43893f0f48a1026341b4301382
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =10050
                    Width =14181
                    Height =285
                    FontSize =10
                    TabIndex =22
                    Name ="Text8"
                    ControlSource ="Erstellt_am"
                    FontName ="Arial"
                    GUID = Begin
                        0x00f76cc6230e4a47be47db144f444fbd
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =10050
                            Width =1815
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld9"
                            Caption ="Erstellt_am"
                            FontName ="Arial"
                            GUID = Begin
                                0x69fc04cbc55b1148be4a28930e2d7e65
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3966
                    Top =5270
                    Width =2496
                    TabIndex =5
                    Name ="Handynummer1"
                    ControlSource ="Handynummer1"
                    FontName ="Arial"
                    GUID = Begin
                        0x096c1d00b0b6584d8adf2c5aa8eb2010
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =2265
                            Top =5270
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld118"
                            Caption ="Handynummer1:"
                            FontName ="Arial"
                            GUID = Begin
                                0x099701a6322cdf4bbba22bc23a9444e3
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3966
                    Top =5610
                    Width =2496
                    TabIndex =6
                    Name ="Handynummer2"
                    ControlSource ="Handynummer2"
                    FontName ="Arial"
                    GUID = Begin
                        0x13c4939f11fb5543b6438023460bea30
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =2265
                            Top =5610
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld119"
                            Caption ="Handynummer2:"
                            FontName ="Arial"
                            GUID = Begin
                                0xe8f944ed5947b44585da14037e1051b8
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3966
                    Top =5950
                    Width =2496
                    TabIndex =7
                    Name ="Handynummer3"
                    ControlSource ="Handynummer3"
                    FontName ="Arial"
                    GUID = Begin
                        0x57bc88d03a42cc46b7fa0f76cce02af7
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =2265
                            Top =5950
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld120"
                            Caption ="Handynummer3:"
                            FontName ="Arial"
                            GUID = Begin
                                0x15c3452448917e439556c1bf65cc9c2b
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3966
                    Top =6290
                    Width =2496
                    TabIndex =8
                    Name ="Handynummer4"
                    ControlSource ="Handynummer4"
                    FontName ="Arial"
                    GUID = Begin
                        0x5554adfd4332b74b9f4661438067ddcd
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =2265
                            Top =6290
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld121"
                            Caption ="Handynummer4:"
                            FontName ="Arial"
                            GUID = Begin
                                0xca2b05c664e1a44ca57d3813e38d5d3b
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3966
                    Top =6630
                    Width =2496
                    TabIndex =9
                    Name ="Handynummer5"
                    ControlSource ="Handynummer5"
                    FontName ="Arial"
                    GUID = Begin
                        0xc3727a39a83cc440bc8bf3221ca5b26d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =2265
                            Top =6630
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld122"
                            Caption ="Handynummer5:"
                            FontName ="Arial"
                            GUID = Begin
                                0x89107274892dee4db939f3a2866080e8
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8961
                    Top =5270
                    Width =2496
                    TabIndex =10
                    Name ="Handynummer6"
                    ControlSource ="Handynummer6"
                    FontName ="Arial"
                    GUID = Begin
                        0xe29f67af6802ac42a8dc899cdf7c863e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =7260
                            Top =5270
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld123"
                            Caption ="Handynummer6:"
                            FontName ="Arial"
                            GUID = Begin
                                0x221c65f3bf8c974a8bda81527b69d35a
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8961
                    Top =5610
                    Width =2496
                    TabIndex =11
                    Name ="Handynummer7"
                    ControlSource ="Handynummer7"
                    FontName ="Arial"
                    GUID = Begin
                        0x03e3afc05656ca47b2e5a77d05dd5792
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =7260
                            Top =5610
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld124"
                            Caption ="Handynummer7:"
                            FontName ="Arial"
                            GUID = Begin
                                0xd205cc1b8078fc4a8555e4d68d109a9d
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8961
                    Top =5950
                    Width =2496
                    TabIndex =12
                    Name ="Handynummer8"
                    ControlSource ="Handynummer8"
                    FontName ="Arial"
                    GUID = Begin
                        0x6b0b62274fd0c04d955b7bf3a9db8ea2
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =7260
                            Top =5950
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld125"
                            Caption ="Handynummer8:"
                            FontName ="Arial"
                            GUID = Begin
                                0x8a22e5215d3f9149a064b668baade1c8
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8961
                    Top =6290
                    Width =2496
                    TabIndex =13
                    Name ="Handynummer9"
                    ControlSource ="Handynummer9"
                    FontName ="Arial"
                    GUID = Begin
                        0xe37f3c3aa20b4a4f9006763ac816d5d8
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =7260
                            Top =6290
                            Width =1260
                            Height =240
                            Name ="Bezeichnungsfeld126"
                            Caption ="Handynummer9:"
                            FontName ="Arial"
                            GUID = Begin
                                0x39fd25d5819d594f8256d16badd08dd1
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =8961
                    Top =6630
                    Width =2496
                    TabIndex =14
                    Name ="Handynummer10"
                    ControlSource ="Handynummer10"
                    FontName ="Arial"
                    GUID = Begin
                        0x0f4a857a9ad5df42907ea5116c17d02c
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =7260
                            Top =6630
                            Width =1350
                            Height =240
                            Name ="Bezeichnungsfeld127"
                            Caption ="Handynummer10:"
                            FontName ="Arial"
                            GUID = Begin
                                0x59d87e116ffb6546b85db4c2e8c909b8
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13956
                    Top =5270
                    Width =2496
                    TabIndex =15
                    Name ="Kundennummer1"
                    ControlSource ="Kundennummer1"
                    FontName ="Arial"
                    GUID = Begin
                        0xcdd364d927197847b24aaa10b0071fbd
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =12255
                            Top =5270
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld128"
                            Caption ="Kartennummer 1:"
                            FontName ="Arial"
                            GUID = Begin
                                0xaaf422fcff857a4f83d035f38371f8ea
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13956
                    Top =5611
                    Width =2496
                    TabIndex =16
                    Name ="Kundennummer2"
                    ControlSource ="Kundennummer2"
                    FontName ="Arial"
                    GUID = Begin
                        0x31e873af54ea754fb2b50daf615b1dce
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =12255
                            Top =5611
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld129"
                            Caption ="Kartennummer 2:"
                            FontName ="Arial"
                            GUID = Begin
                                0xf223f0be7ea6654b8cde91eb7aeb51d1
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13956
                    Top =5951
                    Width =2496
                    TabIndex =17
                    Name ="Kundennummer3"
                    ControlSource ="Kundennummer3"
                    FontName ="Arial"
                    GUID = Begin
                        0x46c232037cc29747a3fdee2bc97e94a2
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =12255
                            Top =5951
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld130"
                            Caption ="Kartennummer 3:"
                            FontName ="Arial"
                            GUID = Begin
                                0x9a7d7715c8953a45a932f783a4639bbd
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13956
                    Top =6291
                    Width =2496
                    TabIndex =18
                    Name ="Kundennummer4"
                    ControlSource ="Kundennummer4"
                    FontName ="Arial"
                    GUID = Begin
                        0x02a02af45ff0dd4fbc8c02b432a2c2f0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =12255
                            Top =6291
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld131"
                            Caption ="Kartennummer 4:"
                            FontName ="Arial"
                            GUID = Begin
                                0x0be2d8e6b3e8cf4790b2d18d7480f8e7
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13956
                    Top =6631
                    Width =2496
                    TabIndex =19
                    Name ="Kundennummer5"
                    ControlSource ="Kundennummer5"
                    FontName ="Arial"
                    GUID = Begin
                        0xc5f9174aa920a94188546d670a099017
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =12255
                            Top =6631
                            Width =1335
                            Height =240
                            Name ="Bezeichnungsfeld132"
                            Caption ="Kartennummer 5:"
                            FontName ="Arial"
                            GUID = Begin
                                0xe6499854cc33214f828008dd8aa3316f
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =165
                    Width =14181
                    Height =300
                    FontSize =10
                    FontWeight =700
                    Name ="Tarifumstellung_NR"
                    ControlSource ="Tarifumstellung_NR"
                    FontName ="Arial"
                    GUID = Begin
                        0x49192f99b613534782f8f2bf7cff24d1
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =165
                            Width =1800
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld0"
                            Caption ="Tarifumstellung Nr"
                            FontName ="Arial"
                            GUID = Begin
                                0xec816f3e0dae98499bd1c1edf61397b2
                            End
                        End
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =510
                    Width =14181
                    Height =300
                    FontSize =10
                    TabIndex =1
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x2e089237c0bcfb4ebdfc0eb4d647ea32
                    End
                    Name ="Provider"
                    ControlSource ="Provider"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_Provider"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =510
                            Width =1470
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld114"
                            Caption ="Provider"
                            FontName ="Arial"
                            GUID = Begin
                                0xe167b63feffb83418cb8e8273c2115fd
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =1260
                    Width =14181
                    Height =300
                    FontSize =10
                    TabIndex =3
                    Name ="Tarifwechsel"
                    ControlSource ="Tarifwechsel"
                    FontName ="Arial"
                    GUID = Begin
                        0x5db53acd83cece409d9d0a664f927ef1
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =1260
                            Width =1470
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld3"
                            Caption ="Art"
                            FontName ="Arial"
                            GUID = Begin
                                0x4704467d4876ac40a85c10fc9a02678f
                            End
                        End
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =9645
                    Width =14181
                    Height =285
                    FontSize =10
                    TabIndex =21
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xe9564a1239916d4f8746045abaf4435d
                    End
                    Name ="Erstellt_von"
                    ControlSource ="Erstellt_von"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentAktiv"
                    DefaultValue ="=IIf([Forms]![frm_HauptTerminierungWV]![Terminierer]=\"Marijana Djuras\",\"Vertr"
                        "agsbearbeitung \",IIf([Forms]![frm_HauptTerminierungWV]![Terminierer]=\"Mirjam B"
                        "lanke\",\"Freischaltungsabteilung\",IIf([Forms]![frm_HauptTerminierungWV]![Termi"
                        "nierer]=\"Christina Sali\",\"Backoffice\",[Forms]![frm_HauptTerminierungWV]![Ter"
                        "minierer])))"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =9645
                            Width =1815
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld5"
                            Caption ="Erstellt_von"
                            FontName ="Arial"
                            GUID = Begin
                                0x3024ea4027223a41b12ed8e5f0e0a7aa
                            End
                        End
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =7040
                    Width =14181
                    Height =2043
                    FontSize =10
                    TabIndex =20
                    Name ="Text2"
                    ControlSource ="text2"
                    FontName ="Arial"
                    GUID = Begin
                        0x7732eb9a59fcca4c92a86c0f7ec086db
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =7040
                            Width =1290
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld135"
                            Caption ="Text 2"
                            FontName ="Arial"
                            GUID = Begin
                                0x53d149cb7e133e48b590ad4ceedfb84a
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =4243
                    Top =9185
                    Width =7221
                    Height =285
                    FontSize =10
                    FontWeight =700
                    TabIndex =23
                    Name ="EmailTw"
                    ControlSource ="EmailTw"
                    FontName ="Arial"
                    GUID = Begin
                        0x8fa715d527dc1c48861581bfbd763564
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =2265
                            Top =9185
                            Width =1755
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld137"
                            Caption ="Email Tarifwechsel:"
                            FontName ="Arial"
                            GUID = Begin
                                0x8e2a9a9eb25ffd47b59f9b04402f8aa9
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =2263
                    Top =870
                    Width =14181
                    Height =300
                    FontSize =10
                    TabIndex =2
                    Name ="Email Provider"
                    FontName ="Arial"
                    EventProcPrefix ="Email_Provider"
                    GUID = Begin
                        0xb9b3f104c953574eb37978f47e7f2adf
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =285
                            Top =870
                            Width =1470
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld141"
                            Caption ="Email"
                            FontName ="Arial"
                            GUID = Begin
                                0x4ac6e5e35bb90c42a5a36b524ba52593
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =575
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x62fcaedae2157f40a7d2b6798ed935e6
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =60
                    Top =45
                    Width =516
                    Height =510
                    Name ="Befehl103"
                    Caption ="Befehl103"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular schließen"
                    GUID = Begin
                        0xccc6bb86069dd343bd4fbeeb6de97e3e
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =690
                    Top =45
                    Width =2250
                    Height =510
                    TabIndex =1
                    Name ="Tarifwechsel Vorlage öffnen"
                    Caption ="Tarifwechsel Vorlage öffnen"
                    OnClick ="[Event Procedure]"
                    EventProcPrefix ="Tarifwechsel_Vorlage_öffnen"
                    GUID = Begin
                        0x01e32ecd87846d408862a9a711d4880c
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =45
                    Width =1320
                    Height =510
                    TabIndex =2
                    Name ="Speichern"
                    Caption ="Speichern"
                    OnClick ="Mkr_TarifwechselnNeuspeichern"
                    GUID = Begin
                        0xbdf2d0ed5148cc4f8de7c1c919c59f43
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =5730
                    Top =45
                    Width =1800
                    Height =510
                    TabIndex =4
                    Name ="Befehl121"
                    Caption ="Brief Vorschau öffnen "
                    OnClick ="Mkr_BriefVorschauTarifwechselBcs"
                    GUID = Begin
                        0x4c904637c0e60b48a89db9289f826832
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7657
                    Top =49
                    Width =1815
                    Height =510
                    TabIndex =5
                    Name ="Befehl123"
                    Caption ="TW Ohne Unterschrift"
                    OnClick ="Mkr_BriefVorschauTarifwechseloU"
                    GUID = Begin
                        0xb5f45d7de549ff47afaab476cf23a05b
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =4365
                    Top =45
                    Width =1320
                    Height =510
                    TabIndex =3
                    Name ="Befehl138"
                    Caption ="Email TW erstellen"
                    OnClick ="Mkr_TarifwechselnNeuspeichernEmailTwerstellen"
                    GUID = Begin
                        0x8073a2f8c6b4474bbfb961569f3eb4fd
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =9645
                    Top =45
                    Width =1815
                    Height =510
                    TabIndex =6
                    Name ="Befehl139"
                    Caption ="Email öffnen mit Anhang"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x54ff27ea8dff8140969f12926d5646b1
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =14340
                    Top =60
                    Width =2610
                    Height =450
                    TabIndex =7
                    ForeColor =255
                    Name ="Befehl142"
                    Caption ="T-Mobile Kunden Info an Kunden"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x48ece5a96a6e004bb0b2291e89568e92
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =11565
                    Top =60
                    Width =1815
                    Height =510
                    TabIndex =8
                    Name ="Befehl143"
                    Caption ="Email öffnen ohne Anhang"
                    OnClick ="Mkr_frm_EmailTWneuOhneAnhangopen"
                    GUID = Begin
                        0x606fe93cda2ba2468efda9a3687412cd
                    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 Liste109_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Betreff] = '" & Me![Liste109] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Liste111_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Art] = '" & Me![Liste111] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Tarifwechsel_Vorlage_öffnen_Click()
On Error GoTo Err_Tarifwechsel_Vorlage_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Tarifwechsel_Vorlage_öffnen_Click:
    Exit Sub

Err_Tarifwechsel_Vorlage_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Tarifwechsel_Vorlage_öffnen_Click
    
End Sub
Private Sub Tarifwechsel_Anschreiben_Vorlage_öffnen_Click()
On Error GoTo Err_Tarifwechsel_Anschreiben_Vorlage_öffnen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Tarifwechsel_Anschreiben_Vorlage_öf:
    Exit Sub

Err_Tarifwechsel_Anschreiben_Vorlage_öffnen_Click:
    MsgBox Err.Description
    Resume Exit_Tarifwechsel_Anschreiben_Vorlage_öf
    
End Sub
Private Sub Befehl139_Click()
On Error GoTo Err_Befehl139_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Befehl139_Click:
    Exit Sub

Err_Befehl139_Click:
    MsgBox Err.Description
    Resume Exit_Befehl139_Click
    
End Sub
Private Sub Befehl142_Click()
On Error GoTo Err_Befehl142_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Befehl142_Click:
    Exit Sub

Err_Befehl142_Click:
    MsgBox Err.Description
    Resume Exit_Befehl142_Click
    
End Sub