[ Φόρμες ] Άνοιγμα και κλείσιμο φόρμας wait

[anestaki]

Καλησπέρα σε όλους
Όποια ιδέα δεκτή
Προσπαθώ στην επιλογή του treeview1 να τρέξω μόνο στον κενό χρόνο την φόρμα wait πριν το άνοιγμα της φόρμας που καλό με παρακάτω κώδικα:

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet view.
' Use form name according to Access, not VBA.
' Only works for Access
    Dim oAccessObject As AccessObject

    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If

End Function

Private Sub TreeView1_DblClick()
'-------------------------------
   DoCmd.OpenForm "frm_wait"
    Do While Not IsLoaded("frm_wait")
        DoEvents
    Loop
   Dim strKey As String
   Dim strTag As String
   
   ' If key is greater than 2, then open form.
   ' My node keys less than length 3 have no tags.
   strKey = Me.TreeView1.SelectedItem.Key
   If Len(strKey) > 2 Then
      strTag = Nz(Me.TreeView1.Nodes(strKey).Tag, "")
      If Len(strTag) > 0 Then
    
        Select Case strTag
            Case Is = "FrmBiblia"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmEidEl"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmEidhEntyp"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmKatHmer"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmEidEpix"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmIdMelon"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmKin2"
                DoCmd.OpenForm strTag, , , , acFormAdd
                Form_FrmKin2.NeoParasrtatiko = 1
                Form_FrmKin2.Ektypose.Enabled = False
                Form_FrmKin2.PerPar.Caption = ""
            Case Is = "FrmBank"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmTrpl"
                DoCmd.OpenForm strTag, acFormDS
            Case Is = "FrmSthles"
                DoCmd.OpenForm strTag, acFormDS
            Case Else
         DoCmd.OpenForm strTag
        End Select
      End If
   End If
   
End Sub