|
Textfeld für Summe - Werte aus der Spalte einer Tabelle
|
| Autor |
Nachricht |
Acid_Rain
Gast
Verfasst am: 24. Apr 2005, 17:40 Rufname:
|
|
| |
|
Hi, ich hab folgendes Problem.
Ich brauche in einem Formular ein normales Textfeld, welches mir ständig die aktuelle Summe der Zahlen, die sich in einer anderen Tabelle befinden, liefert.
In dieser anderen Tabelle können über das Formular ständig neue Werte hinzugefügt werden, dementsprechend muss das Textfeld ständig die Summe aktualisieren, von mir aus bei Fokuserhalt...
Aber ich bekomm es einfach net hin
Hab schon so viel im net recherchiert...
Wenn ich ins Steuerelement des Textfeldes das Eintrage:
| Code: | | =Summe([Tabelle]![Spaltenname]) | klappts net.
Ich würds auch gern über ne sql-abfrage machen, die abfrage hab ihc auch schon fertig, nur wie überrede ich das textfeld, den wert aus der abfrage zu übernehmen ?
oder habt ihr ne bessere idee ?
bin am verzweifeln
danke
|
|
jens05
Moderator

Verfasst am: 24. Apr 2005, 18:31 Rufname:
Wohnort: ~~~~~
|
| |
| |
|
Hallo
| Code: | | =DomSumme("[Spalte]";"Tabelle") | als Steuerelemteninhalt
|
|
Gast
Verfasst am: 24. Apr 2005, 18:57 Rufname:
|
|
| |
|
hey danke dir
wieso muss das nur immer so kompliziert sein
|
|
Michael007
Gast
Verfasst am: 06. Mai 2007, 15:52 Rufname:
|
|
| |
|
Hallo,
hab grad bisschen im forum gegoogelt und wollt zu diesem Thema was fragen.
Wie kann ich das als SQL-statement machen???
Weil ich möchte es mit VBA machen...
Danke
|
|
Thomas2007
langsam gehts besser... , SQL/DB gut
Verfasst am: 06. Mai 2007, 16:04 Rufname:
|
| |
| |
|
Hallo,
| Code: | | SELECT Sum(Spalte) FROM Tabelle |
_________________ Gruß
Thomas
Anleitung für das Anhängen von Dateien: Klicke links auf [www]
|
|
Michael007
Gast
Verfasst am: 06. Mai 2007, 16:07 Rufname:
|
|
| |
|
Hallo,
habe es so versucht, aber es klappt nicht...
| Code: | Dim sql As String
sql = "SELECT Sum(A2) FROM Tabelle"
DoCmd.RunSQL sql | Was mach ich falsch?
|
|
Thomas2007
langsam gehts besser... , SQL/DB gut
Verfasst am: 06. Mai 2007, 16:19 Rufname:
|
|
| |
|
Hallo,
| Code: | Private Sub txtSumme_GotFocus()
Dim Rs As DAO.Recordset
Dim SQL As String
SQL = "SELECT Sum(A2) FROM Tabelle"
Set Rs = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
Me!txtSumme = Rs.Fields(0)
End Sub | Nachtrag
Du kannst natürlich die Domän-Funktion auch über VBA verwenden, etwa so:
| Code: | Private Sub txtSumme_GotFocus()
Me!txtSumme = DSum("[A2]", "[Tabelle]")
End Sub |
_________________ Gruß
Thomas
Anleitung für das Anhängen von Dateien: Klicke links auf [www]
Zuletzt bearbeitet von Thomas2007 am 06. Mai 2007, 16:34, insgesamt einmal bearbeitet |
|
Michael007
Gast
Verfasst am: 06. Mai 2007, 16:27 Rufname:
|
|
| |
|
Super vielen Dank,
ich habe die zweite Variante genommen...
Bei der ersten Variante, hat er dbOpenSnapshot nicht erkannt...
Muss ich da vielleicht noch ein Verweis / Bibliothek mit aufnehmen?
|
|
Thomas2007
langsam gehts besser... , SQL/DB gut
Verfasst am: 06. Mai 2007, 16:33 Rufname:
|
|
| |
|
Hallo,
"Microsoft DAO 3.6 Object Library" musst du einbinden.
_________________ Gruß
Thomas
Anleitung für das Anhängen von Dateien: Klicke links auf [www]
|
|
Michael007
Gast
Verfasst am: 06. Mai 2007, 16:33 Rufname:
|
|
| |
|
Ich hätte noch eine kleine Frage
In meinem Formular gibt es einen Button, wenn ich auf diesen Button klick tu ich dann die Werte bearbeiten, die dann in dem Textfeld wie oben besprochen anzeigt.
Wie kann ich nach der Bearbeitung der Tabelle, das ganze im Formular aktualisieren? Gibt es da eine Möglichkeit? Jetzt aktualisiert er mir den Wert vom Textfeld erst, wenn ich in das Textfeld klicke. Kann man das auch irgendwie automatisieren?
Vielen Dank für die Hilfe
|
|
Thomas2007
langsam gehts besser... , SQL/DB gut
Verfasst am: 06. Mai 2007, 16:37 Rufname:
|
|
| |
|
Hallo,
wenn du das Feld beim Drücken auf die Schaltfläche aktualisieren möchtest, dann musst du natürlich die entsprechende Ereignisprozedur nehmen:
| Code: | Private Sub cmdRechnen_Click()
Me!txtSumme = DSum("[Frachtkosten]", "[Bestellungen]")
End Sub | cmdRechnen ist bei mir der Name der Schaltfläche!
_________________ Gruß
Thomas
Anleitung für das Anhängen von Dateien: Klicke links auf [www]
|
|
Michael007
Gast
Verfasst am: 06. Mai 2007, 16:54 Rufname:
|
|
| |
|
irgendwie klappt es noch nicht richtig mit der Aktualisierung...
Ich möchte ja nicht beim Klicken auf das Textfeld den Wert haben, sondern ich klick auf den Button und es öffnet sich die Tabelle ich ändere paar Werte ab und dann schließ ich die Tabelle und dann soll er irgendwie automatisch die Werte gleich anzeigen in dem Textfeld...
Verstehst wie ich mein?
|
|
Thomas2007
langsam gehts besser... , SQL/DB gut
Verfasst am: 06. Mai 2007, 17:34 Rufname:
|
|
| |
|
Hallo,
normalerweise sollten die Ereignisprozeduren "Beim Fokuserhalt" und "Beim Aktiviere" des Formulars die richtigen Prozeduren für die Berechnung sein, aber bei mir werden diese Ereignisse nur ein mal beim Öffnen des Formulars ausgelöst sonst nicht , etwa beim Wechsel des Fensters usw.
Die Codes müssten so aussehen:
| Code: | Private Sub Form_GotFocus()
Me!txtSumme = DSum("[Frachtkosten]", "[Bestellungen]")
End Sub
' bzw.
Private Sub Form_Activate()
Me!txtSumme = DSum("[Frachtkosten]", "[Bestellungen]")
End Sub | Ich gebe an dieser Stelle den Stab an einem erfahreneren Kollegen hier im Forum weiter
PS: Getestet habe ich auf Windows XP Pro, Access 2003 SP2
Nachtrag
Jetzt läuft es auch bei mir - zumindest Form_Activate() die GotFocus() wird immernoch nicht ausgelöst! Ich weiss es nicht, warum es vorhin nicht ging
_________________ Gruß
Thomas
Anleitung für das Anhängen von Dateien: Klicke links auf [www]
|
|
Michael007
Gast
Verfasst am: 06. Mai 2007, 18:02 Rufname:
|
|
| |
|
| Die Prozedur auf dem Textfeld auslösen, oder?
|
|
Thomas2007
langsam gehts besser... , SQL/DB gut
Verfasst am: 06. Mai 2007, 18:04 Rufname:
|
| |
| |
|
Hallo,
verstehe dich nicht so recht - liegt wahrscheinlich an der Kürze deines Textes
Siehe Code Form_Activate()!
_________________ Gruß
Thomas
Anleitung für das Anhängen von Dateien: Klicke links auf [www]
|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Access Berichte: Zeilenumbruch in Textfeld einfügen ... |
8 |
Thomas2007 |
10693 |
26. Jul 2010, 18:54 StNeu  |
 |
Access Programmierung / VBA: Splitten einer Spalte mit untersch Anzahl von Trennzeichen |
6 |
staenny79 |
134 |
11. Mai 2010, 08:59 Gast  |
 |
Access Berichte: Berichtsgruppe je eine A4-Seite mit Summe |
2 |
blue_think |
128 |
22. März 2010, 11:38 blue_think  |
 |
Access Programmierung / VBA: Zweite Spalte einer Listbox füllen |
4 |
DummyDB |
503 |
29. Dez 2009, 12:10 DummyDB  |
 |
Access Tabellen & Abfragen: Abfrageproblem mit Tabelle und von ihr abhängiger Abfrage |
23 |
gandalf149 |
810 |
29. März 2009, 16:25 gandalf149  |
 |
Access Programmierung / VBA: Zeilenumbruch aus Textfeld in Tabelle speichern |
3 |
kohli-mohli |
246 |
17. März 2009, 05:04 Willi Wipp  |
 |
Access Formulare: Textfeld für Suchmakro nutzen |
12 |
Totem |
222 |
21. Okt 2008, 15:41 Totem  |
 |
Access Formulare: Werte auf Knopfdruck in neuer Tabelle speichern |
13 |
faiko |
622 |
15. Mai 2008, 17:56 Willi Wipp  |
 |
Access Programmierung / VBA: Wert aus UFO in Tabelle schreiben |
18 |
Jamal Iqbal |
1148 |
11. Sep 2007, 14:17 Jamal Iqbal  |
 |
Access Programmierung / VBA: Tabelle in Array schreiben -> Zellenwert ausgeben |
3 |
KillBill |
1268 |
09. Jan 2007, 03:22 Willi Wipp  |
 |
Access Tabellen & Abfragen: Abfrage - Überprüfen, ob Spalte vorhanden |
4 |
Xsandl |
2084 |
30. Mai 2006, 08:27 Xsandl  |
 |
Access Formulare: Mauszeiger über Textfeld als Hand darstellen |
4 |
missionhro |
3728 |
11. März 2006, 23:42 GregorJ  |
| |