[Tasos]

Παντελή καλησπέρα!
Σε καμία περίπτωση δεν θα δούλευε η IsOpen() αφού (δικό μου λάθος) παρέλειψα να
συμπεριλάβω τη συνάρτηση αυτή στο μήνυμα!

Αν θέλεις τη γνώμη μου αυτή η συνάρτηση είναι θεωρητικά τουλάχιστον σωστότερη αφού εκτός από την ύπαρξη της φόρμας εξετάζει και την τρέχουσα προβολή της , κάτι που δεν κάνει η ιδιότητα IsLoaded.

Function IsOpen(FormName$) As Boolean
      If SysCmd(10, 2, FormName) <> 0 Then
          If Forms(FormName).CurrentView = 1 Then IsOpen = True
      End If
  End Function