Abfrage Datum kleiner heute funktioniert nicht

Moderator: ModerationP

Abfrage Datum kleiner heute funktioniert nicht

Beitragvon accessGast » 28. Okt 2021, 07:26

Hallo

Ich habe eine Frage zu einer Abfrage, die nur bedingt funktioniert und ich weiß nicht recht, wo der Fehler liegt.

Ich habe ein Formular wo beim öffnen geprüft wird, ob Einträge bestehen, wo eine Frist abgelaufen ist.
Das funktioniert grundsätzlich auch. Jedoch werden mir z.B. am heutigen Tag auch die Fristen vom 28.10. angezeigt. Aber der 28. ist doch nicht kleiner dem 28.10.

Was mache ich falsch?

Das habe ich beim Formular anzeigen hinterlegt.
Code: Alles auswählen
Dim txtfristdat As String

If DCount("*", "abf_fristen_Ltr", txtfristdat) < Date Then

MsgBox "Es sind abgelaufene Fristen im Bereich Ltr. vorhanden"

If Nz(pcuserName, "") = "MustermannMa" Then

Me!ufo_frm_offen.Height = 5000 'ändert die Größe nach unten vom Unterformular
Me!Untergeordnet69.Height = 8000 'ändert die Größe nach unten vom Unterformular
Me!Untergeordnet69.Top = 6000 'ändert die Höhe von oben vom Unterformular
Me!Untergeordnet69.Width = 14000 'ändert die Höhe von oben vom Unterformular
Me!x_ufo_frm_hm.Visible = False
Me!Untergeordnet69.Visible = True

Else

MsgBox "Keine abgelaufenen Fristen."

End If

End If

End Sub
accessGast
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 148
Registriert: 20. Apr 2016, 11:13

Re: Abfrage Datum kleiner heute funktioniert nicht

Beitragvon KlausMz » 28. Okt 2021, 08:14

Hallo,
Was mache ich falsch?
Alles. :)
Das funktioniert nur rein zufällig ohne Fehlermeldung.
Du zählst Datensätze mit DCount und vergleichst die Zahl mit einem Datum, wie soll das funktionieren?

In die Zeile zum Zählen muss die Bedingung mit rein. Aber es muss das Tabellenfeld verwendet werden. In der Funktion ist auch die Reihenfolge falsch, erst der Feldname dann der Tabellen/Abfragename.
Das Kriterium ist SQL, daher muss Date als Funktion (mit Klammerpaar) angewendet werden.

Versuche das mal so:
Code: Alles auswählen
If DCount("FeldmitDatum", "abf_fristen_Ltr","FeldmitDatum < Date()") > 0 Then

FeldmitDatum = Feldname das Datumsfeldes in der Tabelle.
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Benutzeravatar
KlausMz
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 40307
Registriert: 06. Okt 2003, 15:09
Wohnort: Irgendwo in der Pfalz

Re: Abfrage Datum kleiner heute funktioniert nicht

Beitragvon accessGast » 28. Okt 2021, 09:30

:idea: :idea:

Vielen, vielen Dank. Jetzt passt es. Und wieder etwas dazu gelernt.
accessGast
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 148
Registriert: 20. Apr 2016, 11:13


Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 10 Gäste