Formular-Dateneingabe-am Ende Daten aus gesamter Tabelle suchen+zusammen zählen

[Misterlion]

Hallo,
ich bin neu hier und brauche Eure Hilfe.
Ich konnte und kann in Clipper Datenbank und Basic programmieren.
Ich muss mein Programm jetzt umprogrammieren in Access 2010.
Da fehlt es noch an viellem, aber ich lerne schnell.
Manchmal fehlt auch nur noch der kleine i Punkt.
Ich hoffe Ihr unterstützt mich beim Lernen.

Um das geht es:
Ich habe eine Tabelle1 ,,Artikel+Kostenstellen", sowie eine zweite Tabelle2 ,,Firma"
In der tbl1 ist nur die IDNr von der Firma ,,A01" gespeichert
Somit habe ich eine Abfrage1 für mein Formular1 aus beiden Tabellen.

Folgende Situation:
Ich bin in meinem Formular1(Änderung) aufgebaut auf Abfrage1, im Datensatz 1500
tbl2-Firma = A01
tbl1-Baugruppe = 0001
tbl1-Artikel = X1406.10.10
tbl1-Kostenstelle = 1236
tbl1-Stück-Arbeiter = 1300
tbl1-Lohn-Arbeiter = 9,21 EUR
Ab hier ist die Eingabe Ende, die EUR per 1000 werden immer wieder neu berechnet
tbl1-EUR per 1000 = 7,08 EUR
Die EUR Baugruppe per 1000 muss nur bei dem Artikel berechnet werden, wo ein X voran steht.
tbl1-EUR Baugruppe per 1000 = ??

Mein Problem:
Es gibt 3 weitere Artikel, aber ohne das X an der ersten Stelle vom Artikel. Bei den anderen Artikel ist der Anfang leer. Ich schreibe diese Artikel mal alle nebeneinander, dann sieht man es besser.
A01-0001-X1406.10.10-1236-1300-9,21-7,08-?
A01-0001- 2506.10.10-2236- 800-9,21-10,00
A01-0001- 3506.10.10-3236- 700-9,21-12,00
A01-0001- 4506.10.10-4236- 550-9,21-18,00

Nach meiner letzten Eingabe, muss ich jetzt die tbl1 durchsuchen nach A01 aus tbl2-Firma und nach 0001 aus tbl1 alle Baugruppen finden mit 0001 (4 x also),
wenn der Artikel ein X voran hat.
Wenn kein X brauche ich nicht suchen.
Wenn ja, muss ich bei allen Datensätzen dann die EUR zählen
7,08 + 10,00 + 12,00 + 18,00 und diese Summe 47,08 EUR in das Feld (tbl1 EUR Baugruppe per 1000) = eintragen (natürlich in dem Datensatz 1500 in dem ich ja war)

Ich hoffe es ist verständlich und würde mich über ein Makro oder Vorschläge sehr freuen.

Gruß
Misterlion

[DF6GL]

Hallo und willkommen hier im Forum..


mhmm, ich befürchte, Du musst Dich erst mal von Clipper- und (teilweise) Basic-Denkweise verabschieden...


Dein Vorhaben, (das ich nur teilweise jetzt durchblicke) ist in einem relationalen Datenbanksystem wie Access nicht sonderlich gut umzusetzen.  Wenn Du also die alte DB nach Access erfolgreich migrieren willst, dann studiere zunächst u. st. Links 1, 1a , 2 und 3 einschliesslich weiterer Grundlagen-Tutorials (googlen!)

Nach meiner letzten Eingabe, muss ich jetzt die tbl1 durchsuchen nach A01 aus tbl2-Firma und nach 0001 aus tbl1 alle Baugruppen finden mit 0001 (4 x also),
wenn der Artikel ein X voran hat.
Wenn kein X brauche ich nicht suchen.
Wenn ja, muss ich bei allen Datensätzen dann die EUR zählen
7,08 + 10,00 + 12,00 + 18,00 und diese Summe 47,08 EUR in das Feld (tbl1 EUR Baugruppe per 1000) = eintragen (natürlich in dem Datensatz 1500 in dem ich ja war)

Du musst gar nicht suchen, Access bietet Abfragen und auch Berechnungen im Formular selber, wo man solche Rechenergebnisse anzeigen kann.

