Abfrage an Textfeld übergeben

Question

Hallo,

ich sitze jetzt schon 2 Tage an einem Problem und komme nicht weiter. Ich habe diverse Foren durchgesehen, aber keine Lösung gefunden.
Folgendes Problem:
Ich habe ein Hauptform mit einem Unterform.
Im Unterform gibt es eine Spalte deren Werte Zahlen sind, diese möchte ich jetzt summieren(nach bestimmten Kriterien) und im Hauptform an ein ungebundenes Textfeld übergeben. Dabei muß beachtet werden, das es für den ausgewählten Datensatz gilt, der im Form angezeigt wird.
Ich habe eine Abfrage geschrieben, welche mir wenn ich die ID suche, die richtige Summe des Wertes anzeigt. Wie bekomme das Abfrageergebnis ins Hauptform? Ich hoffe Ihr könnt mir helfen.

Vielen Dank im Voraus!

Answer 1

Abfragen kannst Du über VBA aus einem Formular ansprechen:

Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("[Name Deiner Abfrage]", dbOpenDynaset)
rst.MoveFirst

Öffnet die Abfrage und setzt sich auf den ersten Datensatz.

Das Füllen von ungebundenem Textfeld im Formular:

Me![DeinTextfeld] = rst![Name des Feldes aus der Abfrage]

Gruß Marie

Answer 2

Hallo Marie,

ich danke Dir für Deine schnelle Antwort. Ich versuche das gerade in der DB umzusetzen. Ich hoffe es funktioniert. Du scheinst ein echter Spezialist zu sein. Ich hätte da noch ein paar andere Dinge, welche mir den letzten Nerv rauben. Aber eins nach dem anderen.

Vielen lieben Dank und vielleicht bis später.

Answer 3

Hallo Marie,

da bin ich wieder. Leider hat das nicht funktioniert. Ich habe den Code im VBA Editor unter Form_Open() eingetragen, dann im Formular ein Textfeld aufgezogen und im Code Me![Text156] = rst![Summe] eingetragen. Leider bleibt das Textfeld leer. ;-(
Bin ich überhaupt mit dem Code an der richtigen Stelle? Muß ich vielleicht, dem Textfeld im Formular in der Zeile Steuerelementinhalt etwas übergeben? Irgendwie hab ich gerade ein Brett vorm Kopf. Sorry. Wäre es möglich direkt mit Dir in Kontakt zu treten? Dann könnte ich das Problem mit Worten schildern, das geht einfacher als im Textblock. Vielleicht könnte ich Dir die DB auch mal zeigen, damit Du weißt was ich genau meine.

Liebe Grüße und herzlichen Dank.
Hexe1

Answer 4

Hast Du das gemacht, wie in dem Link von MS beschrieben:

Suchen Sie im Eigenschaftenfenster die Eigenschaft "Vor Aktualisierung" des Formulars.
Wählen Sie dort "Ereignisprozedur" aus der Liste.
In der Ereignisprozedur geben Sie folgenden VBA-Code ein:

Me![Name_des_Feldes_in_der_Tabelle] = Me![Name_des_berechneten_Steuerelementes_im_Formular]

Answer 5

upps, sorry, an falsche Stelle gepostet.