Oh sehe gerade hat die hälfte abgeschnitten...
Private Sub Form_Load()
' Öffnet die Verbindung zur Datenbank und setzt die Recordsets
Set DB = OpenDatabase(App.Path & "\Fuhrpark2.mdb")
Set RSFahrzeugdaten = DB.OpenRecordset("Fahrzeugdaten", dbOpenTable)
Set RSModelldaten = DB.OpenRecordset("Modelldaten", dbOpenTable)
If Not RSFahrzeugdaten.EOF Then
txtFahzeugNr.Text = RSFahrzeugdaten!FahrzeugNr
txtModellNr.Text = RSFahrzeugdaten!ModellNr
txtAngeschafft.Text = RSFahrzeugdaten!AngeschafftAm
txtFarbe.Text = RSFahrzeugdaten!Farbe
txtPreis.Text = Format(RSFahrzeugdaten!Preis, "0.00 €")
txtBaujahr.Text = RSFahrzeugdaten!Baujahr
txtKennzeichen.Text = RSFahrzeugdaten!Kennzeichen
End If
If Not RSModelldaten.EOF Then
txtModellname.Text = RSModelldaten!ModellName
txtHerkunftsland.Text = RSModelldaten!Herkunftslandkürzel
txtLeistung.Text = Format(RSModelldaten!Leistung, "0 PS")
txtHubraum.Text = Format(RSModelldaten!Hubraum, "0 ccm")
txtZylinder.Text = RSModelldaten!Zylinder
txtGeschwindigkeit.Text = Format(RSModelldaten!Geschwindigkeit, "0.00 KM/H")
txtBeschleunigung.Text = Format(RSModelldaten!Beschleunigung, "0.00 sec")
txtGewicht.Text = Format(RSModelldaten!Gewicht, "0 Kg")
txtHersteller.Text = RSModelldaten!Hersteller
End If
If RSFahrzeugdaten.BOF Then
cmdZurueck.Visible = False
cmdZurueckzumAnfang.Visible = False
Else
cmdZurueck.Visible = True
cmdZurueckzumAnfang.Visible = True
End If
End Sub
Sub UpdateList()
On Error GoTo Fehler ' Bei einem RUNTIME ERROR springt er zum Fehler
If Not RSFahrzeugdaten.EOF Then
txtFahzeugNr.Text = RSFahrzeugdaten!FahrzeugNr
txtModellNr.Text = RSFahrzeugdaten!ModellNr
txtAngeschafft.Text = RSFahrzeugdaten!AngeschafftAm
txtFarbe.Text = RSFahrzeugdaten!Farbe
txtPreis.Text = Format(RSFahrzeugdaten!Preis, "0.00 €")
txtBaujahr.Text = RSFahrzeugdaten!Baujahr
txtKennzeichen.Text = RSFahrzeugdaten!Kennzeichen
End If
If Not RSModelldaten.EOF Then
txtModellname.Text = RSModelldaten!ModellName
txtHerkunftsland.Text = RSModelldaten!Herkunftslandkürzel
txtLeistung.Text = Format(RSModelldaten!Leistung, "0 PS")
txtHubraum.Text = Format(RSModelldaten!Hubraum, "0 ccm")
txtZylinder.Text = RSModelldaten!Zylinder
txtGeschwindigkeit.Text = Format(RSModelldaten!Geschwindigkeit, "0.00 KM/H")
txtBeschleunigung.Text = Format(RSModelldaten!Beschleunigung, "0.00 sec")
txtGewicht.Text = Format(RSModelldaten!Gewicht, "0 Kg")
txtHersteller.Text = RSModelldaten!Hersteller
End If
Exit Sub
Fehler:
Call MsgBox("Es ist ein Fehler aufgetreten" & vbCrLf & "Fehlernummer: " & Err.Number & _
vbCrLf & "Fehlerbeschreibung: " & Err.Description, vbCritical, "Fehler")
End Sub