Version =20
VersionRequired =20
Checksum =1510185066
Begin Form
    PopUp = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =9297
    DatasheetFontHeight =10
    ItemSuffix =5
    Left =630
    Top =960
    Right =8085
    Bottom =4695
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x375056c86e46e540
    End
    OnOpen ="Mkr_Max"
    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 TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xa515a0547ebcc7458279056341c18abc
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =15030
            Name ="Detailbereich"
            GUID = Begin
                0x8014304ad24b404293e56ed489dc9c72
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =87
                    IMESentenceMode =3
                    Left =11
                    Width =3396
                    Height =345
                    FontSize =12
                    Name ="Sachbearbeiter"
                    Format ="Standard"
                    DefaultValue ="=[Forms]![frm_Anmeldung]![Benutzername]"
                    FontName ="Arial"
                    GUID = Begin
                        0xce33755a4ec4d649916e1780b67e7e82
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Top =333
                            Width =2610
                            Height =330
                            FontSize =12
                            Name ="Bezeichnungsfeld14"
                            Caption ="Sachbearbeiter"
                            FontName ="Arial"
                            GUID = Begin
                                0xda45cb988de1864e89a6223d0406da30
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =87
                    IMESentenceMode =3
                    Left =3696
                    Width =5031
                    Height =345
                    FontSize =12
                    TabIndex =1
                    Name ="Status"
                    Format ="Standard"
                    DefaultValue ="=\"Trust Bewertung ohne Anruf online\""
                    FontName ="Arial"
                    GUID = Begin
                        0xa1f40c89288a604589c57c9be69642a8
                    End
                    Begin
                        Begin Label
                            OverlapFlags =93
                            Left =3685
                            Top =333
                            Width =2610
                            Height =330
                            FontSize =12
                            Name ="Bezeichnungsfeld1"
                            Caption ="Status"
                            FontName ="Arial"
                            GUID = Begin
                                0x09362894c9bb534593c32995949764b8
                            End
                        End
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =56
                    Top =1200
                    Width =6630
                    Height =13830
                    TabIndex =2
                    Name ="qry_Kdnr_temp2"
                    SourceObject ="Form.frm_Kdnr_temp2"
                    GUID = Begin
                        0xc0e62c561d425c4d8405223d88e1d497
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =780
                            Width =4365
                            Height =330
                            FontSize =12
                            Name ="Bezeichnungsfeld2"
                            Caption ="KDNR und Datum online gesetzt einfügen"
                            FontName ="Arial"
                            GUID = Begin
                                0x349724f4a44c284d8ddc6252f4f54fcb
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7200
                    Top =1133
                    Height =853
                    TabIndex =3
                    Name ="Befehl3"
                    Caption ="Status setzen"
                    OnClick ="Mkr_qry_TPonlineSetzen1"
                    GUID = Begin
                        0x1f33d58384bcbd4bb5e53728742b3cb7
                    End
                End
            End
        End
        Begin FormFooter
            Height =516
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xc50637f7afaadc428f165ab3cfd00433
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =60
                    Width =456
                    Height =456
                    Name ="Befehl4"
                    Caption ="Befehl4"
                    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
                        0x5365034fdfb03b4db7cef83814310164
                    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 Befehl4_Click()
On Error GoTo Err_Befehl4_Click


    DoCmd.Close

Exit_Befehl4_Click:
    Exit Sub

Err_Befehl4_Click:
    MsgBox Err.Description
    Resume Exit_Befehl4_Click
    
End Sub