Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
No data
Όταν μία φόρμα, βάσει ενός κριτηρίου, δεν μου δίνει εγγραφές, πως μπορώ στην θέση της υποτιθέμενης πρώτης εγγραφής να εμφανίζω το κείμενο "Δεν υπάρχουν κλπ...."? ------------- Όταν δεν έχω εγγραφές σε υποφόρμα χρησιμοποιώ την IsError σε ένα πεδίο της για να την κάνω invisible.. πχ Κώδικας: If (IsError(Forms!Form1![SubForm1].Form.txtName)) Then Forms!Form1![SubForm1].Visible = False End If Δοκίμασα κάτι παρόμοιο με την λεπτομέρεια της φόρμας αλλά δεν τα κατάφερα... |
#2
| ||||
| ||||
Καλημέρα ! Ανδρέα, χειρίζομαι το ζήτημα που αναφέρεις ως εξής : Μετρώ με την Dcount() το πλήθος των εγγραφών οι οποίες ικανοποιούν την συνθήκη και μετά επιτρέπω ή όχι το άνοιγμα φόρμας. Φιλικά / Νίκος |
#3
| ||||
| ||||
Καλημέρα σε όλους! Φίλε Ανδρέα, όταν μια δεσμευμένη φόρμα δεν επιστρέφει εγγραφές τότε η ιδιότητα RecordCount του αντικειμένου Recordset θα είναι μηδέν. Συνεπώς μπορείς να πεις: Κώδικας: With Forms!Form1![SubForm1].Form .Visible = .Recordset.RecordCount > 0 End With Φιλικά, Γιάννης
__________________ Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...! ----------------------------------------------- Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης. Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά! |
#4
| |||
| |||
Παράθεση:
Την περίπτωση της υποφόρμας την ανέφερα ως παράδειγμα... Ευχαριστώ |
#5
| |||
| |||
Παράθεση:
Απλά στο details να εμφανίζει το "δεν μπλα μπλα" |
#6
| ||||
| ||||
Παράθεση:
Απλά της λείπει το περίγραμμα και τα σχετικά. Αυτό άλλωστε φαίνεται και από τη δήλωση στο αντικείμενο Form του χειριστηρίου υποφόρμας. Κώδικας: With Forms!Form1![SubForm1].Form .Visible = .Recordset.RecordCount > 0 End With
__________________ Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...! ----------------------------------------------- Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης. Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά! |
#7
| |||
| |||
Καλησπέρα Γιάννη και σε όλους τους φίλους του forum.... Ή η απειρία μου με κάνει να μη σε καταλαβαίνω, ή δεν θέτω σωστά το ερώτημά μου... Στο παράδειγμα που έστειλες, τώρα υπάρχει και η φόρμα frmQuery11... Αυτό που έχω βάλει ως caption όταν το Recordset.RecordCount είναι 0 θέλω να εμφανίζεται ως κείμενο στο details της φόρμας... |
#8
| ||||
| ||||
Καλημέρα σε όλους και όλες! Φίλε Ανδρέα, το μυστικό για να παραμείνει ορατή η ενότητα λεπτομέρειας μιας δεσμευμένης συνεχόμενης φόρμας όταν αυτή δεν επιστρέφει εγγραφές, είναι να τη μετατρέψεις σε μη δεσμευμένη. Αυτό ακριβώς κάνω και εγώ στο νέο παράδειγμα που επισυνάπτω με τον παρακάτω τρόπο: Κώδικας: Private Function ReturnsRecords() As Boolean Dim fRetRecs As Boolean fRetRecs = Me.Recordset.RecordCount > 0 If Not fRetRecs Then Set Me.Recordset = Nothing Me.txtYear.SetFocus End If Me.lblNoData.Visible = Not fRetRecs ReturnsRecords = fRetRecs End Function απάντησε καταφατικά στο προειδοποιητικό μήνυμα που θα εμφανιστεί και στη συνέχεια παίξε με το πλαίσιο "Από έτος:" για να δεις τα αποτελέσματα. Άνοιξε και τον VBE να δεις και τον υπόλοιπο κώδικα της φόρμας. Ελπίζω αυτή τη φορά να βοηθάω... Φιλικά, Γιάννης
__________________ Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...! ----------------------------------------------- Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης. Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά! |
#9
| |||
| |||
Τώρα το έμαθα το μυστικό Γιάννη.. Καλά υπέθεσα ότι η απειρία μου έφταιγε που δε σε καταλάβαινα... Παράθεση:
Ευχαριστώ Ανδρέας |
Ετικέτες |
bound, continuously form, detail, recordcount, recordset, returnsrecords, subform, unbound, δεσμευμένη, εγγραφές, λεπτομέρεια, συνεχόμενη, φόρμα |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[VBA] DATA από σελίδα στο internet | nikos1980 | Excel - Ερωτήσεις / Απαντήσεις | 0 | 29-07-14 16:02 |
Μαζική αποστολή email με data από xls | tzvangel | Excel - Ερωτήσεις / Απαντήσεις | 3 | 23-06-14 18:07 |
[Γενικά] Sort-Normalization Data (csv) -> Excel | efialtisgr | Excel - Ερωτήσεις / Απαντήσεις | 3 | 17-08-12 12:10 |
Ανανέωση data σε subform (datasheet) | dionisis | Access - Ερωτήσεις / Απαντήσεις | 4 | 14-03-11 17:34 |
[Συναρτήσεις] LastRow data | DimitrisK | Excel - Ερωτήσεις / Απαντήσεις | 9 | 30-01-10 23:58 |
Η ώρα είναι 08:36.