Version =20
VersionRequired =20
Checksum =-315273148
Begin Form
    PopUp = 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 =3288
    DatasheetFontHeight =10
    ItemSuffix =2
    Left =2070
    Top =2010
    Right =9525
    Bottom =5760
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xc5ebd3a76767e540
    End
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin Section
            Height =1133
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0xcb1cded98332c14686d38a1685f2509f
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =453
                    Top =396
                    Width =1020
                    Height =405
                    Name ="Befehl0"
                    Caption ="Abbrechen"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0x1b109605c6aa4748be9e2c9bd3c08b7e
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1814
                    Top =396
                    Width =1020
                    Height =405
                    TabIndex =1
                    Name ="Befehl1"
                    Caption ="Ausführen"
                    OnClick ="Mkr_qry_am_pers_wv_aufheben2"
                    GUID = Begin
                        0x48734551971e024dab2a91c326fe6a47
                    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 Befehl0_Click()
On Error GoTo Err_Befehl0_Click


    DoCmd.Close

Exit_Befehl0_Click:
    Exit Sub

Err_Befehl0_Click:
    MsgBox Err.Description
    Resume Exit_Befehl0_Click
    
End Sub