Hallo Robert,
vielen Dank für Deine schnelle Antwort
Am 12.03.2010 17:51, schrieb Robert Großkopf:
Wenn es Dir nichts ausmacht, dass die Daten erst anschließend in dem Formular
auftauchen würde ich das über ein Subformular lösen. Dann kann ja die Abfrage
auch ruhig nicht editierbar sein. Du lässt einfach einen Tabellenstreifen mit
genau einem Datensatz unterhalb Deines Formulars nach dem Abspeichern
einblenden, um die notwendigen Informationen zu erhalten.
Schöner machbar ist das natürlich über Makros, die den gesuchten Wert in ein
Formularfeld schreiben.
Nur: Das Ganze führt dann natürlich weiter als es Eberhard mit seiner
Fragestellung erhalten wollte. Dort stand nur etwas von dieser direkten
Berechnung, die oben steht.
Als Erstes werd' ich diesen Weg mal anwenden.
(solches meinte ich, als ich das Thema Beispieldatenbank ansprach -
solche Beispiele, die gut kommentiert sind werden benötigt, damit auch
der Durchschnittsbürger eine einfache Datenbank für seine Aufgaben
nutzen kann)
Makrobeispiel:
SUB Brutto
oDoc=thisComponent
oDrawpage=oDoc.drawpage
oForm=oDrawpage.forms.getByName("Artikel")
oFeld=oForm.getByName("Brutto")
inSkonto = oForm.getByName("Skonto").CurrentValue
doMWSt = oForm.getByName("MWSt").CurrentValue
doPreis =oForm.getByName("Preis").CurrentValue
doBrutto = doPreis + doPreis * doMWSt / 100 - (doPreis + doPreis *
doMWSt /
100) * inSkonto / 100
oFeld.BoundField.updateDouble(doBrutto)
E_Preis_Brutto
END SUB
(die Variablen sind bei mir außerhalb für den gesamten Makro-Container
deklariert - o... DIM o... AS OBJECT; in... DIM in.. AS INTEGER usw)
Die Felder im Formular werden angesteuert, die Werte ausgelesen, mit den Werte
gerechnet und das Ergebnis in ein weiteres Feld geschrieben.
Das werde ich anschliessend bestimmt versuchen
(und Dir dann vielleicht mit dummen Fragen auf den Geist gehen)
zuerst werde ich aber dein Makro unter die Lupe nehmen, um den ganzen
Ablauf auch wirklich zu verstehen. Soweit ich sehe, ist das ganze als
Subfunktion gehalten. Der Code ist mir beim überfliegen noch nicht ganz
klar...
Gruß
Robert
Gruss Marino
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
