Office: (Office 2000) WeekdayName erzeugt Fehler

Ich verwende eine uralte Access-Datenbank, die mich seit Windows2000 begleitet. Die Access2000 Version konnte über alle neueren Windows-Versionen installiert werden, die Datenbank hat jeweils problemlos funktioniert.
Nun habe ich auf Windows11 umgestellt. Access2000 lässt sich auch hier installieren, die Datenbank funktioniert auch in den meisten Fällen. Einzig die Abfragen, bei denen ich die WeekdayName-Funktion verwende, geben den Fehler zurück "Undefinierte Funktion WeekdayName in Ausdruck". Wenn ich in der Abfrage nur den Weekday ermittle, dann funktioniert es.
Bevor ich nun alle betroffenen Abfragen umstelle, hat einer von Euch da eine Idee was fehlt (eine Bibliothek, etc).
Besten Dank für jede Hilfe.

 

Hallo,
vermutlich fehlt ein Verweis auf eine (aktuelle) Library "Visual Basic for Applications .... (VBA)).

Starte die VBA - Oberfläche, öffne irgendein vorhandenes Modul, z.B. von einem Formular. Dann kannst Du unter Extras Verweise prüfen welche Bibliotheken angehakt sind.

 

Hallo Andreas,
Diese Library ist angelickt, daran kann es nicht liegen.
Trotzdem danke für den Tipp.
Ich habe mich nochmals durch alle Verweise durchgeblättert, ich finde keine Bibliothek die fehlen könnte.

 

Hallo,
hast Du schon mal versucht die Funktion im Direktfenster von VBA auszuführen?

Code:

?weekdayname(5)

Da müsste ja z.B. Freitag als Ergebnis kommen.
Wenn es da geht muss es am Aufruf in den Abfragen liegen.

 

Hallo Andy,
WeekdayName funktioniert weder direkt in VB noch in der Abfrage.
Weekday funktioniert an beiden Orten.

 

Schau nochmal bitte in die Verweise "Visual Basic for Applications" kann mehrfach vorkommen. Vielleicht ist schlicht die falsche Version ausgewählt.

 

Bei mir erscheint Visual Basic for Applications nur einmal.

 

Ansonsten ist die Funktion ja auch schnell erstellt:

Code:

Public Function WeekdayName(sDatum As Date) As String
Select Case Weekday(sDatum)
 Case 1
   WeekdayName = "Sonntag"
 Case 2
   WeekdayName = "Montag"
 Case 3
   WeekdayName = "Dienstag"
 Case 4
   WeekdayName = "Mittwoch"
 Case 5
   WeekdayName = "Donnerstag"
 Case 6
   WeekdayName = "Freitag"
 Case 7
   WeekdayName = "Samstag"
 Case Else
   WeekdayName = "Fehler!"
 End Select
End Function

Stell sie in ein allgemeines Modul, dann kannst Du sie auch aus Abfragen heraus aufrufen.
Wenn der Übergabewert sDatum kein Datum, sondern die Tagesnummer ist, musst Du "as Date" in "as Long" ändern. Und "Select Case Weekday(sDatum)" in "Select Case sDatum.

 

Hier gibt es auch noch diverse Lösungsansätze:
MS-Office-Forum - Einzelnen Beitrag anzeigen - Systemvoraussetzung für Funktion WeekdayName()

 

Hallo Andreas,
Besten Dank, so werde ich es machen. Ich schau jetzt zu Hause noch auf einem der älteren PC's nach, ob ich eine Bibliothek vergessen habe, andernfalls erstelle ich die Prozedur wie Du sie mir so schön vorbereitet hast.
Besten Dank für Deine Hilfe
Urs