Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Κλείσιμο Φόρμας (Φύλλου δεδομένων) όταν δεν υπάρχουνεγγραφές (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4796-kleisimo-formas-filloy-dedomenon-otan-den-yparxoyneggrafes.html)

dimitrisp 14-01-18 11:01

Κλείσιμο Φόρμας (Φύλλου δεδομένων) όταν δεν υπάρχουνεγγραφές
 
1 Συνημμένο(α)
Γεια σας

Στη βάση που ανέβασα εμπεριέχεται μια Φόρμα (Φύλλου δεδομένων).
Σε αυτή έχω χρησιμοποιήσει το χρονόμετρο, προκειμένου να κλείνει
αυτόματα όταν δεν υπάρχει καμιά εγγραφή.

Θα ήθελα να σας ρωτήσω, υπάρχει κάποιος άλλος τρόπος κλεισίματος της Φόρμας,
(όταν δεν υπάρχουν δεδομένα) χωρίς τη δεσμευση του χρονομέτρου?


Σας ευχαριστώ εκ των προτέρων

γιώργοςΚ 14-01-18 12:41

Δημήτρη ειναι απλό το πρόβλημα σου (αν κατάλαβα σωστά τι ζητάς),

Βάλε τον ιδιο κώδικα που έγραψες στο

Option Compare Database
Option Explicit

Private Sub Form_Load()
If Nz(Me.Çìåñïìçíßá, 0) = 0 Then

' MsgBox "Äåí õðÜñ÷ïõí åããñáöÝò !", vbInformation, "ÌÞíõìá åöáñìïãÞò"
DoCmd.Close acForm, "frm1", acSaveNo

End If
End Sub

dimitrisp 14-01-18 12:52

Γιώργο, σ` ευχαριστώ, έχεις δίκιο!

Τελικά, διαπιστώνω ότι υπάρχουν διάφοροι τρόποι... πχ

Παράθεση:

If Nz(Me.Ημερομηνία, 0) = 0 Then
MsgBox "No Records"
Cancel = True
End If


Η ώρα είναι 04:32.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2