Καλό μεσημέρι σε όλους.Θα ήθελα να ρωτήσω το εξής:
Έχω δημιουργήσει μία φόρμα με διάφορα πεδία(ΕΠΩΝΥΜΟ, ΟΝΟΜΑ.ΤΗΛΕΦΩΝΟ,ΑΦΜ κτλ) τα οποία προέρχονται από κάποιο πίνακα.Στη ίδια φόρμα έχω δημιουργήσει και ένα σύνθετο πλαίσιο ,βάση του οποίου κάνω αναζήτηση πληκτρολώντας το ΕΠΩΝΥΜΟ.
Πίσω από το σύνθετο πλαίσιο είναι ο εξής κώδικας για εύρεση της εγγραφής βάση του στοιχείου
ελέγχου.
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) ΔΕΝ ΒΡΕΘΗΚΕ ΤΟ ΕΠΩΝΥΜΟ ΑΠΟ ΤΗ ΛΙΣΤΑ
Φιλικά