Version =20
VersionRequired =20
Checksum =-1211711208
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =5045
    DatasheetFontHeight =10
    ItemSuffix =4
    Left =6615
    Top =6975
    Right =11655
    Bottom =10425
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xd8c2caecec63e440
    End
    DatasheetFontName ="Arial"
    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 Section
            Height =3458
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0x986dad3646d24647bc826d7857a8935b
            End
            Begin
                Begin TextBox
                    TabStop = NotDefault
                    SpecialEffect =1
                    OldBorderStyle =1
                    BorderWidth =3
                    OverlapFlags =85
                    TextAlign =2
                    BackStyle =0
                    IMESentenceMode =3
                    Left =570
                    Top =120
                    Width =4301
                    Height =2535
                    FontSize =12
                    FontWeight =700
                    TabIndex =1
                    ForeColor =255
                    Name ="Text0"
                    DefaultValue ="=\"Aktueller Status \" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & IIf([Forms]![fr"
                        "m_Bezahltsetzen]![StatusMahnwesen] Is Null,\"offen\",[Forms]![frm_Bezahltsetzen]"
                        "![StatusMahnwesen]) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & \"Wollen Sie den S"
                        "tatus ändern klicken Sie OK ansonsten auf Abbrechen!\""
                    FontName ="Arial"
                    GUID = Begin
                        0x90be171a4864154b950c3adf510f6e3a
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =735
                    Top =2895
                    Width =1140
                    Height =405
                    Name ="Befehl2"
                    Caption ="OK"
                    OnClick ="Mkr_Bezahlt"
                    GUID = Begin
                        0x6ee5bbcd5126d544b6e9b284c6fdfdbb
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3745
                    Top =2897
                    Width =1140
                    Height =405
                    TabIndex =2
                    Name ="Befehl3"
                    Caption ="Abbrechen"
                    OnClick ="Mkr_CloseMahnwesenManuell"
                    GUID = Begin
                        0xe193a63219bcc545b9c1b9edb8e2cfd9
                    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 Befehl2_Click()
On Error GoTo Err_Befehl2_Click


    DoCmd.Close

Exit_Befehl2_Click:
    Exit Sub

Err_Befehl2_Click:
    MsgBox Err.Description
    Resume Exit_Befehl2_Click
    
End Sub

Private Sub Befehl3_Click()
DoCmd.Close
DoCmd.Close
End Sub