[Λάμπρος Τ]

Δημήτρη σ’ ευχαριστώ για το ενδιαφέρον που δείχνεις.
Η ομοιότητα της βάσης μου με το δείγμα είναι πως έχω την ανάγκη σε 2 αναδυόμενες φόρμες να εφαρμοστεί η ημιδιαφάνεια, με τη διαφορά πως δεν ενεργοποιούνται από την ίδια φόρμα αλλά από διαφορετικές.
Αντιμετωπίζω τα εξής προβλήματα:
1. «Χτυπάει» ο κώδικας της frmBg στο
Private Sub Form_Timer()
On Error Resume Next
If Not IsOpen(frmName) Then
DoCmd.Close acForm, Me.Name
DoCmd.Close acForm, frmName
Exit Sub
End If
Εάν το σβήσω δουλεύει αλλά νομίζω λίγο πιο αργά
2. Το δεύτερο πρόβλημα είναι πως η φόρμα ενεργοποιείται με τον παρακάτω κώδικα, επειδή θέλω να ανοίγει μία συγκεκριμένη εγγραφή με βάση την ημερομηνία.
Private Sub BtnAltitude_Click()
DoCmd.OpenForm "Form1", , , "fDates = #" & Format(fDates, "m\/d\/yyyy") & "#"
End Sub
Αντικατέστησα το DoCmd.OpenForm με το OpenPopupForm, αλλά δε δουλεύει.
Με εκτίμηση και απεριόριστο σεβασμό
Λάμπρος