Zahl der Einträge im Unterformular mit Hilfe eines Makros auslesen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

floko90
Beiträge: 2
Registriert: Mo, 19.06.2017 08:15

Zahl der Einträge im Unterformular mit Hilfe eines Makros auslesen

Beitrag von floko90 » Mo, 19.06.2017 08:31

Hallo Gemeinde,

bin gerade dabei eine Datenbank zum Verwalten von Laborversuchen zu erstellen. Die Datenbank beruht auf mehreren Tabellen. Habe deshalb ein Formular mit einem 'Main Form' und verschiedenen 'SubForm' erstellt. Über die 'verknüpfen nach' Funktion filter ich die Unterformulare damit mir nur die Sachen von Relefanz angezeigt werden. Nun möchte ich quasi ein Makro zur automatischen Lieferscheinerstellung schreiben und lese dafür aus den Formularen und Unterformularen bestimmte Daten aus. Soweit alles gar kein Problem. Allerdings fehlt mir eine Funktionmit deren Hilfe ich die Anzahl von Einträgen in dem 'gefilterten Unterformular' auslesen kann. Das kann ja eigentlich nicht so schwer sein, aber ich bekomme es nicht hin.

Wer sich unten den Code anschaut wird sehen, dass mein bisher 'bester' Versuch die funktion count() war...allerdings gibt mir die nur die Anzahl der Zeilen zurück...gebraucht werden aber die Spalten.

Bedanke mich jetzt schon einmal, falls sich jemand meines Problemes annimmt.

Code: Alles auswählen

Sub LS 
DIM oDoc as object
DIM oform as object
DIM oofrom as object
DIM aufnr as string
DIM amount as string
DIM aufgeID as string
DIM besnr as string
	
	
	oDoc = ThisComponent
	
	oform = oDoc.Drawpage.forms.getByName("MainForm").getByName("Tab1")
	aufnr = oform.getByName("Auftragsnr").text
	aufgeID = oform.getByName("Bearbeiter").text
	besnr = oform.getByName("Bestellnummer").text
	ooform = oDoc.Drawpage.forms.getByName("MainForm").getByName("SubForm").getByName("SubForm_Grid")

		
	
	amount = ooform.count
	

 
 msgbox aufnr & aufgeID & besnr &amount

End Sub

floko90
Beiträge: 2
Registriert: Mo, 19.06.2017 08:15

Re: Zahl der Einträge im Unterformular mit Hilfe eines Makros auslesen

Beitrag von floko90 » Mo, 19.06.2017 10:29

Konnte mir jetzt selber helfen

gesuchte Funktion war:

Code: Alles auswählen

amount = ooform.getRowSet.RowCount

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 8 Gäste