Version =20
VersionRequired =20
Checksum =-2048359453
Begin Form
    AutoResize = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    TabularFamily =0
    BorderStyle =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =5442
    DatasheetFontHeight =10
    ItemSuffix =10
    Left =9300
    Top =4230
    Right =15645
    Bottom =10905
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x507c2cae8f4ee440
    End
    RecordSource ="qry_OptionMJ"
    DatasheetFontName ="Arial"
    Moveable =0
    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 FormHeader
            Height =0
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0xba7821812e5de647908ff5ec33eab2d7
            End
        End
        Begin Section
            Height =3174
            Name ="Detailbereich"
            GUID = Begin
                0x5be57cb9968c444cbf05813a176cd9d2
            End
            Begin
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =56
                    Top =2664
                    Width =5211
                    Height =450
                    FontSize =10
                    Name ="Option"
                    ControlSource ="Option"
                    DefaultValue ="\"\""
                    FontName ="Arial"
                    GUID = Begin
                        0xecb37d98f1b66d438a9e8f85b35e87a6
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Enabled = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5325
                    Top =2655
                    Width =111
                    Height =450
                    TabIndex =1
                    Name ="Prov"
                    ControlSource ="Prov gesamt"
                    GUID = Begin
                        0xe19cd651a4c75348ad8ae165b2905a96
                    End
                End
                Begin ListBox
                    SpecialEffect =0
                    OverlapFlags =85
                    OldBorderStyle =0
                    IMESentenceMode =3
                    Left =56
                    Top =56
                    Width =5145
                    Height =2557
                    FontSize =10
                    TabIndex =2
                    Name ="Liste8"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT [qry_OptionMJ].[Option] FROM [qry_OptionMJ];"
                    ColumnWidths ="1440"
                    AfterUpdate ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0x9f495be8ef390441800505be0af5c395
                    End
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0xa2d3dc3f6bc0b640b2b5123a35c187d3
            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 Liste8_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

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