(gelöst) Text per Makro in Textfeld schreiben!?
Verfasst: Do, 04.06.2009 21:42
Hi Leutz,
die Datenbank funktioniert dank der Beiträge und Hilfe der User hier im Forum schon recht passabel, ein kleiner Schönheitsfehler ist noch im System.
Und irgendwie sehe ich den Wald vor lauter Bäumen nicht.
Was soll die Datenbank können?:
* Musiknoten verwalten die als Grafik vorhanden sind
* Ein Feld für die Datei (Pfad & Name)
* Ein Feld für eine Bemerkung um was es sich bei der Datei handelt
* Eine Möglichkeit eine neue Datei einfach einzupflegen
Das alles funktioniert mit einem kleinen Schönheitsfehler, wenn eine neue Datei über die Dateiauswahl eingefügt wird erscheint diese auch im Textfeld, aber die Datenbank merkt es nicht. Soll bedeuten wenn man nun einen Datensatz zurück geht ist die Eingabe futsch, Abhilfe schaft wenn man im Textfeld einfach einen Buchstaben der Datei entfernt und wieder eingibt.
So Sieht das Formular aus:
Und so die Makros:
Hat Jemand eine Idee was ich vergessen oder übersehen habe?
die Datenbank funktioniert dank der Beiträge und Hilfe der User hier im Forum schon recht passabel, ein kleiner Schönheitsfehler ist noch im System.
Und irgendwie sehe ich den Wald vor lauter Bäumen nicht.
Was soll die Datenbank können?:
* Musiknoten verwalten die als Grafik vorhanden sind
* Ein Feld für die Datei (Pfad & Name)
* Ein Feld für eine Bemerkung um was es sich bei der Datei handelt
* Eine Möglichkeit eine neue Datei einfach einzupflegen
Das alles funktioniert mit einem kleinen Schönheitsfehler, wenn eine neue Datei über die Dateiauswahl eingefügt wird erscheint diese auch im Textfeld, aber die Datenbank merkt es nicht. Soll bedeuten wenn man nun einen Datensatz zurück geht ist die Eingabe futsch, Abhilfe schaft wenn man im Textfeld einfach einen Buchstaben der Datei entfernt und wieder eingibt.
So Sieht das Formular aus:
- Base_DateiInfo.jpg (48.47 KiB) 1798 mal betrachtet
Code: Alles auswählen
Sub OpenFile
dim sText as string
dim sURL as string
REM --- Text mit der Funktion GetText() aus dem Textfeld holen
sText = GetText( "txtDatei" )
REM --- Pfad & Datei als URL (immer diese Leerzeichen)
sURL = ConvertToURL(sText)
REM --- Datei mit dem Konqueror öffnen
Shell "konqueror " & sURL
End Sub
Sub OpenAuswahl
dim sAuswahl as string
REM --- Text mit der Funktion GetText() aus dem Textfeld lesen
sAuswahl = GetText( "FileSelection" )
REM --- Text mit der Funktion PutText() in das Textfeld schreiben
PutText( "txtDatei", sAuswahl )
End Sub
Function GetText(Textfeld)
dim oDoc as Object
dim oForm as Object
dim oFeld as Object
oDoc = ThisComponent
oForm = oDoc.drawpage.forms(0)
oFeld = oForm.getByName( Textfeld )
GetText = oFeld.Text
End Function
Function PutText(Textfeld, Auswahl)
dim oDoc as Object
dim oForm as Object
dim oFeld as Object
oDoc = ThisComponent
oForm = oDoc.drawpage.forms(0)
oFeld = oForm.getByName( Textfeld )
oFeld.Text = Auswahl
End Function
