Version =20
VersionRequired =20
Checksum =-480293445
Begin Form
    PopUp = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =48
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =2325
    DatasheetFontHeight =10
    ItemSuffix =3
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xe8e11809b721e540
    End
    Caption ="Datensatz tatsächlich löschen?"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin Section
            Height =2001
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0xf6539f6448bfb544a6575c9ea696e2b9
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =292
                    Top =1260
                    Height =576
                    Name ="Befehl0"
                    Caption ="Befehl0"
                    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
                        0x8a989f93c00d6b4c9761cb50f727986c
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =285
                    Top =510
                    Height =576
                    TabIndex =1
                    Name ="Befehl1"
                    Caption ="Löschen"
                    OnClick ="Mkr_DeleteKunden"
                    GUID = Begin
                        0x25d6d8c9f4f262498a24bb7fcb52e3cb
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Top =165
                    Width =2325
                    Height =225
                    Name ="Bezeichnungsfeld2"
                    Caption ="Datensatz tatsächlich löschen?"
                    GUID = Begin
                        0xa9580a1f8df03b41aa2a18d9585c6f92
                    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