Version =20
VersionRequired =20
Checksum =1408150651
Begin Form
    AutoResize = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =0
    BorderStyle =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =8280
    DatasheetFontHeight =10
    ItemSuffix =8
    Left =345
    Top =3435
    Right =8955
    Bottom =4740
    DatasheetGridlinesColor =12632256
    Filter ="((tbl_retentionprov.MonatJahr=#1/1/2012#))"
    OrderBy ="tbl_retentionprov.ID"
    RecSrcDt = Begin
        0x46b3772cd631e540
    End
    RecordSource ="qry_VVLRKwahlNeu"
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            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 Section
            Height =980
            Name ="Detailbereich"
            GUID = Begin
                0x763844f06a48a6479199eefac7569710
            End
            Begin
                Begin TextBox
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Top =680
                    Width =8280
                    Height =300
                    ColumnWidth =6945
                    FontSize =10
                    FontWeight =700
                    Name ="Auswahl"
                    ControlSource ="Auswahl"
                    FontName ="Arial"
                    GUID = Begin
                        0xd11ee40eaa8ce34994ec305697ff890e
                    End
                End
                Begin ListBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Width =8280
                    Height =577
                    FontSize =10
                    TabIndex =1
                    Name ="Liste6"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT [qry_VVLRKwahlNeu].[Auswahl] FROM [qry_VVLRKwahlNeu];"
                    ColumnWidths ="1440"
                    AfterUpdate ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0xbfc101028e21414ab73842441dd03785
                    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 Liste6_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Auswahl] = '" & Me![Liste6] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub