Per Knopfdruck verschiedene Unterformulare

Computer: Software & Programmierung Microsoft Access
1

Hallo,

gibt es in Access die Möglichkeit, bei einem Formular mit Unterformular das Unterformular per Knopfdruck durch ein anderes Unterformular zu ersetzen? Wenn ja, wie funktioniert denn das?

Hintergrund:

Es gibt ein Rahmenformular zur Eingabe, in welchem momentan die kompletten Ausgänge eines Tages als Unterformular eingebettet sind. Jetzt soll die Datenbank um die Eingänge erweitert werden. Da nun aber kein Platz für zwei Unterformulare vorhanden ist, müßte zur Eingabe der Eingänge das Ausgangsunterformular durch ein Eingangsunterformular ersetzt werden.

Ich hoffe, da hat jemand eine Idee.

Gruß

Thomas

2

Hallo,

gibt es in Access die Möglichkeit, bei einem Formular mit
Unterformular das Unterformular per Knopfdruck durch ein
anderes Unterformular zu ersetzen? Wenn ja, wie funktioniert
denn das?

Eine einfache Lösung wäre, Registerkarten in das Formular einzubauen (Access 2000) Toolbox: „Registersteuerelement“. In die Registerkarten kannst du viele Unterformulare einbauen und durch die Registerkartenbenennung ist es auch sehr übersichtlich.

Steffen

3

Hallo Steffen,

danke für diese Idee. Kannst Du mir das ein wenig genauer erklären, wie das funktioniert?

Gruß Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Hallo Steffen,

danke für diese Idee. Kannst Du mir das ein wenig genauer
erklären, wie das funktioniert?

  • Formular in der Entwurfsansicht öffnen
  • Toolbox öffnen (wenn nicht eh schon automatisch offen)
  • In der Toolbox das Element „Registersteuerelement“ anklicken
  • Mit der Maus im Formular den Bereich aufziehen, in dem die Registerkarten platziert sein sollen (dazu evtl. erst „Platz schaffen“)
  • Vorhandenes Unterformular ausschneiden
  • Registerkarte 1 aktivieren
  • Unterformular einfügen
  • Registerkarte 2 aktivieren
  • Neues Unterformular einbauen (Tollbox, Element „Unterformular“)

Steffen

1 „Gefällt mir“
5

Hallo Steffen,

die Reiter habe ich jetzt drin, aber wie kann ich das Originalunterformular in den Reiter hineinbringen? Ausschneiden und Kopieren klappt irgendwie nicht so recht. Was mache ich hier falsch?

Gruß

Thomas

  • Vorhandenes Unterformular ausschneiden
  • Registerkarte 1 aktivieren
  • Unterformular einfügen
6

Hallo Steffen,

die Reiter habe ich jetzt drin, aber wie kann ich das
Originalunterformular in den Reiter hineinbringen?
Ausschneiden und Kopieren klappt irgendwie nicht so recht. Was
mache ich hier falsch?

  • Unterformular anklicken (aktivieren) -> schwarze „Ziehpunkte“ an den Ecken erscheinen
  • Ausschneiden mit z.B. strg+x
  • Wichtig: Registerblatt durch klicken auf den Reiter aktivieren (ein paar mm innerhalb des Registerblattes erscheinen schwarze Quadrate
  • jetzt mit z.B. strg+v einfügen
  • funktioniert einwandfrei

Steffen

  • Vorhandenes Unterformular ausschneiden
  • Registerkarte 1 aktivieren
  • Unterformular einfügen
1 „Gefällt mir“
7

Hallo Steffen,

danke, jetzt klappt das bei mir auch. Irgendwie habe ich da wohl etwas mit dem markieren der Reiter falsch gemacht. Oder ich habe einfach nur zwei linke Hände beim Markieren. :smile:

Gruß

Thomas

  • Unterformular anklicken (aktivieren) -> schwarze
    „Ziehpunkte“ an den Ecken erscheinen
  • Ausschneiden mit z.B. strg+x
  • Wichtig: Registerblatt durch klicken auf den Reiter
    aktivieren (ein paar mm innerhalb des Registerblattes
    erscheinen schwarze Quadrate
  • jetzt mit z.B. strg+v einfügen
  • funktioniert einwandfrei

Steffen

8

Hallo Steffen,

kannst Du mir evtl. jetzt auch noch sagen, wie ich in VBA überprüfen kann, welcher Reiter gerade gewählt ist?

Gruß

Thomas

9

kannst Du mir evtl. jetzt auch noch sagen, wie ich in VBA
überprüfen kann, welcher Reiter gerade gewählt ist?

Ne, leider nicht, aber hier gibt es ja viele VBA-Spezialisten …

Steffen

10

kannst Du mir evtl. jetzt auch noch sagen, wie ich in VBA
überprüfen kann, welcher Reiter gerade gewählt ist?

wie folgt improvisiert:

Sub NameSeite()

Dim AktSteuerelement As Control
Dim strSteuerelement As String
Set AktSteuerelement = Screen.ActiveControl
strSteuerelement = AktSteuerelement.Name

End Sub

Problem: Aktiviert ist das erste Feld auf der Registerkarte, wenn sie angeklickt wird. Dieser wird auch ausgegeben. Also muss man diesem einen Namenszusatz geben, der den Namen des Registerblatts (Seite) enthält.

Steffen