Version =20
VersionRequired =20
Checksum =-2058810195
Begin Form
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    CloseButton = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    TabularFamily =48
    BorderStyle =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =14759
    DatasheetFontHeight =10
    ItemSuffix =22
    Left =270
    Top =990
    Right =15030
    Bottom =12225
    DatasheetGridlinesColor =12632256
    Filter ="[Terminierer]='Birgit Reuner'"
    RecSrcDt = Begin
        0x3e200b336e5ee340
    End
    RecordSource ="qry_TerminierungWVNEU"
    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 ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin Tab
            Width =5103
            Height =3402
            FontName ="Tahoma"
        End
        Begin Page
            Width =1701
            Height =1701
        End
        Begin FormHeader
            CanGrow = NotDefault
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xdc918af28195ae44a5bcbd792f4e34e5
            End
            Begin
                Begin TextBox
                    Enabled = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =340
                    Top =113
                    Width =2616
                    Height =330
                    FontSize =12
                    FontWeight =700
                    Name ="Terminierer"
                    ControlSource ="Terminierer"
                    FontName ="Arial"
                    GUID = Begin
                        0xd44678f27368944f9cf98a9e97268759
                    End
                End
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =7946
            BackColor =16777164
            Name ="Detailbereich"
            GUID = Begin
                0xc8d9117c6940f748971b6314283fcced
            End
            Begin
                Begin Subform
                    OverlapFlags =85
                    Left =10214
                    Width =4545
                    Height =7935
                    Name ="frmHaupt_UnterWV"
                    SourceObject ="Form.frmHaupt_UnterWV"
                    LinkChildFields ="Terminierer"
                    LinkMasterFields ="Terminierer"
                    GUID = Begin
                        0x58f2ea3ff7614840bffff58dacb01ceb
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x52cc351d3e17b945a69537877a56b8cc
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =14059
                    Width =576
                    Height =576
                    Name ="Befehl21"
                    Caption ="Befehl21"
                    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
                        0x1ff1594b502a1c4987dfa67b6acf594c
                    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 Liste12_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[KD_NR] = " & Str(Nz(Me![Liste12], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Befehl21_Click()
On Error GoTo Err_Befehl21_Click


    DoCmd.Close

Exit_Befehl21_Click:
    Exit Sub

Err_Befehl21_Click:
    MsgBox Err.Description
    Resume Exit_Befehl21_Click
    
End Sub