1 1 1 1 1 1 1 1 1 1 Rating 5.00 (1 Vote)

Problemstellung:

Eine VBA-Routine soll solange unterbrochen werden oder eine Pause machen,
bis ein zuvor geöffnetes Formular oder ein Bericht wieder geschlossen ist.
Oder ist ein Formular oder Bericht geöffnet und wenn Ja in welcher Ansicht?

Lösung:

Du kannst auf ein wenig beachtetes Feature der "SysCmd()"-Funktion zurückgreifen:
Über die Unter-Funktion "GetObjectState()" von "SysCmd()" lässt sich recht einfach feststellen,
ob ein Formular oder ein Bericht geöffnet ist.
Solange das der Fall ist, kann in einer entsprechenden Schleife gewartet werden.

Public Enum Objekte
    Formular = 2
    Bericht = 3
End Enum
Public Sub WaitObject(sObjectName As String, _
    Optional eTyp As Objekte = Formular)
    While SysCmd(acSysCmdGetObjectState, eTyp, sObjectName)
        DoEvents
    Wend
End Sub

Aufruf z.B.:
Es wird ein Form "Formular1" aufgrufen.
Wird dieses geschlossen erscheint die MsgBox.

DoCmd.OpenForm "Formular1"
WaitObject "Formular1", Formular
MsgBox "Formular wurde geschlossen!" 

Status des Formulars oder Berichts: 

Function IsObjectOpenTyp(sObjectName As String, _
    Optional eTyp As Objekte = Formular) As String
    Dim sState As String, nState As Long
    If SysCmd(acSysCmdGetObjectState, eTyp, sObjectName) <> 0 Then
        Select Case eTyp
            Case Formular
                nState = Forms(sObjectName).CurrentView
            Case Bericht
                nState = Reports(sObjectName).CurrentView
        End Select
        If nState = 0 Then
            sState = "Enwurfsansicht"
        ElseIf nState = 1 Then
            sState = "Formularansicht"
        ElseIf nState = 2 Then
            sState = "Datenblattansicht"
        ElseIf nState = 3 Then
            sState = "Pivot Tabelle"
        ElseIf nState = 4 Then
            sState = "Pivot Chart"
        ElseIf nState = 5 Then
            sState = "Vorschau"
        End If
        IsObjectOpenTyp = sObjectName & " ist geöffnet in der Ansicht: " & sState
    Else
        IsObjectOpenTyp = sObjectName & " ist geschlossen"
    End If
End Function 

Mit dieser Funktion kann geprüft werden ob ein Formular geöffnet ist und in welcher Ansicht.

Aufruf z.B.:

MsgBox IsObjectOpenTyp("Formular15", Formular)

Ergebnis:


Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

Neueste Artikel

SQL zu VBA Konverter
26. Oktober 2018
Problemstellung: Gibt es eine Möglichkeit SQL-Code einer Abfrage so zu konvertieren das der Code in VBA genutzt werden kann? Lösung: Bis Access 2010 gibt das Tool "SmartTools SQL aus Abfragen 3.0"...
1.png2.png3.png2.png0.png6.png1.png
Heute129
Gestern132
Diese Woche129
Dieser Monat2777
Total1232061

  • IP: 34.229.151.87
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

3
Online

20. Mai 2019

Letzte Kommentare

  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    TommyK 27.02.2019 06:52
    Workshop
    Hallo mpegjunkie, danke für Dein Feedback. Schön das Dir Workshop weiter hilft. :D

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    mpegjunkie 26.02.2019 20:10
    Perfekter Workshop
    Hallo Tommy, perfekter Workshop, toll und umfassend erläutert. Jetzt nutze ich diese Controls auch.

    Weiterlesen...

     
  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...