… funtzt nicht so ganz bei mir :S
Ich habe ein Formular, welches auf eine Abfrage basiert, in dem ein Unterformular ist. In dem Unterformular bilde ich eine Summe aus irgend welchen Werten im Unterformular.
Nun möchte ich diese gebildete Summe in der Tabelle Speichern. Ich habe es mal mit
Me!MeinTabellenFeld = Me!MeinBerechnetesFeld
probiert, aber das funtzt auch nicht so recht.
Für ein Hilfestellung danke ich schon mal im Vorraus!
LG Scout
Hallo.
Ohne den Zweck dieser Aktion jetzt bewerten zu wollen (i.a. speichert man berechnete Werte nicht in Tabellen) :
Me!MeinTabellenFeld = Me!MeinBerechnetesFeld
reicht nicht ganz. Du müsstest die zugehörige Tabelle zunächst in einer Prozedur öffnen, zum entsprechenden Datensatz scrollen und dann den Feldwert updaten.
Das geht zum Bleistift mit
Sub RammelDieKatz(DeinFeld)
Dim DeineDatenbank As Database
Dim DeineDatenmenge As Recordset
Set DeineDatenbank=CurrentDB
Set DeineDatenmenge=DeineDatenbank.OpenRecordset("DeineTabelle")
DeineDatenmenge.MoveFirst
While (SchlüsselInDeinerTabelleSchlüsselInDeinemFormular)
If Not (SchlüsselInDeinerTabelle=SchlüsselInDeinemFormular)
If EOF(DeineDatenmenge)
MsgBox "kein Datensatz gefunden")
Exit Sub
End If
DeineDatenmenge.MoveNext
End If
Wend
DeineDatenmenge.TabellenFeld=DeinFeld
DeineDatenmenge.Update
DeineDatenmenge.Close
Set DeineDatenmenge=Nothing
Set DeineDatenbank=Nothing
End Sub
Ich hoffe, dass ich jetzt keinen Tippfehler da drin habe (ist etwas schwierig, im Forum zu debuggen …). Wie Du siehst, nicht ganz trivial.
Gruß kw