bestimmte Formulare schließen bei Button klick

[Brallu]

Moin Gemeinde,
leider komme ich nicht weiter 
Ich habe ein Start Formular und da kann ich mit 6 verschiedenen Buttons Formulare öffnen (siehe Bild).
Es soll beim Wechsel nie das Start Formular geschlossen werden
und nicht das ausgewählte Formular.
Aber das eventuell vorher geöffnete Formular soll geschlossen werden.
Wenn ich zurückgehe zum Start Formular über Button "zurück" (hier schließt das aktuelle FRM schon)
oder über den FRM-Reiter soll beim auswählen eines anderen Formulars das vorige geschlossen werden.

Ich hoffe das war verständlich genug 

Gruß
Danny

[bahasu]

Hi

Als Anregung für eigene Versuche:
Wenn Du vor dem Aufruf eines neuen Formulars mit der Anweisung

Code: [Auswählen]

If SysCmd(acSysCmdGetObjectState, acForm, "Mein_Formular") <> 0 Thenfeststellst, dass das Formular geöffnet ist, kannst Du es mit der do.cmd.close-Anweisung ggf. schließen.

Harald

[Brallu]

Moin und danke für deine Antwort!
Das ist ja glaube ich mein Problem!
Ein FRM offen zu halten und alle anderen nicht, kriege ich hin. Aber es sollen ja 2 Formulare offen bleiben.

Also frmStart mit den Auswahlmöglichkeiten und das gerade ausgewählte Formular!
Wenn ich deinen Code richtig verstehe kann ich damit auch nur ein Formular offen halten!?

Gruß
Danny

[bahasu]

Hi

Auf die Gefahr hin, dass ich es nicht verstanden habe.
Wenn Du aus dem Start-frm ein anderes aufgerufen hast, sollte doch das Start-frm noch offen, aber im Hintergrund sein.
Wenn Du im aufgerufenen Programm einen "Beenden"-Button einbaust, bei dem der Code

Code: [Auswählen]

Me.Visble = falsehinterlegt ist, wird das aufgerufene Formular unsichtbar gemacht und das Start-frm sollte wieder sichtbar sein.
Und dann beim Aufruf eines neuen Formulars, dann entweder 5 mal die obige Zeile mit den angepassten Formularnamen oder über eine Schleife ein ungewünschtes Formular wieder schließen.

Harald

[Beaker s.a.]

Hallo Danny,
Ist das Start-Form ein Navigations-Formular?
Wenn Ja, geht es nicht, - da kannst du immer nur ein Formular gleichzeitig
anzeigen.

Eine Möglichkeit wäre das Start-Form als PopUp zu erstellen und mit
einem Autokey-Macro unsicht-/sichtbar zu schalten. Wenn du dann in der
DB die Registerkartenansicht einschaltest kannst du so viele Formulare
gleichzeitig öffnen wie du möchtest.

gruss ekkehard

[Brallu]

Moin Ekkehard und Harald,
ich danke euch für die schnelle Antwort.
Scheinbar hatte ich es nicht richtig beschrieben!!!
Ich möchte aus dem Haupt Formular ein anderes aufrufen.
und bei beenden wieder schließen. So das neben dem Hauptformular immer nur eins offen ist.

Die Lösung für mich ist die Reiter unter "Optionen - Optionen für aktuelle Datenbank - Dokumentenregisterkarten aus" auszuschalten und mit dem Button Befehl

Code: [Auswählen]

DoCmd.Close die Form zu schließen!

Ich danke euch beiden!

Gruß
Danny

[Beaker s.a.]

Hallo Danny,
So ganz komme ich mit deinen Erklärungen noch nicht klar.
Versuchen wir es Schritt für Schritt.

Ich möchte aus dem Haupt Formular ein anderes aufrufen.

Das hast du ja sicher schon hinbekommen mit

Code: [Auswählen]

DoCmd.OpenForm ...Dies ist i.Ü. völlig unabhängig von der gewählten Darstellungsform
(überlappend oder Registeransicht).

und bei beenden wieder schließen

Was heisst "beim Beenden" bzw. durch was wird das ausgelöst?
Wie man ein Form schliesst weisst du ja (s. dein letzter Post).

So das neben dem Hauptformular immer nur eins offen ist.

Dies wäre das Standardverhalten eines Navigationsformulars.
Diese sind allerdings etwas sperrig in der Handhabung (Code). Wenn
du verhindern willst, das neben dem Start-Form mehr als ein
weiteres Form geöffnet werden kann, sehe ich zwei Möglichkeiten.

1. Du fragst die Anzahl der geöffneten Formulare ab

Code: [Auswählen]

Private Sub DeinButton_Click()
    If Forms.Count > 2 Then
        Exit Sub
        'evtl. noch eine Meldung an den User einbauen
    Else
        DoCmd.OpenForm DeinFormular    'evtl. weitere Parameter mitgeben (siehe OH)
    End If
End Sub
2. Du merkst dir den Formnamen beim Öffnen.
Im Kopf des Startforms

Code: [Auswählen]

Private m_frm As String

Public Property Let OffenesForm(ByVal NewForm As String)
    m_frm = NewForm
End Property

Public Property Get OffenesForm() As String
    OffenesForm = m_frm
End Property

'Der Code der Buttons sieht dann so aus
Private Sub DeinButton_Click

    If OffenesForm <> vbNullString Then
        DoCmd.Close acForm, OffenesForm
    End If

    OffenesForm = "DeinFormular"
    DoCmd.OpenForm "DeinFormular"    'evtl. weitere Parameter wie oben

End Sub
Beim Schliessen (Beenden) des geöffneten Forms muss die Property
dann zurückgesetzt werden.

Code: [Auswählen]

Private Sub Form_Close()
    OffenesForm = vbNullString
    DoCmd.Close acForm, Me.Name
End Sub
gruss ekkehard

[Lachtaube]

Wenn ich das richtig verstanden habe, sollte in etwa dieser Code funktionieren.

Code: [Auswählen]

'im Steuerformular für jeden Knopf wiederholen
Private Sub EinKnopf_Click()
   CloseAllFormsExceptMe
   DoCmd.OpenForm "EinFormName"
End Sub

Private Sub CloseAllFormsExceptMe()
   Dim f As Access.Form
   
   For Each f In Forms
      If f.Name <> Me.Name Then DoCmd.Close acForm, f.Name, acSaveNo
   Next
End Sub

[Beaker s.a.]

So einfach kann's sein 

[Brallu]

Wow Danke euch beiden!!!
Das ist genau was ich brauchte.
Ohne euch würde ich nicht weiterkommen

Gruß
Danny