Access Unterformular

[PCDummy]

Es ist wieder soweit, ich habe ein Problem!
Ich habe eine Accessdatenbank erstellt, im Hauptformular habe ich ein Unterformular
eingefügt. Nun das Problem, wenn ich im Hauptformular über ein Kompinationsfeld
einen Datensatz suche und anzeigen lasse, soll im Unterformular über eine Verknüpfung
zweier Felder, die dazugehörigen Datensätze aus einer zweiten Tabelle angezeigt werden.
Da ich im Unterformular immer unterschiedlich viele Treffer habe, habe ich das Unterformular in der Größe dynamisch gemacht, nur zeigt mir das UFo beim Aufrufen
nicht sofort alle Datensätze an, sonder ich muss mit dem Mauszeiger in das UFo klicken
damit sich die Fehlenden Datensätze einblenden.

Wie kann ich das UFo davon überzeugen von Anfang an alles Datensätze zu zeigen?

Ich hoffe Ihr versteht meine Problem!! :-)

Danke für Eure Hilfe

PC Dummy

 

[PCDummy]

Sorry,
habe ich mich so "dumm" ausgedrückt, oder hat keiner eine Idee?

Bitte Info, oder Fragen, oder irgendwas.

Thx

PC Dummy

 

[fliegenkiller]

Kennst du dich mit VBA aus? Dann kannst du die Daten des SubForms mittels

Me.SubFormName.Form.RecordSource = 'SQL'

die Daten des Subforms ändern. Als Standartdaten nimmst du dann einfach alle Daten. Es dürfte jedoch auch gehen, wenn du einfach einen Filter vergibst:

Me.SubFormName.Form.Filter= 'Daten=abc'
Me.SubFormName.Form.FilterOn= true

Damit ist es einfacher, alle Daten wieder anzuzeigen.

Ich kann Access nicht so gut. Das einzige, was ich kann ist SQL, DAO und VBA. Habe bisjetzt eigentlch alles per VBA gemacht.

 

[PCDummy]

@fliegenkiller
thx für deine Antwort. Jetzt bin ich mir nicht sicher, ob ich das Prob richtig geschildert habe

In meinem Hauptformular suche ich nach einer Firma, die mir dann angezeigt wird.
Im UFo werden mir die dazugehörigen Beteiligungen an anderen Firmen angezeigt.
Das UFo ist so programmiert, dass sich die Größe des UFo dynamisch nach der Anzahl der anzuzeigenden Datensätze richtet. Dies funzt "theoretisch" auch.
Jetzt das Prob: Wenn im UFo z.B. 10 Datensätze sind, zeigt er zuerst nur 3 Datensätze,
klicke ich jetzt mit der Maus auf dea UFo kommen 2 dazu, klick ich nochmal die Restlichen.

Meine Anforderung ist: Ich möchte natürlich nicht immer in das Formular klicken, sondern das UFo soll sofort die gesamte Anzahl der Datensätze anzeigen.
Also wie "zwinge" ich das UFo dazu mir zu gehorchen?

Thx und sorry für die konfuse Beschreibung.

PC Dummy

 

[PCDummy]

Ich habe hier nochmal den Sourcecode mit dem ich das UFo dynamisch mache


Private Sub Form_Current()

Dim curHeight, ufoHeight
Const cDataSheet As Long = 2
If Me.CurrentView <> cDataSheet Then
curHeight = Me.Section(acHeader).Height + _
Me.Detailbereich.Height * (Me.RecordsetClone.RecordCount + 1)
Me.InsideHeight = curHeight
End If
End Sub

Nun möchte ich, das in dem UFo der letzte Datensatz sofort beim abfragen angezeigt
wird und ich nicht noch 1 - 3 mal in das UFo reinklicken muss.

 

[PCDummy]

So, ich habe dieses Thema eröffnet und ich kann es auch abschliessen.

Für all die, die es interessiert, wenn man die Datenquelle von Tabelle auf
Abfrage umdefiniert, funzt es mit der dynamischen Größe des Unterformulars.

^^
Vielen Dank für die zahlreichen Antworten und Hilfestellungen.

PC Dummy