Wert aus Sub in Tabelle speichern

[MaxP]

Hallo zusammen,

ich versuche gerade aus einer längeren Prozedur, welche als Modul gespeichert ist und die die Feiertage berechnet ( s. http://www.microsys-kramer.de/tipps/feiertage_ermitteln.php), die Werte in eine Tabelle "Feiertage" zu speichern, weil ich diese Tab auch noch in andere DBs einbinden möchte.

Ich habe es z. B. mit dem UPDATE-Befehl versucht:

Code [Auswählen] Erweitern

'// Christi Himmelfahrt berechnen (beweglicher Feiertag; 39 Tage nach Ostern)
       
    m_uDTF.ChrHimmelfahrt = m_uDTF.Ostern + 39 'Teil aus o.g. Code
     CurrentDb.Execute "UPDATE Feiertage " & _
     "SET F1 = '" & m_uDTF.ChrHimmelfahrt & "'"

Das funktioniert nicht.
Packe ich den Update-Befehl in einen Click()-Befehl in ein gebundenes Formular:

Code [Auswählen] Erweitern

Private Sub Befehl4_Click()
Call BerechneFeiertage(Year(Now))
CurrentDb.Execute "UPDATE Feiertage2 " & _
                         "SET F1 = '" & x & "'"
Requery
End Sub


klappt es auch nicht. Vermutlich weil die Variable nicht übergeben wurde?
Weiß jemand Rat??

Gruß
Max

[Sebi]

Huhu,

du versucht mit einem Update Befehl Daten anzufügen.
Dies geht aber nur mittels Insert.

Oder verstehe ich da etwas falsch.
Lieben Gruß Sebi

[MaxP]

Hallo Sebi,

ja stimmt, das war es.
Mit Insert funktioniert es.

Danke Dir!

Gruß
Max