Gespeichert werden solche Berechnungen erst recht nicht, Ergebnisse werden immer dort bei Bedarf errechnet, wo man sie braucht.



Verstanden habe ich überhaupt nicht, was der Datensatz 1500 (solche "Datensatznummern" gibt es in Access auch nicht)  mit der Berechnung aller Werte in der Tabelle zu tun hat.


"Suchen" (=Filtern)  nach Artikeln, die am Anfang ein "X" besitzen läßt sich mit besonderer Manipulation (= Einsatz von Funktionen)   im "Where-Condition" -Ausdruck (Kriterium) einer Abfrage lösen, z. B.:

Select * from Tabelle2 where ArtikelNr Like "X*"

oder auch

Select * from Tabelle1 where left(ArtikelNr,1) = "X"




Formular-Entwurf ist NICHT der erste Vorgang beim Entwickeln einer Datenbank.   ZUNÄCHST müssen die Tabelle entspr. den Normalisierungsregeln aufgebaut werden (z. B. muss das Feld ArtikelNr atomisiert werden:  "X" am Anfang stellt einen Status der Artikelnummer dar und gehört daher in ein separates Feld ausgelagert.).  Erst wenn alle Tabellen,- felder, und -beziehnungen klar erstellt/definiert worden sind, kann diese Tabellestruktur mit Formularen visualisiert werden und damit Datenmanipulationen (Eingabe, Anzeige, Berechnungen, Löschen) erfolgen .

[Stapi]

Hallo Misterlion

Willkommen hier im Forum.

Darf dir eine Rat geben und vergiss die Geschichte mit Makro, mit VBA bist du deutlich besser aufgestellt.

Berechnungen von Feldern finden in Abfragen statt und werden nicht in Tabellen gespeichert. Erstelle eine Abfrage Gruppiert nach deiner z.b 0001 und berechne in der Abfrage deiner Gesamtsumme des Artikel.

Gruß Stefan

[Misterlion]

Hallo,
natürlich habe ich schon Tage gegoogelt. Ich habe mir auch ein dickes fettes Buch Access 2010 zugelegt und durch gearbeitet.
Aber leider steht nicht alles drin. Mir helfen Beispiel sehr schnell die ich dann abwandeln kann.

Deine Punkte 1-6 sind klasse, werde ich weiter reinschauen.
Soetwas habe ich schon mal gesucht.

Klar habe ich meine Datenbanken auch schon angepasst und versuche dem Standard zu folgen.
Muss aber etwas unter Zeitdruck zuerst eine Zwischenlösung finden,
damit mein Programm in Access läuft.
Dadurch würde ich gerne den einen oder anderen Wert bzw. Summe in dem Datensatz speichern (als kleine Sicherheit für mich)
Oder ist das total blöd?

Mit Datensatz 1500 meinte ich, im Formular unten steht Datensatz 1-1699 und ich bin halt jetzt gerade in dem 1500sten
und dort sollte nach dem zusammen zählen die Summe in ein Feld wieder gespeichert werden.

Abfragen kenne ich auch, jedoch kann noch nicht alles damit suchen (filtern) gelingt mir noch nicht immer.

Was ich überhaupt noch nicht verstehe, wenn ich in meinem Formular (was aufgebaut ist, auf eine Abfrage),
Eingaben mache, die dann nach der letzten Eingabe in meinem Formular die Summe sofort anzeigen soll.
Ich kann ja keine Abfrage vordefinieren oder anlegen, weil die Abfrage bzw. die Suche ergibt sich ja erst aus meiner Eingabe.
Beispiel, meine Eingabe ist:
Firma "A01"
Baugruppe "0001"
Jetzt suche alle "A01"+"0001" und zähle die Summen zusammen und zeige sie mir direkt in dem Formular nach dem Return.
Denn im nächsten Datensatz kann die Abfrage/Suche "A99"+"0123" sein.

Zum Thema VBA möchte ich sagen.
Klar wäre das einfacher, für mich im Augenblick am schwieriger.
Den VBA Code kann ich noch nicht nachvollziehen, beim Makro ist es noch einfacher.

