ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > πάτημα κουμπιού και εμφάνιση μηνυμάτων

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 28-11-13, 00:19
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 500
Προεπιλογή πάτημα κουμπιού και εμφάνιση μηνυμάτων

καλημέρα σας
Ζητώ την βοήθειά σας στο εξής:

Φανταστείτε μια φόρμα με 3 απαραίτητα πεδία σε κάθε εγγραφή και έστω ότι είμαστε σε ΝΕΑ εγγραφή.
Στην εγγραφή υπάρχει κουμπί που με το κλικ ανοίγει έκθεση (συνδεδεμένα πεδία)
(Άρα θα πρέπει η εγγραφή να είναι ολοκληρωμένη!)

Πως θα γράψω σε vba τα ακόλουθα:

Αν η εγγραφή είναι παντελώς άδεια να βγεί μήνυμα1
Αν δεν είναι παντελώς άδεια αλλά κάποιο απ' τα 3 λείπει να βγεί μήνυμα2 που να λέει ποιο λείπει.
Αν έχουν ενημερωθεί και τα 3 πεδία τότε να τρέξει ο κώδικας.
__________________
Φιλικά, Χρήστος
Απάντηση με παράθεση
  #2  
Παλιά 28-11-13, 00:37
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Γειά σου Χρήστο
Δες μια εκδοχή στην συνημμένη βάση
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb elegxos.accdb (396,0 KB, 27 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 28-11-13, 00:45
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 500
Προεπιλογή

Στέλιο πράγματι κάνει αυτό που ζήτησα, σ' ευχαριστώ.
Θέλω να σε ρωτήσω κάτι.
Στο event πριν την ενημέρωση τρέχω το ακόλουθο που μου λέει ποιο πεδίο είναι κενό:

Dim strMissingInfo As Variant
Dim strMsg As Variant
If IsNull(Me.1) Then
Cancel = True
strMissingInfo = strMissingInfo & " κενό 1"
End If
If IsNull(Me.2) Then
Cancel = True
strMissingInfo = strMissingInfo & " κενό 2"
End If
If IsNull(Me.3) Then
Cancel = True
strMissingInfo = strMissingInfo & " κενό 3"
End If
If Len(strMissingInfo) > 0 Then
strMsg = "Καταχωρήστε: " & strMissingInfo
MsgBox strMsg, vbExclamation, "ΠΡΟΣΟΧΗ"
End If




Υπάρχει τρόπος στον κώδικα του κουμπιού να καλέσουμε τον προηγούμενο έλεγχο?
__________________
Φιλικά, Χρήστος
Απάντηση με παράθεση
  #4  
Παλιά 28-11-13, 00:55
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Με μπέρδεψες. Θές να χρησιμοποιήσεις και τις δύο μεθόδους? Δεν δουλεύει αυτή που χρησιμοποιείς?
Απάντηση με παράθεση
  #5  
Παλιά 28-11-13, 01:01
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 500
Προεπιλογή

Δεν θέλω να σε μπερδέψω!

να αντικαταστήσω ένα κομμάτι του δικού σου κώδικα με τον δικό μου θέλω.

Πάντως όταν ζητώ (στο κουμπί) Me.Dirty=false (ώστε να προκαλέσω το συμβάν πριν την ενημέρωση) δουλευει μεν (βγαίνει μήνυμα για το ποιά πεδία λείπουν) αλλά βγάζει μήνυμα λάθους 3021 (δεν υπάρχει τρέχουσα εγγραφή)

Αυτό το μήνυμα λάθους μπορώ να το καθαρίσω (να μην βγεί!);
__________________
Φιλικά, Χρήστος
Απάντηση με παράθεση
  #6  
Παλιά 28-11-13, 01:16
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Χρήστο
Δεν μπορώ να αναπαράγω το σφάλμα που αναφέρεις. Και με την δική σου μέθοδο δουλεύει εξίσου σωστά. Αν μπορείς ανέβασε κάποιο παράδειγμα.
Έχεις εξετάσει την εκδοχή να ορίσεις στα πεδία του πίνακα "απαιτείται" ώστε να σε προειδοποιεί η βάση όταν κάποιο πεδίο είναι κενό? Εκτός και υπάρχουν εγγραφές που κάποιο πεδίο είναι κενό.
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb elegxos.accdb (320,0 KB, 29 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 28-11-13, 01:23
Όνομα: Χρήστος Φ.
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-12-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 500
Προεπιλογή

Στέλιο θα το μελετήσω ...
Σ' ευχαριστώ :)
__________________
Φιλικά, Χρήστος
Απάντηση με παράθεση
  #8  
Παλιά 28-11-13, 01:32
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Καληνύχτα Χρήστο
Σίγουρα το πρωί που θα μπουν οι guru του forum θα δώσουν λύση που η προτασή μου θα φαντάζει απλοϊκή
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
αναζήτηση εγγραφών με το πάτημα του πληκτρολογίου thanosgr Access - Ερωτήσεις / Απαντήσεις 2 31-01-16 08:39
Απενεργοποίηση μηνυμάτων ασφαλείας σε Web browser μέσω φόρμας dmarop Access - Ερωτήσεις / Απαντήσεις 4 09-06-14 20:46
Πάτημα κουμπιού και πληκτρολόγηση "," Χρήστος Access - Ερωτήσεις / Απαντήσεις 4 29-11-13 00:32
[ Φόρμες ] Εμφάνιση κουμπιού στη τρέχουσα εγγραφή Χρήστος Access - Ερωτήσεις / Απαντήσεις 0 03-07-13 23:29
Αποθήκευση μηνυμάτων του Outlook σε φάκελο Δημήτρης2012 Outlook - Ερωτήσεις / Απαντήσεις 1 29-06-12 10:15


Η ώρα είναι 21:19.