BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Textfeld auslesen

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
jo7411
Beiträge: 3
Registriert: Do 14. Sep 2017, 14:02

Textfeld auslesen

Beitrag von jo7411 » Do 14. Sep 2017, 14:13

Hallo Zusammen,
ich habe mir in einer Libreoffice Calc Tabelle ein Dialog erstellt, in dem Textfelder ausgefüllt werden sollen und in einer Tabelle ausgelesen werden sollen. Wenn ich den Dialog wieder öffne soll die Eingabe die vorher gemacht wurde wieder in den Textfeldern stehen.

Folgenden Code würde ich dafür benutzen:

Code: Alles auswählen

Sub Start_Dlg
	Dialoglibraries.Loadlibrary("Tools")'Achtung Bibliothek anpassen
	MyDlg= CreateUnoDialog(Dialoglibraries.TEST.Adresse) 'Achtung Bibliothek und Dialogname anpassen
	Auslesen
	MyDlg.execute()
End Sub

Sub Auslesen

	oDoc = thisComponent
	mySheet = oDoc.Sheets("Tankbau")
	mycell = mysheet.getCellRangeByName("AM1")
	myString1 = mycell.string
	MyDlg.getControl("TextField1").Text = myString1
End Sub

Sub Schreiben
	odoc=thisComponent
	MyCtrl=MyDlg.getControl("TextField1")
	MyText = MyCtrl.Model.Text
	mySheet = oDoc.Sheets("Tankbau")
	mycell = mysheet.getCellRangeByName("AM1")	
	mycell.string=MyText	
End Sub
Jedoch bekomme ich immer wieder die Fehlermeldung: "BASIC-Laufzeitfehler. Objektvariable nicht belegt."

Könnt Ihr mir weiterhelfen?

Vielen lieben Dank.
LG Joé

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Textfeld auslesen

Beitrag von mikele » Do 14. Sep 2017, 16:09

Hallo,
die Frage ist, an welcher Stelle du die Meldung bekommst. Auf alle Fälle muss die Variable MyDlg sub-übergreifend deklariert werden.
Vor der ersten Sub also:

Code: Alles auswählen

Dim MyDlg as object
Gruß,
mikele

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten