Formular öffnen und neuen Datensatz anlegen- Vba

[Patrick_82]

Hallo zusammen,

Als eher laienhafter Access Bediener zerbreche ich mir seit Stunden den Kopf, auf der Suche nach einem Syntax/ Befehl. Und zwar möchte ich ein Formular wenn es minimiert ist, nur per Button eines anderen Formulars öffnen und wenn es richtig geschlossen ist, dann soll es öffnen und einen neuen/leeren Datensatz anlegen oder bereitstellen.

So sinngemäß: wenn Formular minimiert,dann DoCmd.openForm (,,formularname"- sonst DoCmd.openForm - DoCmd.RunCommand acCmdRecordsGoToNew 

Vielleicht hat einer von euch hier eine Idee wie ich das umsetzen könnte.

Viele Grüße

Patrick

[Diskus123]

Also zum Mximieren des Formulares müsste das so gehen, musste nur die passende if then anwenden.

Code [Auswählen] Erweitern

DoCmd.SelectObject acForm, "Das_zu_maximierende_Formular"
DoCmd.Maximize
DoCmd.SelectObject acForm, Me.Name

Zum testen ob ein Formular geöffnet ist

Code [Auswählen] Erweitern

If CurrentProject.AllForms("Formularname").IsLoaded = True Then
        MsgBox "Formular ist geöffnet."
      Else
        MsgBox "Formular ist nicht geöffnet."
    End If[\code]
lg diskus123




[Patrick_82]

Vielen Dank, ich werde es dann testen

[Patrick_82]

Hättest du oder noch jmd einen Ansatz wie ich den Ausdruck konkret formulieren könnte ?

gruß

Patrick

[Diskus123]

Probiere es mal so

Code [Auswählen] Erweitern

Private Sub Befehl0_Click()

If CurrentProject.AllForms("Formular1").IsLoaded = True Then
DoCmd.Maximize
DoCmd.Close acForm, "Formular2"
Else
DoCmd.OpenForm "Formular1"
DoCmd.Maximize
End If
End Sub