Version =20
VersionRequired =20
Checksum =1148197609
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =27
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =9921
    DatasheetFontHeight =10
    ItemSuffix =18
    Left =4950
    Top =2730
    Right =19245
    Bottom =9870
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x79be2a005852e440
    End
    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
        0x08001f0057000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000545330303100
    End
    Moveable =0
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin FormHeader
            Height =510
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xbd717d8efa59c34ea8bbe54844ea4ec4
            End
        End
        Begin Section
            Height =5111
            Name ="Detailbereich"
            GUID = Begin
                0x5228233a1f79a84c9fc9e9ddcef0e9d4
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1760
                    Top =1294
                    Width =6456
                    Height =300
                    FontSize =10
                    TabIndex =2
                    Name ="SB"
                    DefaultValue ="=[Forms]![frm_Anmeldung]![Benutzername]"
                    FontName ="Arial"
                    GUID = Begin
                        0xa5394795cf4a1845b16bf95c53253bb2
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =1294
                            Width =1440
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld6"
                            Caption ="Sachbearbeiter:"
                            FontName ="Arial"
                            GUID = Begin
                                0x9101934f7434be42bbdf549268b51fbe
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =1755
                    Width =2430
                    Height =405
                    FontSize =10
                    TabIndex =3
                    Name ="Befehl7"
                    Caption ="Status Ändern ausführen!"
                    OnClick ="Mkr_Mahnwesen1"
                    FontName ="Arial"
                    GUID = Begin
                        0x4a355e4f7dcf6a48891e3ed05bd0253f
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1760
                    Top =570
                    Width =6456
                    Height =300
                    FontSize =10
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x486080bb47fe744ea4dcd6eebd6633d2
                    End
                    Name ="Statusalt"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_MahnwesenArt"
                    OnExit ="Mkr_SetzeStatusMAneu"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =574
                            Width =1005
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld1"
                            Caption ="Status Alt:"
                            FontName ="Arial"
                            GUID = Begin
                                0xc981f0308a9f9b4cbb3ec3278c031746
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1760
                    Top =934
                    Width =6456
                    Height =300
                    FontSize =10
                    TabIndex =1
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0xbdb1125c31bb934b83fb764bd8bca867
                    End
                    Name ="StatusNEu"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_MahnwesenArt"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =934
                            Width =1110
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld3"
                            Caption ="Status Neu:"
                            FontName ="Arial"
                            GUID = Begin
                                0x32f812003cae1649be9ad015f3373bee
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =2670
                    Top =1755
                    Width =1965
                    Height =405
                    TabIndex =4
                    Name ="Befehl8"
                    Caption ="Sammel Email ausführen"
                    OnClick ="Mkr_MahnwesenEmailweerholen"
                    GUID = Begin
                        0x5393f4d1944b874d90247d8a3f6ea6cc
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =6975
                    Top =1755
                    Width =2385
                    Height =405
                    TabIndex =6
                    Name ="Befehl9"
                    Caption ="Ansicht Tabelle Status neu"
                    OnClick ="Mkrqry_MahnwesenAutoAusgabeTabelleAusgabe"
                    GUID = Begin
                        0xb7fd42607fe1714e8fc04d89d834dbad
                    End
                End
                Begin TextBox
                    OverlapFlags =215
                    IMESentenceMode =3
                    Left =1760
                    Top =2329
                    Width =6456
                    Height =300
                    FontSize =10
                    TabIndex =7
                    Name ="Artnummer"
                    FontName ="Arial"
                    GUID = Begin
                        0xb74eadc1f6b2174eb05448def4d7f313
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =60
                            Top =2329
                            Width =1815
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld11"
                            Caption ="Artnummer:"
                            FontName ="Arial"
                            GUID = Begin
                                0xab07bf8d07800740bd93de9da89b4ba5
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =215
                    IMESentenceMode =3
                    Left =1760
                    Top =2749
                    Width =6456
                    Height =300
                    FontSize =10
                    TabIndex =8
                    Name ="BezahltAm"
                    Format ="Short Date"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0x57ad9357b7fbcb4a9e07fdee202698e5
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =60
                            Top =2749
                            Width =1815
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld13"
                            Caption ="Bezahlt am:"
                            FontName ="Arial"
                            GUID = Begin
                                0x1a57e7aef316aa4692789e49f6f32800
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1760
                    Top =3169
                    Width =6456
                    Height =300
                    FontSize =10
                    TabIndex =9
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x50756838c5ce31478e9fcff16c47a885
                    End
                    Name ="NeuerStatus"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_MahnwesenArt"
                    OnExit ="Mkr_SetzeStatusMAneu"
                    DefaultValue ="=\"Bezahlt\""
                    FontName ="Arial"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =3173
                            Width =1005
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld15"
                            Caption ="Status:"
                            FontName ="Arial"
                            GUID = Begin
                                0x12e26b8f226dae46bf54b292b505c0f0
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1815
                    Top =3570
                    Width =2430
                    Height =450
                    TabIndex =10
                    Name ="Befehl16"
                    Caption ="Status setzen"
                    OnClick ="Mkr_openFrageMahnung"
                    GUID = Begin
                        0xa00d372396661c42bb9d2250e5fbe475
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =4755
                    Top =1755
                    Width =1965
                    Height =405
                    TabIndex =5
                    Name ="Befehl18"
                    Caption ="Sammel Fax ausführen"
                    OnClick ="Mkr_openfrmMahnwesenAutoFax"
                    GUID = Begin
                        0x66d562cace48f2429045dc53a9f5f144
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xb19be06101a422469ed52241baf506b9
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =165
                    Top =45
                    Width =531
                    Height =516
                    Name ="Befehl17"
                    Caption ="Befehl17"
                    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
                        0x0919e26fb4826943b11baada198fcc7a
                    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 Befehl8_Click()
On Error GoTo Err_Befehl8_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

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

Exit_Befehl8_Click:
    Exit Sub

Err_Befehl8_Click:
    MsgBox Err.Description
    Resume Exit_Befehl8_Click
    
End Sub
Private Sub Befehl9_Click()
On Error GoTo Err_Befehl9_Click

    Dim stDocName As String

    stDocName = "qry_MahnwesenAutoAusgabeTabelle"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Befehl9_Click:
    Exit Sub

Err_Befehl9_Click:
    MsgBox Err.Description
    Resume Exit_Befehl9_Click
    
End Sub
Private Sub Befehl17_Click()
On Error GoTo Err_Befehl17_Click


    DoCmd.Close

Exit_Befehl17_Click:
    Exit Sub

Err_Befehl17_Click:
    MsgBox Err.Description
    Resume Exit_Befehl17_Click
    
End Sub