Πρόβλημα με κώδικα Select Case Yes/No

[γιώργοςΚ]

Αγαπητοί φίλοι γειά σας και πάλι,

Εξαιτίας της απειρίας μου σε κώδικα Vba χρειάζομαι και πάι την βοήθεια σας. Προσπαθώ (αλλά μάταια) να γραψω ένα κώδικα με το Select Case Yes/No (τον οποίο ομολογώ πως αντέγραψα απο μια άλλη βάση) αλλά κάτι κάνω λάθος και δεν δουλεύει. Συγκεκριμένα έγραψα:

Private Sub cmdDelete_Click()

Result = MsgBox("Μήνυμα 1?", vbYesNo)
Select Case Result
Case vbYes
DoCmd.SetWarnings False
DoCmd.OpenQuery "qAppentNewFood"
DoCmd.SetWarnings True

MsgBox "Μύνημα επιβεβαίωσης", vbInformation, "Επιτυχώς"
Me.Form.Refresh
Case vbNo
DoCmd.CancelEvent
End Select
End Sub


Κτυπά συνεχώς όταν και εφόσον τρέξει ο κώδικας και μου υποδεικνύει το πρώτο σκελος (που σημειώνω με κόκκινο)

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

(επισυνάπτω το μήνυμα που λαμβάνω απο την Vba)

[Spirosgr]

Το Μήνυμα σφάλματος, λέει ότι δεν έχει δηλωθεί κάποια μεταβλητή.
Δήλωσε την Result As VbMsgBoxResult.

Συμπληρωματικά να πούμε το εξής:
Προφανώς, θέλεις με κάποιο msgbox Yes/No, να παίρνεις κατά περίπτωση, κάποια αποτελέσματα.
Καλύτερα, να μην χρησιμοποιήσεις, ούτε μεταβλητή, ούτε Select case.

If MsgBox("Το κείμενό σας!", vbYesNo Or vbQuestion, "Ο Τίτλος σας!") = vbYes Then

'Τι θα κάνει στο Yes

        MsgBox "Το κείμενό σας!", vbInformation, "Ο Τίτλος σας!"
    Else

    'Τι θα κάνει στο No

    End If

Αυτό είναι αρκετό και πιο σωστό.

[γιώργοςΚ]

Σπύρο καλημέρα και σε ευχαριστώ πολύ για την βοήθεια,

Μια χαρά είμαστε, δοκίμασα με τον κώδικα με το IF και δούλεψε ακριβώς όπως θα ήθελα.

Σε ευχαριστώ για άλλη μια φορά φίλε.

[Spirosgr]

Να 'σαι καλά.
Ευχαριστώ κι εγώ!