Ich muss mal fragen, bin ich hier als Anfänger falsch?
Ist Euch das zu blöd mir zu helfen? Ehrliche Antwort wäre schön, habe da kein Problem mit.


Gruß Frank

[DF6GL]

Hallo,

"Muss aber etwas unter Zeitdruck zuerst eine Zwischenlösung finden,
damit mein Programm in Access läuft."

wird nicht funktionieren...  
Zwischenlösung und Zeitdruck beissen sich...


"Dadurch würde ich gerne den einen oder anderen Wert bzw. Summe in dem Datensatz speichern (als kleine Sicherheit für mich)"

vertraust Du Access nicht, dass es richtig rechnet?  Oder was meinst Du mit "Sicherheit"?



"Mit Datensatz 1500 meinte ich, im Formular unten steht Datensatz 1-1699 und ich bin halt jetzt gerade in dem 1500sten
und dort sollte nach dem zusammen zählen die Summe in ein Feld wieder gespeichert werden."

warum??
Die Summe, welche auch immer, kannst Du permanent anzeigen lassen.  Wie das geht, zeigen wir später auf.


"Jetzt suche alle "A01"+"0001" und zähle die Summen zusammen und zeige sie mir direkt in dem Formular nach dem Return."

etwa so im Steuerelementinhalt eines Textfeldes im Formularfuß:

