Seite 1 von 1

Listenfelder aktualisieren

Verfasst: Mo, 18.02.2013 21:46
von Geotrans
Ich bräuchte nochmals Hilfe, ich kriege es trotz einiger Treads zu dem Thema im Forum nicht hin.
Ich möchte in meinem Formular "factory" die beiden Listenfelder "InputGood" im Unterformular "InputGood" und "OutputGood" im Unterformular "OutputGood" aktualisieren, nach dem sich ein Wert im Formular "Good" geändert hat.
Meine bisherigen Versuche bringen nur Fehlermeldungen!

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Aktualisieren_Good
   oDoc = thisComponent
   oDrawpage = oDoc.Drawpage
   oForm = oDrawpage.Forms(0)
   oListboxModel = oForm.getByName("InputGood")
   oListboxModel.refresh()
End Sub

Re: Listenfelder aktualisieren

Verfasst: Mo, 18.02.2013 23:18
von F3K Total
Hi,

Code: Alles auswählen

Sub Aktualisieren_Good
   oDoc = thisComponent
   oDrawpage = oDoc.Drawpage
   oForm = oDrawpage.Forms(0)
   oListboxModel = oForm.getByName("InputGood").getByName("InputGood").getByName("Good_ID")
   oListboxModel.refresh()
End Sub
oForm -> MainForm
.getByName("InputGood") -> SubForm
.getByName("InputGood") -> Tabellenkontrollfeld
.getByName("Good_ID") -> Listboxspalte

Gruß R

Re: Listenfelder aktualisieren

Verfasst: Mi, 20.02.2013 20:39
von Geotrans
Vielen Dank für die Hilfe und die Erklärung, damit habe ich jetzt auch die anderen Makros hin bekommen! :D