Hallo Zusammen,
es wird mir mit diesem Code die falsche woche berechnet.
If Me!Ladedatum > 0 Then Me!Woche = DatePart("ww", Me!Ladedatum)
Ladedatum = 04.02.2011
Woche = 6
??
Gurss
Bernie
Hallo,
Datepart hat noch mehr Parameter. Gelegentlich ist die Hilfe von Access durchaus hilfreich.
If Me!Ladedatum > 0 Then Me!Woche = DatePart("ww",Me!Ladedatum,vbMonday,vbFirstFourDays)
Hoffentlich dient der Code nicht zum Speichern der Woche in einem Tabellenfeld, oder etwa doch?
Doch, der wert wird in der tabelle im feld woche gespeichert.
Warum ?
Hallo,
ZitatDoch, der wert wird in der tabelle im feld woche gespeichert.
Warum ?
Weil es überflüssig ist. Berechnete Werte werden im Regelfall nicht in einer Tabelle gespeichert. Bei der KW machts das erst recht keinen Sinn, dann diese lässt sich jederzeit aus dem Daum problemlos ermitteln. Die Formel dazu hast Du ja.
Du kannst die KW auch völlig problemlos in einer Abfrage berechnen und auf den VBA Code ersatzlos verzichten. Diese Abfrage kannst Du wie eine Tabelle verwenden. In der Abfrage müssen aber die Zahlen statt der VB Konstanten verwendet werden. Das Me! muss entfallen und aus Komma wird Semikolon. Also so:
KalWoche: DatePart("ww"; Ladedatum; 2; 3)Bei Deiner Vorgehensweise musst Du immer für eine aktualisierung des KW Wertes sorgen. Und das ist fehlerträchtig.
Lasse es also lieber sein.
Hi Mzkimu jo das stimmt. ;)
aber in diesem fall speichere ich den wert woche ab, da ich wissen möchte in welcher
woche, tag, monat ect. das ladedatum nach der erfassung war.
denn das ladedatum kann sich jederzeit ändern..
trotzdem danke, jetzt berechnet er die richtige woche.. hatte ich bisher auch nicht gewusst.
gruss
bernie
Hallo,
Zitatda ich wissen möchte in welcher
woche, tag, monat ect. das ladedatum nach der erfassung war.
denn das ladedatum kann sich jederzeit ändern..
dann würde ich ein 2. Datumsfeld anlegen, in dem das tatsächliche Ladedatum eingetragen wird.
Dann musst Du gar nichts mehr aktualisieren. Und das Datum muss Du ja sowieso eintragen.
Programmierung gespart und zuverlässiger auch noch.