ISODatum in Abfrage VBA Laufzeitfehler

[Frank77]

Hallo !

Ich habe da ein Problem mit einer Funktion ISODatum  
Leider weiß ich nicht genau was diese Funktion bewirkt und finde online sehr wenig darüber
Den Aufbau des Strings habe ich aus einem Beispiel in dem es funktioniert  wenn ich die Abfrage bei mir starte erhalte ich

Den Laufzeitfehler  3085

Undefinierte Funktion ISODatum in Ausdruck  

Keine Ahnung was ich da falsch mache
Gruß Frank

Code [Auswählen] Erweitern

   sSQL = "SELECT Sum([BestandAnzahl]*[BestandVorzeichen]) AS LagerbestandGesamt, tblBestandsaenderungen.BestandArtIDRef, tblBestandsaenderungen.BestandInventur, tblBestandsaenderungen.BestandDatum" & _
        " FROM tblBestandsaenderungen" & _
        " WHERE tblBestandsaenderungen.BestandArtIDRef = " & lngArtikelID & "" & _
        " AND tblBestandsaenderungen.BestandInventur=False" & _
        " AND tblBestandsaenderungen.BestandDatum<=ISODatum([txtDatumAktuelleInventur]);"

[database]

Hallo,

der Fehler liegt hier:

Code [Auswählen] Erweitern

AND tblBestandsaenderungen.BestandDatum<=ISODatum([txtDatumAktuelleInventur]);"

Unabhängig davon, dass die Funktion nicht richtig aufgerufen wird, dürfte diese (ISODatum) unter diesem Namen nicht geben.

schreibe stattdessen mal:

Dim strDatum as String
strDatum = Format([txtDatumAktuelleInventur], "\#yyyy\-mm\-dd\#")

....
...

" AND tblBestandsaenderungen.BestandDatum<= " & strDatum


sieh mal hier:

http://www.donkarl.com?FAQ6.8

HTH

[Beaker s.a.]

Hallo Peter,

Unabhängig davon, dass die Funktion nicht richtig aufgerufen wird,

Bist Du sicher? Ich kenne die Funktion nicht, denke aber, wenn die als Parameter nur ein Datum erwartet, sollte das schon funzen.
Allerdings denke ich auch, dass da noch ein paar " reingehören:

Code [Auswählen] Erweitern

AND tblBestandsaenderungen.BestandDatum<=[u]" &[/u] ISODatum([txtDatumAktuelleInventur])
Falls ich falsch liege, freue ich mich über Belehrung/Berichtigung.
gruss ekkehard


@Moderatoren:
Wie macht man denn Textformatierungen in Codeabschnitten?
Wollte eigentlich die unterstrichenen Zeichen rot machen, ging aber auch nicht.
Danke für Aufklärung.

[DF6GL]

Hallo,

mein Senf:




Wenn
"...AND tblBestandsaenderungen.BestandDatum<=ISODatum([txtDatumAktuelleInventur]);"

funktionieren soll, dann muss:
-- die Funktion ISODatum() in einem Standard- (Allgemein-) Modul stehen und einen String der Form #2012-12-31# liefern
-- der Funktionsparameter ein Tabellenfeld sein , was vermutlich nicht der Fall ist (sieht eher nach einem Formular-Textfeld aus) und database mit "nicht richtig aufgerufen " gemeint hat.


Wenn

"...AND tblBestandsaenderungen.BestandDatum<=" & ISODatum([txtDatumAktuelleInventur])

funktionieren soll, so muss

-- die Funktion  (mindestens)  im Klassenmodul des Formulares, in dem [txtDatumAktuelleInventur] zu finden ist, stehen.
    Dabei wäre  ....ISODatum(Me![txtDatumAktuelleInventur]) vorzuziehen.

-- die Funktion einen String der Form #2012-12-31# zurück liefern.

[Beaker s.a.]

Hallo Franz,

-- die Funktion ISODatum() in einem Standard- (Allgemein-) Modul stehen und einen String der Form #2012-12-31# liefern

Davon war ich ausgegangen.

-- der Funktionsparameter ein Tabellenfeld sein , was vermutlich nicht der Fall ist (sieht eher nach einem Formular-Textfeld aus) und database mit "nicht richtig aufgerufen " gemeint hat.

Auch davon war ich ausgegangen, aber, jetzt, wo Du es sagst ... (typischer Fall von "wer lesen kann...)
Dann muss ich natürlich auch dem Rest Deiner Ausführungen Recht geben.
gruss ekkehard

[database]

Hallo,

@Beaker s.a.

Wie macht man denn Textformatierungen in Codeabschnitten?

Gar nicht - da gibts keine Formatierungen 

[Beaker s.a.]

Hallo Peter,

Wie macht man denn Textformatierungen in Codeabschnitten?

Gar nicht - da gibts keine Formatierungen 

Schade.
Wäre manchmal hilfreich, um so kleine Abweichungen (fehlende ' oder . + !) hervor zu heben.
Na ja, man kann nicht alles haben 
gruss ekkehard

[Frank77]

Hallo euch allen !

Danke für eure zahlreichen  antworten
In den Beispiel das ich da aufarbeitet hatte habe ich übersehen das in einem extra Modul das hier stehen muss da klappt das auch

Aber GROSSES danke nochmal für eure Antworten  da kann ich noch einiges lernen

Gruß Frank

Code [Auswählen] Erweitern

Public Function ISODatum(strDatum As Date) As String
    ISODatum = Format(strDatum, "\#yyyy\-mm\-dd\#")
End Function