Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 19-03-10, 02:54
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή No data

Όταν μία φόρμα, βάσει ενός κριτηρίου, δεν μου δίνει εγγραφές, πως μπορώ στην θέση της υποτιθέμενης πρώτης εγγραφής να εμφανίζω το κείμενο "Δεν υπάρχουν κλπ...."?

-------------

Όταν δεν έχω εγγραφές σε υποφόρμα χρησιμοποιώ την IsError σε ένα πεδίο της για να την κάνω invisible..
πχ
Κώδικας:
If (IsError(Forms!Form1![SubForm1].Form.txtName)) Then
        Forms!Form1![SubForm1].Visible = False
    End If
και να εμφανιστεί μια ετικέτα που υπάρχει πίσω της και λέει "δεν υπάρχουν εγγραφές κλπ.."
Δοκίμασα κάτι παρόμοιο με την λεπτομέρεια της φόρμας αλλά δεν τα κατάφερα...
Απάντηση με παράθεση
  #2  
Παλιά 19-03-10, 07:02
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

Καλημέρα !
Ανδρέα, χειρίζομαι το ζήτημα που αναφέρεις ως εξής : Μετρώ με την Dcount() το πλήθος των εγγραφών οι οποίες ικανοποιούν την συνθήκη και μετά επιτρέπω ή όχι το άνοιγμα φόρμας.
Φιλικά / Νίκος
Απάντηση με παράθεση
  #3  
Παλιά 19-03-10, 12:31
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 186
Προεπιλογή

Καλημέρα σε όλους!

Φίλε Ανδρέα, όταν μια δεσμευμένη φόρμα δεν επιστρέφει εγγραφές
τότε η ιδιότητα RecordCount του αντικειμένου Recordset θα είναι μηδέν.

Συνεπώς μπορείς να πεις:
Κώδικας:
    With Forms!Form1![SubForm1].Form
        .Visible = .Recordset.RecordCount > 0
    End With
Αν θέλεις δες και στο απλό παράδειγμα που επισυνάπτω την εφαρμογή των παραπάνω.

Φιλικά,
Γιάννης
Συνημμένα Αρχεία
Τύπος Αρχείου: zip NoDataForm.zip (16,2 KB, 31 εμφανίσεις)
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση
  #4  
Παλιά 19-03-10, 16:43
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από nisgia Εμφάνιση μηνυμάτων
Καλημέρα σε όλους!

Φίλε Ανδρέα, όταν μια δεσμευμένη φόρμα δεν επιστρέφει εγγραφές
τότε η ιδιότητα RecordCount του αντικειμένου Recordset θα είναι μηδέν.
Σωστό κι' αυτό, αλλά Γιάννη αναφέρομαι σε εγγραφές σκέτης κύριας φόρμας...
Την περίπτωση της υποφόρμας την ανέφερα ως παράδειγμα...
Ευχαριστώ
Απάντηση με παράθεση
  #5  
Παλιά 19-03-10, 16:48
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από Meteora Εμφάνιση μηνυμάτων
Καλημέρα !
Ανδρέα, χειρίζομαι το ζήτημα που αναφέρεις ως εξής : Μετρώ με την Dcount() το πλήθος των εγγραφών οι οποίες ικανοποιούν την συνθήκη και μετά επιτρέπω ή όχι το άνοιγμα φόρμας.
Φιλικά / Νίκος
Νίκο θα ήθελα να ανοίγει η φόρμα γιατί έχει διάφορα χρειαζούμενα κουμπιά...
Απλά στο details να εμφανίζει το "δεν μπλα μπλα"
Απάντηση με παράθεση
  #6  
Παλιά 19-03-10, 17:14
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 186
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από amy Εμφάνιση μηνυμάτων
Σωστό κι' αυτό, αλλά Γιάννη αναφέρομαι σε εγγραφές σκέτης κύριας φόρμας...
Την περίπτωση της υποφόρμας την ανέφερα ως παράδειγμα...
Ευχαριστώ
Και αυτό που βλέπεις σε μια υποφόρμα φίλε Ανδρέα, κύρια φόρμα είναι.
Απλά της λείπει το περίγραμμα και τα σχετικά.

Αυτό άλλωστε φαίνεται και από τη δήλωση στο αντικείμενο Form του χειριστηρίου υποφόρμας.
Κώδικας:
    With Forms!Form1![SubForm1].Form
        .Visible = .Recordset.RecordCount > 0
    End With
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση
  #7  
Παλιά 19-03-10, 23:42
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

Καλησπέρα Γιάννη και σε όλους τους φίλους του forum....
Ή η απειρία μου με κάνει να μη σε καταλαβαίνω, ή δεν θέτω σωστά το ερώτημά μου...
Στο παράδειγμα που έστειλες, τώρα υπάρχει και η φόρμα frmQuery11...
Αυτό που έχω βάλει ως caption όταν το Recordset.RecordCount είναι 0 θέλω να εμφανίζεται ως κείμενο στο details της φόρμας...
Συνημμένα Αρχεία
Τύπος Αρχείου: zip NoDataForm.zip (20,1 KB, 15 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 21-03-10, 14:32
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 186
Προεπιλογή

Καλημέρα σε όλους και όλες!

Φίλε Ανδρέα, το μυστικό για να παραμείνει ορατή η ενότητα λεπτομέρειας μιας δεσμευμένης συνεχόμενης φόρμας
όταν αυτή δεν επιστρέφει εγγραφές, είναι να τη μετατρέψεις σε μη δεσμευμένη.

Αυτό ακριβώς κάνω και εγώ στο νέο παράδειγμα που επισυνάπτω με τον παρακάτω τρόπο:
Κώδικας:
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
Άνοιξε τη μοναδική φόρμα του συνημμένου δίνοντας μια άκυρη τιμή έτους (>2009 ή τίποτα),
απάντησε καταφατικά στο προειδοποιητικό μήνυμα που θα εμφανιστεί
και στη συνέχεια παίξε με το πλαίσιο "Από έτος:" για να δεις τα αποτελέσματα.

Άνοιξε και τον VBE να δεις και τον υπόλοιπο κώδικα της φόρμας.

Ελπίζω αυτή τη φορά να βοηθάω...

Φιλικά,
Γιάννης
Συνημμένα Αρχεία
Τύπος Αρχείου: zip NoDataLabel.zip (18,4 KB, 31 εμφανίσεις)
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση
  #9  
Παλιά 22-03-10, 22:04
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από nisgia Εμφάνιση μηνυμάτων
Φίλε Ανδρέα, το μυστικό....
Τώρα το έμαθα το μυστικό Γιάννη.. Καλά υπέθεσα ότι η απειρία μου έφταιγε που δε σε καταλάβαινα...
Παράθεση:
Ελπίζω αυτή τη φορά να βοηθάω..
Όχι μόνο αυτή τη φορά.. Η γνώση είναι αθροιστική και αύριο κάπου θα πιάσει τόπο αυτό που μας μάθατε χτες... Μιλώ στον πληθυντικό γιατί αναφέρομαι και σε όλους τους υπόλοιπους (γνωστούς) που δικαιώνετε (αλτρουιστικά) καθημερινά το "εδώ δεν υπάρχουν όρια" και μας κάνετε την "υπολογιστική" ζωή μας πιο εύκολη...
Ευχαριστώ
Ανδρέας
Απάντηση με παράθεση
Απάντηση στο θέμα

Ετικέτες
bound, continuously form, detail, recordcount, recordset, returnsrecords, subform, unbound, δεσμευμένη, εγγραφές, λεπτομέρεια, συνεχόμενη, φόρμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός 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.