Button en- bzw. disablen

amn.ssy

Erfahrenes Mitglied
Morgen,

ich muß mit Open/LibreOffice ein interaktives Formular (nur Prototype) mit "Pflichtfeldern erstellen. Das meiste funktioniert bis dahin, daß es mir gerade nicht gelingt ein standardmässig ausgeschalteten Button in Abhängigkeit zur Auswahl von min. einer Checkbox zu aktivieren. VBA/LibreBasic ist derzeit noch ziemliches Neuland.
Der ganze CODE (läßt sich bestimmt noch vereinfachen) sieht derzeit so aus (Thema "Button" steht ganz am Ende):
PHP:
Sub Listbox_select(oEvent AS Object)

	oDoc = thisComponent
	oController = oDoc.getCurrentController()
	oform = odoc.drawpage.forms.getbyindex(0)
	oList = oForm.getByName("lst1")
	oText1= oForm.getByName("txt1")
	oText2= oForm.getByName("txt2")
	oText3= oForm.getByName("txt3")
	oText4= oForm.getByName("txt4")
	oText5= oForm.getByName("txt5")
	oText6= oForm.getByName("txt6")
	oListCtr = ThisComponent.CurrentController.GetControl(oList)
	oTextCtr = oListCtr.SelectedItem
	
	Dim Context, DB, Connection As Object
	Dim DBName As String
	Dim Statement As Variant
	Dim Sql1, Sql2, Sql3, Sql4, Sql5, Sql6 as string
	Dim Query1, Query2, Query3, Query4, Query5, Query6 As Object
	
   		DBName = "REPARATUR"
		Context =createUnoService("com.sun.star.sdb.DatabaseContext")
		DB = Context.GetByName (DBName)
		Connection = DB.GetConnection ("","")
		
		Sql1="SELECT `key` FROM `REPARATUR` WHERE `key` = '"+oTextCtr+"';"
		Sql2="SELECT `objekt_anrede` FROM `REPARATUR` WHERE `key` = '"+oTextCtr+"';"
		Sql3="SELECT `objekt_name` FROM `REPARATUR` WHERE `key` = '"+oTextCtr+"';"
		Sql4="SELECT `objekt_strasse` FROM `REPARATUR` WHERE `key` = '"+oTextCtr+"';"
		Sql5="SELECT `objekt_ort` FROM `REPARATUR` WHERE `key` = '"+oTextCtr+"';"
		Sql6="SELECT `langtext` FROM `REPARATUR` WHERE `key` = '"+oTextCtr+"';"
		
		Statement = Connection.CreateStatement
		Query1 = Statement.ExecuteQuery(Sql1)
		oText1.text=Query1.GetString(1)
		Query2 = Statement.ExecuteQuery(Sql2)
		oText2.text=Query2.GetString(1)
		Query3 = Statement.ExecuteQuery(Sql3)
		oText3.text=Query3.GetString(1)
		Query4 = Statement.ExecuteQuery(Sql4)
		oText4.text=Query4.GetString(1)
		Query5 = Statement.ExecuteQuery(Sql5)
		oText5.text=Query5.GetString(1)
		Query6 = Statement.ExecuteQuery(Sql6)
		oText6.text=Query6.GetString(1)
		
	Connection.Close()
	End Sub

Sub chkFail
	oDoc = thisComponent
	oController = oDoc.getCurrentController()
	oform = odoc.drawpage.forms.getbyindex(0)
	oCheck1= oForm.getByName("chk1")
	oCheck2= oForm.getByName("chk2")
	oCheck3= oForm.getByName("chk3")
	oChkFail= oForm.getByName("chkfail")
	oBtnSave= oForm.getByName("btnsave")
	oBtnSaveSend= oForm.getByName("btnsavesend")
	If oCheck1.State (1) or oCheck2.State (1) or oCheck3.State (1) THEN
	oChkFail.text=""
	oBtnSave.enable = TRUE
	oBtnSaveSend.enable= TRUE
	else
	oChkFail.text="!"
	oBtnSave.enable = FALSE
	oBtnSaveSend.enable = FALSE
	END If 	
End Sub

Danke schon mal für euere Ratschläge

Grüße
opiWahn

P.S. geh ich recht in der Annahme, daß ich bestimmte Funktionen in JS coden muß, damit das ganze auch als PDF-Fomular funktioniert?
 
Zuletzt bearbeitet:

Neue Beiträge

Zurück