Unterformular soll sich nach Auswahl individuell öffnen

[Estadl]

Hallo, ich bin neu hier und hoffe ihr könnt mir helfen, versuche es seit einiger Zeit, habe aber nicht den gewünschten Erfolg.

Habe eine Datenbank für meine Fahrzeuge. Nach Auswahl des Fahrzeuges (Verbrenner, Hybrid, Elektro) sollen sich Fenster zeigen.

Wenn ich Verbrenner auswähle zeigt sich das Fenster "LetzteBuchung",
wenn ich Elektro auswähle zeigt sich das Fenster "LetzteLadung",
wenn ich Hybrid auswähle sollten sich beide Fenster öffnen, macht es aber nicht.

Kann mir jemand sagen, welchen Fehler ich habe?

Private Sub Kombinationsfeld4_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Type] = '" & Me![Kombinationsfeld4] & "'"
    Me.Bookmark = rs.Bookmark
         
     
    If Me![Hybrid] = 1 Then [LetzteBuchung].Visible = True
    If Me![Hybrid] = 1 Then [LetzteLadung].Visible = True
    If Me![Hybrid] = 0 Then [LetzteBuchung].Visible = False
    If Me![Hybrid] = 0 Then [LetzteLadung].Visible = False
   
    If Me![Verbrenner] = 1 Then [LetzteBuchung].Visible = True
    If Me![Verbrenner] = 0 Then [LetzteBuchung].Visible = False
       
    If Me![Elektro] = 1 Then [LetzteLadung].Visible = True
    If Me![Elektro] = 0 Then [LetzteLadung].Visible = False
   
End Sub

Danke für die Hilfe

Edit:   Habe es jetzt über Autoart gelöst.

If Me![Autoart] = 1 Then [LetzteBuchung].Visible = True
    If Me![Autoart] = 2 Then [LetzteLadung].Visible = True
    If Me![Autoart] = 0 Then [LetzteLadung].Visible = True
    If Me![Autoart] = 1 Then [LetzteLadung].Visible = False
    If Me![Autoart] = 2 Then [LetzteBuchung].Visible = False
 

[Beaker s.a.]

Hallo,
Als erstes gibst du deinem Kombi mal einen sprechenden
Namen; - "cboAntriebsTyp".
Dann fügst du diesem in der DS-Herkunft die ID der Typen-
Tabelle als 1. Spalte ein. Bekommt die Breite 0cm und ist
die gebundene Spalte.
Das Navigieren sieht dann so aus

Code [Auswählen] Erweitern

Private Sub cboAntriebsTyp_AfterUpdate()
    With Me
        .Recordset.FindFirst "Type = " & .cboAntriebsTyp
'Type muss natürlich auch den Datentyp Zahl haben; - sollte
'ja eh der Fremdschlüssel sein.
.
.
Den .RecordsetClone brauchst du hier nicht zu bemühen.
I.Ü. ist Recordset.Clone eine Methode, die einen Klon des RS anlegt,
.RecordsetClone ist eine Eigenschaft, die einen vorhandenen Klon
referenziert.
Den Rest würde ich auf die Schnelle per Select Case steuern

Code [Auswählen] Erweitern

.
.
        Select Case .cboAntriebsTyp
        Case 1 'Verbrenner, !!! anpassen !!!
            .LetzteBuchung.Visible = True
            .LetzteLadung.Visible = False
        Case 2 'Elektro
            .LetzteBuchung.Visible = False
            .LetzteLadung.Visible = True
        Case 3 'Hybrid
            .LetzteBuchung.Visible = True
            .LetzteLadung.Visible = True
        End Select
    End With
End Sub
gruss ekkehard

[MzKlMu]

Hallo,
im Grunde halte ich die Unterscheidung mit 2 Feldern für überlüssig, das gehört alles in ein Feld. Mit einem weiteren Feld für die Art. (Buchung oder Ladung). Bei einem Hybrid kann ja auch beides zutreffen, (sogar zum gleichen Datum) das wären dann 2 Datensätze. Bei Verbrenner oder Elektro kann die Art automatisch gesetzt werden, bei einem Hybrid muss gewählt werden, ob Buchung oder Ladung.

[Estadl]

Erstmals danke, werde es mal probieren.