Version =20
VersionRequired =20
Checksum =-2146804406
Begin Form
    AutoResize = NotDefault
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =7313
    DatasheetFontHeight =10
    ItemSuffix =29
    Left =300
    Top =2550
    Right =15345
    Bottom =13695
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x37301b61cf5ae440
    End
    RecordSource ="qry_SpBearbeitenanlegen"
    Caption ="qry_SpBearbeitenanlegen"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010400069c00bc0353ff0000010009009a0b3408640001000f00580201000100 ,
        0x5802030001004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000000000000000000000000000000000000000000050524956 ,
        0xe030000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000180000000000102710271027 ,
        0x000010270000000000000000e800bc0300000000000000000000000000000000 ,
        0x0000000000000000030000000000000000001000503403002888040000000000 ,
        0x000000000000000000000000000000000000000000000000cb0077d408000000 ,
        0x00000000010001000000ff000200000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x01000000000000000000000000000000e8000000534d544a000000001000d800 ,
        0x4100700070006c00650020004c00610073006500720057007200690074006500 ,
        0x72002000380035003000300000005265736f6c7574696f6e0036303064706900 ,
        0x4475706c6578004e6f6e650042697473506572506978656c004e6f6e6500536d ,
        0x6f6f7468696e670046616c7365005061676553697a65004c6574746572005061 ,
        0x6765526567696f6e0000496e707574536c6f74005374616e6461726443617373 ,
        0x6574746500547261795377697463680054727565000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x08001f005d000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000545330 ,
        0x303100
    End
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =510
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xd620d4ca3a20824baea4948f378a3f01
            End
        End
        Begin Section
            Height =9014
            Name ="Detailbereich"
            GUID = Begin
                0x044d8e9bdbbcf347b42ecd0aecc2f8c3
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =690
                    Width =4095
                    Height =315
                    ColumnWidth =900
                    FontSize =10
                    TabIndex =7
                    Name ="Status_Nr"
                    ControlSource ="Status_Nr"
                    DefaultValue ="=[Forms]![frm_ErgebnisEingabeEinzeln]![Status_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x80bc9e7ac8c90746a749697e6701cc72
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =690
                            Width =2715
                            Height =315
                            Name ="Status_Nr_Bezeichnungsfeld"
                            Caption ="Status_Nr"
                            GUID = Begin
                                0xe24579d14a244740a1c794d996b41d5a
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =2148
                    Width =4095
                    Height =315
                    ColumnWidth =1035
                    FontSize =10
                    Name ="DatumAnTW"
                    ControlSource ="DatumAnTW"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0xca03d70b2228cb48a843750c01c1d4e1
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =2148
                            Width =2715
                            Height =315
                            Name ="DatumAnTW_Bezeichnungsfeld"
                            Caption ="Datum an TW"
                            GUID = Begin
                                0xdb2301319c0a4546a857a3ad3a97a757
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =2579
                    Width =4095
                    Height =315
                    ColumnWidth =3000
                    FontSize =10
                    TabIndex =9
                    Name ="SachbearbeiterTW"
                    ControlSource ="SachbearbeiterTW"
                    FontName ="Arial"
                    GUID = Begin
                        0xecea4e8670dcb74e926d551ef81b7802
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =2579
                            Width =2715
                            Height =315
                            Name ="SachbearbeiterTW_Bezeichnungsfeld"
                            Caption ="SachbearbeiterTW"
                            GUID = Begin
                                0x2931847be1d1fc4fb95b5ecb41e0b50a
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =3010
                    Width =4095
                    Height =315
                    ColumnWidth =1035
                    FontSize =10
                    TabIndex =10
                    Name ="DatumTWbearbeitet"
                    ControlSource ="DatumTWbearbeitet"
                    FontName ="Arial"
                    GUID = Begin
                        0xec0c64bc7a8b3c4aa5ca0c1364c18c87
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =3010
                            Width =2715
                            Height =315
                            Name ="DatumTWbearbeitet_Bezeichnungsfeld"
                            Caption ="Datum TW bearbeitet"
                            GUID = Begin
                                0x38000b5a3a2a2844b03c6d276d41f7cd
                            End
                        End
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =5696
                    Width =4095
                    Height =1980
                    ColumnWidth =3000
                    FontSize =10
                    TabIndex =5
                    Name ="Bemerkung"
                    ControlSource ="Bemerkung"
                    DefaultValue ="=\"1\""
                    FontName ="Arial"
                    GUID = Begin
                        0x39697e4f529b5243a719d512661607cb
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =5696
                            Width =2715
                            Height =315
                            Name ="Bemerkung_Bezeichnungsfeld"
                            Caption ="Bemerkung"
                            GUID = Begin
                                0xa34df4c0440794408f6ad79d6c59191d
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =5265
                    Width =4095
                    Height =300
                    ColumnWidth =3000
                    FontSize =10
                    TabIndex =4
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0xa48ad8d2156e464ca5beebc5620712c3
                    End
                    Name ="Status"
                    ControlSource ="Status"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_SPAuswahlStatus"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =5265
                            Width =2715
                            Height =315
                            Name ="Status_Bezeichnungsfeld"
                            Caption ="Status"
                            GUID = Begin
                                0x47634dbcaa9af543b99889d8073b2726
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =7781
                    Width =4086
                    Height =463
                    TabIndex =6
                    Name ="Befehl15"
                    Caption ="Ausführen"
                    OnClick ="Mkr_SPAnlagesave"
                    GUID = Begin
                        0x8464ec427beab94d96e92c7696ff25e7
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =1286
                    Width =4095
                    Height =315
                    FontSize =10
                    TabIndex =11
                    Name ="Text17"
                    ControlSource ="Erstellungsdatum"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0xa5ea5febe49a7d43be834c3fb06e7f33
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =1286
                            Width =2715
                            Height =315
                            Name ="Bezeichnungsfeld18"
                            Caption ="Erstellungsdatum"
                            GUID = Begin
                                0x8f7d8925a257e54a8903055c410b5963
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3004
                    Top =4260
                    Width =4086
                    Height =463
                    TabIndex =3
                    Name ="Befehl19"
                    Caption ="Opt in Email"
                    OnClick ="Mkr_OptinEmailFS"
                    GUID = Begin
                        0x4a9d219bd74cce4d921248cbd19e08d7
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =8280
                    Width =4095
                    Height =120
                    FontSize =10
                    TabIndex =12
                    Name ="Text20"
                    ControlSource ="DSinBearbeitung"
                    DefaultValue ="=1"
                    FontName ="Arial"
                    GUID = Begin
                        0x3c477df3edf1ef4f93020a1fe3d2a33a
                    End
                End
                Begin ComboBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =3445
                    Width =4095
                    Height =300
                    FontSize =10
                    TabIndex =1
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x727d457d2279da43b1bad30b6968d1a7
                    End
                    Name ="Altanbieter"
                    ControlSource ="Altanbieter"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_providerSPAnlegen"
                    DefaultValue ="=\"1\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =3445
                            Width =2715
                            Height =315
                            Name ="Bezeichnungsfeld23"
                            Caption ="Altanbieter"
                            GUID = Begin
                                0x82bd138c5da6fa43b4388f39bdd121c4
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =3880
                    Width =4095
                    Height =300
                    FontSize =10
                    TabIndex =2
                    GUID = Begin
                        0xccca6f047edab34694b5c2aef8292a60
                    End
                    Name ="Rahmenvertrag"
                    ControlSource ="Rahmenvertrag"
                    RowSourceType ="Value List"
                    RowSource ="\"Ja\";\"Nein\""
                    DefaultValue ="=\"1\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =3880
                            Width =2715
                            Height =315
                            Name ="Bezeichnungsfeld25"
                            Caption ="Rahmenvertrag Ja / Nein"
                            GUID = Begin
                                0x75e366284f53cb42b96c22d8df0fb352
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =165
                    Width =4095
                    Height =315
                    FontSize =10
                    TabIndex =13
                    Name ="ID_SB"
                    ControlSource ="ID_SB"
                    FontName ="Arial"
                    GUID = Begin
                        0xa1e2ed4458327945b210ea7c23a97fe7
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =165
                            Width =2715
                            Height =315
                            Name ="Bezeichnungsfeld27"
                            Caption ="ID_SB"
                            GUID = Begin
                                0xd0fc3c8e0bdcbe439776e104ad06c716
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3000
                    Top =4755
                    Width =4086
                    Height =463
                    TabIndex =14
                    Name ="Befehl28"
                    Caption ="Neuvertrag anlegen"
                    OnClick ="Mkr_SetzenNeuvertragZurEingabe"
                    GUID = Begin
                        0xa871162887548849b0a55a6b8959f584
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    TabStop = NotDefault
                    RowSourceTypeInt =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3000
                    Top =1717
                    Width =4095
                    Height =300
                    ColumnWidth =3000
                    FontSize =10
                    TabIndex =8
                    GUID = Begin
                        0x6ac3328c6ff60543a09352b9cac166e9
                    End
                    Name ="SachbearbeiterFS"
                    ControlSource ="SachbearbeiterFS"
                    RowSourceType ="Value List"
                    RowSource ="\"Freischaltungsabteilung\""
                    DefaultValue ="=[Forms]![frm_Anmeldung]![Benutzername]"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =120
                            Top =1717
                            Width =2715
                            Height =315
                            Name ="SachbearbeiterFS_Bezeichnungsfeld"
                            Caption ="Sachbearbeiter Freischaltung"
                            GUID = Begin
                                0x79bc302f6362444787d2b0e79552d73b
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xfe3e797c049b85458d9ca79e6d252fc4
            End
            Begin
                Begin CommandButton
                    TabStop = NotDefault
                    OverlapFlags =85
                    Left =120
                    Top =45
                    Width =516
                    Height =516
                    Name ="Befehl16"
                    Caption ="Befehl16"
                    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
                        0xb1feb96d77205948a781802e36f369e6
                    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 Status_GotFocus()
 Me.Status.DropDown
End Sub
Private Sub Befehl16_Click()
On Error GoTo Err_Befehl16_Click


    DoCmd.Close

Exit_Befehl16_Click:
    Exit Sub

Err_Befehl16_Click:
    MsgBox Err.Description
    Resume Exit_Befehl16_Click
    
End Sub
Private Sub Befehl19_Click()
On Error GoTo Err_Befehl19_Click

    Dim stDocName As String

    stDocName = "MkrEmailTW"
    DoCmd.RunMacro stDocName

Exit_Befehl19_Click:
    Exit Sub

Err_Befehl19_Click:
    MsgBox Err.Description
    Resume Exit_Befehl19_Click
    
End Sub