[kapetang]

Καλησπέρα

Γιώργο, δοκίμασε τον παρακάτω κώδικα:

Private Sub TreeView1_DblClick()
'-------------------------------
    Dim strKey As String
    Dim strTag As String

    If IsLoaded("frm_wait") Then
        Forms("frm_wait").Visible = True
    Else
        DoCmd.OpenForm "frm_wait"
    End If

    ' 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", "FrmEidEl", "FrmEidhEntyp", "FrmKatHmer", _
                 "FrmEidEpix", "FrmIdMelon", "FrmBank", "FrmTrpl", "FrmSthles"
                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 Else
                DoCmd.OpenForm strTag
            End Select
        End If
    End If
    Forms("frm_wait").Visible = False
End Sub

Δεν είχα τη δυνατότητα να τον ελέγξω. Πιθανόν να εξυπηρετεί.