= DomSumme("[Lohn-Arbeiter];"tbl1";"IDNR=" & [FirmaIDNR] & " And [Baugruppe] ='" & [Baugruppe] & "'")

Lohn-Arbeiter  = Feld in der Tabelle, das als Berechnungsgrundlage dient
IDNR  = Fremdschlüsselfeld für Firma-ID in der Tabelle
FirmaIDNR = Textfeld im Formular, das die Firma-ID anzeigt
Baugruppe = Feld für Baugruppe in der Tabelle
Baugruppe = Textfeld im Formular, das die Baugruppe anzeigt


"beim Makro ist es noch einfacher."

nein, das ist nicht einfacher, auch wenn im A2010 die Makro-Funktonen deutlich besser designed wurden.


"Aber leider steht nicht alles drin."

klar, solche (Berechnungen speichern etc.) Sachen sind auch nicht im "Scope" einer rel. Datenbank, wie schon gesagt.



"Ich muss mal fragen, bin ich hier als Anfänger falsch?"
Nein, bist Du nicht. Aber gerade weil Anfänger, MÜSSEN alle diese Hinweise sein, sonst verklagst Du mich (uns) wegen Vorspiegelung falscher Tatsachen oder gar unterlassener Hilfeleistung..  


"Ist Euch das zu blöd mir zu helfen? "

Was sollen diese Fragen?  Wenn es mir zu blöd wäre, würde ich Dir gar nichts schreiben..

"Ehrliche Antwort wäre schön, habe da kein Problem mit."
Bis jetzt hast Du immer ehrliche Antworten bekommen ...

[Stapi]

Hallo Frank

Ich muss mal fragen, bin ich hier als Anfänger falsch?
Ist Euch das zu blöd mir zu helfen? Ehrliche Antwort wäre schön, habe da kein Problem mit.

Jeder ist mal klein angefangen

Was ich überhaupt noch nicht verstehe, wenn ich in meinem Formular (was aufgebaut ist, auf eine Abfrage),

Im Normalfall werden die Tabellen erstellt in Beziehung zu einander gesetzt.

ZUNÄCHST müssen die Tabelle entspr. den Normalisierungsregeln aufgebaut werden

Dann wird für jeder deiner Tabellen ein Formular erstellt, dein Hauptformular wird dann die Firma sein und im Uterformular stehen die dazu gehörigen Artikel 1:n Beziehung. Das ganze bis hier her geht ohne jeglichen Marko oder VBA.
Sollten dann Berechnungen statt finden wie das addieren deiner Preise so wird das über eine berechnene Abfrage ausgeführt.

Dadurch würde ich gerne den einen oder anderen Wert bzw. Summe in dem Datensatz speichern (als kleine Sicherheit für mich)
Oder ist das total blöd?

blöd nicht aber auch nicht nötig

[Misterlion]

Hallo,
Danke erst einmal. Werde jetzt ein bisschen lesen und versuchen mit den Infos etwas umzusetzen.

Gruß
Frank

[Misterlion]

Hallo,
damit ich mal ein bisschen Land sehe 

Fangen wir klein an.
Meine Tabelle heißt = [tblBgArtikelKost]
Meine beiden Eingaben-Feldnamen sind:
[bakEurPer1000] = (Lohn Arbeiter=Währung EUR)
[bakBgArtikelNr]= (Baugruppe=Text)

Ich bin nun in meinem Formular und gebe die Daten ein:
[bakEurPer1000] = 11,07 EUR
[bakBgArtikelNr] =  0001

Ich habe ein Textfeld angelegt und gehe in den Steuerelementeninhalt und muss nun dort die Formel eingeben:

= DomSumme("[bakEurPer1000]" ; "tblBgArtikelKost" ; " ?)

Wie sieht der Befehl/Formel jetzt kpl aus?
Die Baugruppeneingabe muss ja automatisch übernommen werden ( [bakBgArtikelNr] = [bakBgArtikelNr] )
Diese Summe aller BG 0001 muss ich dann auf der Seite sofort sehen können.
Habe ich noch nicht geschafft.
Ich muss mich da leider so rantasten, sorry.

Gruß
Frank

[DF6GL]

Hallo,

na, wie ich es unten beschrieben habe...

wobei Du m. E. noch die Firma-ID benötigst....Wenn die noch nicht im Formular vorhanden ist, dann fügt die hinzu.


  -->    "IDNR=" & [IDNR] & " And [bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'"



Die akt. Summe wird aber erst NACH dem Speichern der akt. Eingabe angezeigt.

[Misterlion]

Hallo Franz,
Danke, dass hat schon fast geklappt.
Natürlich hatte ich eine bakID = Primärschlüssel in der [tblBgArtikelKost]
Diese habe ich dann mit Deiner ersetzt. Sieht so aus:

=DomSumme("[bakEurPer1000]";"tblBgArtikelKost";"bakID=" & [bakID] & " And [bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'")

Ich habe nun auch eine Anzeige im Formular, zwar noch nicht in EUR (11,07246), aber da.
Jedoch nur diese eine Summe. Es gibt in der Tabelle aber 10 weitere Baugruppen mit "0001"
Die werden anscheinend noch nicht zusammen gezählt. Habe ich noch etwas falsch?

Eine Frage noch zu den Anführungszeichen in der Mitte
[bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'")
Wieso gibt es nur ein Anführungszeichen rechts und wie kann ich das einzelne (Apostroph ist es ja nicht oder?) mit der Tastatur erzeugen.

Gruß
Frank

[DF6GL]

Hallo,

Ich habe nun auch eine Anzeige im Formular, zwar noch nicht in EUR (11,07246), aber da.

Access weiss ja nun nicht, dass der berechnete Wert  "Euro" als Einheit haben soll... Schreib in die Eigenschaft "Format" des Textfeldes "Euro" hinein.

Jedoch nur diese eine Summe. Es gibt in der Tabelle aber 10 weitere Baugruppen mit "0001"

Du musst mal genau erklären, was nun berechnet werden soll:

1) Summe über alle Werte in Spalte  "bakEurPer1000" aus den Datensätzen der Tabelle.

2) Summe über nur die Werte in Spalte  "bakEurPer1000" aus den Datensätzen , die zu der im Formular akt. angezeigten Firma gehören.

3) Summe über nur die Werte in Spalte  "bakEurPer1000" aus den Datensätzen , die zu der im Formular akt. angezeigten Artieklgruppe gehören.

4) Summe über nur die Werte in Spalte  "bakEurPer1000" aus den Datensätzen , die zu der im Formular akt. angezeigten Firma UND der akt. angezeigten Artikelgruppe gehören.

Entspr. Deiner Entscheidung muss der Ausdruck für den Where-Condition-Parameter der DomSumme-Funktion angepasst werden.

Wieso gibt es nur ein Anführungszeichen rechts und wie kann ich das einzelne (Apostroph ist es ja nicht oder?) mit der Tastatur erzeugen.

