Am Sonntag, 31. August 2008 09:24:27 schrieb Robert Großkopf: > Hallo Sebastian, > > > Wie kann ich es bewirken, daß in einem Textfeld eine Information, z.B. > > eine LV-Nummer oder ein beliebiger String automatisch stehen bleibt, d.h. > > aus der vorherigen Eingabe übernommen wird, bis ich den Eintrag in diesem > > Feld überschreibe? > > Das klingt eher nach einer Konstruktion Hauptformular - Unterformular, > wobei die LV-Nummer im Hauptformular steht und dann ans Unterformular > weitergegeben wird. Vermutlich hast Du die LV-Nummer mit irgendwelchen > anderen > Informationen sowieso in einer anderen Tabelle untergebracht als den > Inhalt, den Du in die anderen Felder eintragen möchtest. > > Ansonsten würde ich versuchen, beim Eventhandler "Fokusverlust" ein Makro > einzubinden, das den aktuellen Text in eine (einzeilige, einspaltige) > Datenbanktabelle schreibt. Der Standardtext sollte dann mit dem jeweiligen > Wert aus dieser Tabelle beschrieben werden. > > Ich habe das einmal stückchenweise aus einer Datenbank kopiert, die ich vor > einiger Zeit erstellt habe (und die auch im Netz zur Verfügung steht, > http://www.scoolonline.de/download/openoffice.html ): > > > DIM Datenquelle AS OBJECT > DIM Verbindung AS OBJECT > DIM SQL_Anweisung AS OBJECT > DIM Abfrageergebnis AS OBJECT > DIM Sql AS STRING > DIM odoc AS OBJECT > DIM odrawpage AS OBJECT > DIM oform AS OBJECT > DIM oform1 AS OBJECT > DIM oText AS OBJECT > DIM oInhalt AS VARIANT > DIM Anzahl AS VARIANT > > rem Formular ansteuern, Textfeld auslesen > odoc=thisComponent > odrawpage=odoc.drawpage > oform1=odrawpage.forms.getByName(NameFormTextBox) > oText=oform1.getByName(NameTextBox) > oInhalt=oText.getCurrentValue() > rem Datenbankverbindung erzeugen > Datenquelle = ThisComponent.Parent.DataSource > Verbindung = Datenquelle.GetConnection("","") > SQL_Anweisung = Verbindung.createStatement() > > Sql = "INSERT INTO "+CHR(34)+Tabelle+CHR(34)+" > ("+CHR(34)+TabFeld+CHR(34)+") VALUES ('"+oInhalt+"') " > SQL_Anweisung.executeUpdate (Sql) > > Wenn ich das so richtig sehe muss "NameFormTextBox" durch das entsprechende > Formular ersetzt werden (heißt vielleicht "Standard") und der > Name "NameTextBox" durch den Namen des Textfeldes ersetzt werden. > > Für die Sql-Anweisung muss statt "Tabelle" der entsprechende Tabellenname > und statt "TabFeld" die entsprechende Feldbeweisung stehen. > > Aber, wie oben geschrieben: Ich würde erst einmal den Weg von Hauptformular > und Unterformular versuchen. > > Gruß > > Robert
Danke Robert, ich probier das mal aus Gruß -- Saltamontes Arts Sebastian Roser Frühlingstrasse 1 93413 Cham 09971-768701 --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
