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
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
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
.
.
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
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.
Erstmals danke, werde es mal probieren.