Die Anführungszeichen sind Bestandteil des sich ergebenden Kriterium-String für den Where-Condition-Parameter der DomSumme()-Funktion (DSum()-Funktion, schau mal in die VBA-Hilfe).
Diese sind nötig, weil das Tabellenfeld den Datentyp Text besitzt und weil die Gänsefüsse an dieser Stelle für die Zusammensetzung des Kriterium-Strings "reserviert" sind.
Es könnte auch so lautetn, indem man anstatt der Hochkommata jeweils einen Doppel-Gänsefuß benutzt  (Das sind aber alles Grundlagen der VBA-Programmierung, die Du in Deinem Buch nachlesen kannst. )

"IDNR=" & [IDNR] & " And [bakBgArtikelNr] =""" & [bakBgArtikelNr] & """"

oder mit der Chr-Funktion:

"IDNR=" & [IDNR] & " And [bakBgArtikelNr] =" & Chr(34)  & [bakBgArtikelNr] & Chr(34)



Das Hochkomma ist die <Shift><#>-Taste auf der Tastatur.

[Misterlion]

Hallo,
Um kennen zu lernen wie die DomSumme einfach aufgebaut ist, wollte ich Deinen Punkt 3) benutzen
3) Summe über nur die Werte in Spalte  "bakEurPer1000" aus den Datensätzen , die zu der im Formular akt. angezeigten Artieklgruppe gehören.

DomSumme("[bakEurPer1000]";"tblBgArtikelKost";"bakID=" & [bakID] & " And [bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'")
Allerdings addiert diese DomSumme nicht alle Baugruppen Artikel "0001", sondern nur die eine aktuelle im Formular. Es gibt aber noch 10 weitere mit "0001"


Du hast recht, für mein eigentliches Problem tblFirma und tblBgArtikelKost, Verknüpft über FirmaID und BgArtikelKostIDRef, benötige ich den DOMSumme Befehl mit Punkt 4)
4) Summe über nur die Werte in Spalte  "bakEurPer1000" aus den Datensätzen , die zu der im Formular akt. angezeigten Firma UND der akt. angezeigten Artikelgruppe gehören.


Das Hochkomma ist die <Shift><#>-Taste auf der Tastatur.
Klar, hatte ich in Word probiert und er wurde schräg. Liegt dann wohl am Zeichensatz.
Hatte gedacht es gibt noch einen anderen, weil der hier immer so senkrecht steht.


Danke für Deine Geduld
Gruß
Frank

[Stapi]

Hallo Misterlion

Du hast geschrieben:

DomSumme("[bakEurPer1000]";"tblBgArtikelKost";"bakID=" & [bakID] & " And [bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'")

Laut meiner Access Hilfe sollte es heißen:
=DSum("[bakEurPer1000]";"tblBgArtikelKost";"bakID=" & [bakID] & " And [bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'")

[MzKlMu]

Hallo,
in einem deutschen Access wird DSum zu DomSumme, automatisch. Als Steuerelementinhalt ist DomSumme zu verwenden.
In VBA muss  DSum verwendet werden, dann müssen aber auch die Semikolon gegen Komma getauscht werden.

[DF6GL]

Hallo,

3) Summe über nur die Werte in Spalte  "bakEurPer1000" aus den Datensätzen , die zu der im Formular akt. angezeigten Artieklgruppe gehören.

DomSumme("[bakEurPer1000]";"tblBgArtikelKost";"bakID=" & [bakID] & " And [bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'")
Allerdings addiert diese DomSumme nicht alle Baugruppen Artikel "0001", sondern nur die eine aktuelle im Formular. Es gibt aber noch 10 weitere mit "0001"

10 weitere von Was?

Die oben stehende Bedingung filtert natürlich auch nach der "bakID" was auch immer das ist (vermutlich der Primärschlüssel der Tabelle, was hier unsinnige Verwendung ist)


Nochmal: Definiere GENAU das, was Du haben willst...

=DomSumme("[bakEurPer1000]";"[bakBgArtikelNr] ='" & [bakBgArtikelNr] & "'")

berechnet die die Summe aller Werte aus Tabellen-Spalte "bakEurPer1000" derjenigen Datensätze, die den gleichen  Wert in Feld  "bakBgArtikelNr" besitzen wie das Form-Textfeld "bakBgArtikelNr" aktuell anzeigt....