Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Vergleichen
Autor: Katrin
Datum: 07.03.03 09:04
HI leute, ich hab ein Problem. wenn ich auf den Button " BiSektion" klick solll das Systemdatum mit allen Datum s in einer Access datenbank verglichen werden-- geht schon ! Bloß jetzt sollt ich noch eins haben, wenn es kein Datensatz gefunden hat einen Fehltext ausgeben "Es wurde kein DS gefunden" : Wie mach ich das?! Code:: Private Sub BiSektion_Click() ' Alle Termine von HEUTE selektieren Dim SQL As String Dim result As Recordset SQL = "SELECT * FROM Termin WHERE Datum = '" + Format(Sysdate, "ddmmYyyy") + "'" Set result = DB.OpenRecordset(SQL) result.MoveFirst With result Do While Not .EOF MsgBox (result.Fields(1) & " - " & result.Fields(3)) .MoveNext Loop End With End Sub Grüßle Katrin

Vergleichen	89	Katrin	07.03.03 09:04
Re: Vergleichen	202	Heiko	07.03.03 09:07
Re: Vergleichen	205	Heiko	07.03.03 09:08
Re: Vergleichen	44	Katrin	07.03.03 09:17
Re: Vergleichen	193	Heiko	07.03.03 09:49
Re: Vergleichen	195	michi-bib	07.03.03 09:08
Re: Vergleichen	196	Heiko	07.03.03 09:10
Re: Vergleichen	196	Dirk	07.03.03 09:13
Re: Vergleichen	53	Katrin	07.03.03 09:16

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