Μήνυμα Access σε ερώτημα προσάρτησης

[cgian]

Καλησπέρα.
Το ερώτημα μου έχει να κάνει με μηνύματα της access κατα την εκτέλεση ερωτήματος προσάρτησης. Εκτελώντας ένα ερώτημα προσάρτησης πατώντας το αναλογο κουμπί και έχοντας ορίσει στον πίνακα που γίνεται η προσάρτηση περισσότερα απο ένα κλειδιά ώστε να αποκλείω διπλοεγγραφές παρουσιάζεται το μήνυμα που φαίνεται και στο συνημμένο αρχείο.Το ερώτημα είναι μπορώ να αλλάξω το κείμενο του μηνύματος, να επέμβω δλδ στο μήνυμα της access να δώσω ενα δικό μου κείμενο καθως πχ. "Οι συντελεστες έχουν ήδη αποθηκευτεί .Επιλέξτε όχι".
Ευχαριστώ.

[kapetang]

Καλημέρα
Χριστόφορε, θα μπορούσες να χρησιμοποιήσεις τον παρακάτω κώδικα, για την εκτέλεση του ερωτήματος προσάρτησης.

Private Sub cmdApped_Click()
    Dim RecCount As Long
    RecCount = DCount("*", "Table1")
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qryApped"
    If DCount("*", "Table1") > RecCount Then
        MsgBox "Οι συντελεστές αποθηκεύτηκαν."
    Else
        MsgBox "Οι συντελεστές ήταν ήδη αποθηκευμένοι."
    End If
    DoCmd.SetWarnings True
End Sub

Φυσικά θα πρέπει να αντικαταστήσεις το όνομα του κουμπιού (cmdApped) του πίνακα (Table1) και του ερωτήματος (qryApped) με τα πραγματικά.

Φιλικά/Γιώργος

[cgian]

Καλημερα Γιώργο.
Ευχαριστώ για τη λύση που προτείνεις.Δουλεύει άψογα.Παρόλα αυτά, θα ήθελα ειδικα για ένα πίνακα συντελεστων, να διατηρώ την επιλογή "όχι" κατα την εκτέλεση του ερωτήματος στο μήνυμα της access ώστε να μη γίνεται προσάρτηση πεδίων .Δεν ξέρω αν είναι εφικτό να επέμβω στο μήνυμα της access.
Ευχαριστώ.

[kapetang]

Καλημέρα

Χριστόφορε, πιθανόν να υπάρχει τρόπος επέμβασης στα μηνύματα της access, αλλά δε τον ξέρω.
Εγώ ,για να αντιμετωπίσω το κατά λάθος πάτημα του κουμπιού, με ένα μήνυμα πριν από την εκτέλεση του ερωτήματος, θα ρωτούσα το χρήστη αν θέλει να εκτελεστεί το ερώτημα και ανάλογα με την απάντηση θα φρόντιζα να τρέχει ο κατάλληλος για την περίπτωση κώδικας.

Φιλικά/Γιώργος

[cgian]

Καλησπέρα και πάλι.
Θα ήθελα τη βοήθεια σας για την σύνταξη του παρακάτω κώδικα:

Private Sub Εντολή47_Click()

MsgBox "...............", vbYesNo
If vbYes Then
DoCmd.OpenQuery "qryΠΡΟΣΑΡΤΗΣΗ_ΣΥΝΤΕΛΕΣΤΩ� �"
Else
End If
End Sub

Κάποιο λαθος πρέπει να υπαρχει γιατι πατώντας ειτε yes ειτε no εκτελείται το ερώτημα.

[Meteora]

Καλησπέρα Χριστόφορε

Δοκίμασε αυτό:

dim rep$
rep=MsgBox( "μήνυμα", vbYesNo, "ΕΛΕΓΧΟΣ")
if rep=vbYes Then
Κάνε το Α
Else
Κάνε το Β
End If

Με εκτίμηση

Νίκος Δ.

[cgian]

Καλησπέρα Νίκο.
Ευχαριστώ πολύ για τη βοήθεια.
Και κάτι τελευταίο.Εφόσον εκτελεστεί το προηγούμενο sub και πατήσω yes και είναι ήδη αποθηκευμένα τα δεδομένα μου βγάζει το μήνυμα που έχω αποστείλει στο πρώτο post.Εκεί επιλέγοντας "όχι" μου βγάζει το μήνυμα "Run time error '3059'.Η λειτουργία ακυρώθηκε απο το χρήστη" και τις επιλογές END , DEBUG και HELP.Πως μπορώ να κανω να μην εμφανίζεται το τελευταίο μήνυμα;
Ευχαριστώ.

[kapetang]

Καλησπέρα

Χριστόφορε, αν βάλεις όλο τον κώδικα, που έχω στο προηγούμενο μήνυμά μου, ανάμεσα στις γραμμές

    If MsgBox("Να αποθηκευτούν οι συντελεστές;", vbYesNo) = vbYes Then
        'εδώ θα τοποθετηθούν όλες οι εντολές
    End If

πιστεύω ότι το πρόβλημα θα λυθεί.
Πάντως είναι αντιφατικό στην αρχή να επιλέγεις «Ναι» και μετά «Όχι».

Φιλικά/Γιώργος

[cgian]

Καλησπέρα
Γιώργο και Νίκο ευχαριστώ πολύ για την πολύτιμη βοήθειά σας.
Χίλια ευχαριστώ και πάλι.