[ Φόρμες ] Συνάρτηση MsgBox

[ΤΖΙΜΗΣ]

Καλό μεσημέρι σε όλους.Θα ήθελα να ρωτήσω το εξής:
Έχω δημιουργήσει μία φόρμα με διάφορα πεδία(ΕΠΩΝΥΜΟ, ΟΝΟΜΑ.ΤΗΛΕΦΩΝΟ,ΑΦΜ κτλ) τα οποία προέρχονται από κάποιο πίνακα.Στη ίδια φόρμα έχω δημιουργήσει και ένα σύνθετο πλαίσιο ,βάση του οποίου κάνω αναζήτηση πληκτρολώντας το ΕΠΩΝΥΜΟ.
Πίσω από το σύνθετο πλαίσιο είναι ο εξής κώδικας για εύρεση της εγγραφής βάση του στοιχείου
ελέγχου.
Private Sub Σύνθετο_πλάσιο64_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ΑΡ_ΜΗΤΡΩΟΥ] = " & Str(Nz(Me! [Σύνθετο_πλάσιο64], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ρωτώ:Πως γίνεται, και σε ποιο σημείο μπορεί να μπει κώδικας VBA ώστε όταν δεν βρίσκει την εγγραφή να μου εφμανίζεται ένα πλαίσιο διαλόγου (συνάρτηση Msg
Box) ΔΕΝ ΒΡΕΘΗΚΕ ΤΟ ΕΠΩΝΥΜΟ ΑΠΟ ΤΗ ΛΙΣΤΑ
Φιλικά

[Dimitris Ch]

νομιζω αν καταλαβα καλα ειναι το else στο if που εχεις
Θα βαλεις else και την VBA που θελεις

Φιλικα Δημητρης

[ΤΖΙΜΗΣ]

Δημήτρη το δοκίμασα αλλά δεν τρέχει.

[kapetang]

Καλησπέρα

Θα πρέπει να διαμορφωθεί ο κώδικας ως εξής:

Private Sub Σύνθετο_πλάσιο64_AfterUpdate()
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
    rs.FindFirst "[ΑΡ_ΜΗΤΡΩΟΥ] = " & Str(Nz(Me![Σύνθετο_πλάσιο64], 0))
    If Not rs.EOF Then
        Me.Bookmark = rs.Bookmark
    Else
        MsgBox "Δε βρέθηκε το ζητούμενο"
    End If
    rs.Close
End Sub

Αν το πεδίο [ΑΡ_ΜΗΤΡΩΟΥ] δεν είναι αριθμητικό ή γραμμή αναζήτησης θα πρέπει να αντικατασταθεί με την:

rs.FindFirst "[ΑΡ_ΜΗΤΡΩΟΥ] ='" & Str(Nz(Me![Σύνθετο_πλάσιο64], 0)) & "'"

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

[ΤΖΙΜΗΣ]

Γιώργο δοκίμασα τον κώδικα, τρέχει κανονικά, αλλά δεν εμφανίζει το μήνυμα "ΔΕ ΒΡΕΘΗΚΕ" ,όταν δε βρίσκει το επώνυμο στη λίστα.
Ευχαριστώ.

[editolis]

ΤΖΙΜΗ για δοκιμασε τα εξης:
Κανε δεξι κλικ πανω στην λιστα σου και πηγαινε στις ιδιοτητες.

Στα ΔΕΔΟΜΕΝΑ εκει που λεει "Περιορισμος σε Λιστα" εσυ κανε το ΝΑΙ.

Μετα στο ΣΥΜΒΑΝ εκει που λεει "Οταν δεν υπαρχει στην Λιστα" περασε αυτο
τον κωδικα.

MsgBox "Το επώνυμο δεν Βρέθηκε.", vbExclamation, "TZIMIS DB"
Response = acDataErrContinue

Καλη συνεχεια...

[kapetang]

Καλησπέρα στην παρέα

Τζίμη, έχεις δίκιο. Ο σωστός κώδικας είναι ο παρακάτω.

Private Sub Σύνθετο_πλάσιο64_AfterUpdate()
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
    rs.FindFirst "[ΑΡ_ΜΗΤΡΩΟΥ] = " & Str(Nz(Me![Σύνθετο_πλάσιο64], 0))
    If rs.NoMatch Then
        MsgBox "Δε βρέθηκε το ζητούμενο"
    Else
        Me.Bookmark = rs.Bookmark
    End If
    rs.Close
End Sub

Δες και το παράδειγμα που επισυνάπτω

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

[ΤΖΙΜΗΣ]

Παιδιά πολλά ευχαριστώ για την ώρα που διαθέσατε, και για τη λύση που μου δώσατε.
Η λύση του Τόλη πράγματι πολύ έξυπνη και γρήγορη.
Η δεύτερη λύση του Γιώργου ήθελε σαφώς περισσότερο κώδικα και πιο δύσκολή στη σύλληψη με την διαφορά όμως Γιώργο ότι ,όταν δεν υπάρχει το επώνυμο μέσα στη λίστα προηγείται το μνμ της Access από το δικό μας διαμορφωμένο μνμ.
Γιώργο και Τόλη πράγματι δώσατε μαθήματα vba.