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