Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Prüfung nach deffekter Datenbank (mdb)
Autor: Paddy
Datum: 14.04.03 21:29
Hallo, habe folgenden Code: Sub datenaufzeichnung_tag_januar() On Error GoTo errhandler Dim db As DAO.Database Dim rs As DAO.Recordset Dim SQL As String 7: Set db = DBEngine.OpenDatabase("c:\programme\terrariensteuerung\datentag1.mdb") 8: SQL = "SELECT * FROM werte where datum = day(now)" 9: Set rs = db.OpenRecordset(SQL, dbOpenDynaset) 10: rs.FindFirst ("datum = day(now)") 11: If rs.NoMatch Then 12: rs.AddNew 13: rs!datum = Day(Now) 14: rs!tempsolltag = frmHaupt.Label5 15: rs!tempisttag = frmHaupt.Label6 16: rs!luftsolltag = frmHaupt.Label10(0) 17: rs!luftisttag = frmHaupt.Label12 18: rs.Update 19: Else 20: End If 21: rs.Close 22: db.Close 23: Exit Sub errhandler: 25: MsgBox "Sub datenaufzeichnung_tag_januar():Fehler in Zeile" & " " & " " & CStr(Erl) End Sub Besteht die Möglichkeit, am Anfang des Codes eine Prüfung einzufügen, ob die Datenbank defekt ist? Wenn ja, soll diese automatisch repariert werden bevor in diese geschrieben wird. Schon mal Danke Paddy

Prüfung nach deffekter Datenbank (mdb)	56	Paddy	14.04.03 21:29
Re: Prüfung nach deffekter Datenbank (mdb)	228	Dieter	15.04.03 01:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen