Εμφάνιση ενός μόνο μηνύματος
  #9  
Παλιά 27-11-15, 10:07
kouk Ο χρήστης kouk δεν είναι συνδεδεμένος
Όνομα: Σωτήριος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 03-07-2012
Μηνύματα: 20
Προεπιλογή

kapetang ευχαριστώ πολύ για τις πολύτιμες συμβουλές σου πάνω στις οποίες βασίστηκα για να βρω την παρακάτω λύση

Private Sub cmdDelImages_Click()
Dim rs As DAO.Recordset2, rsIm As DAO.Recordset2

Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
Set rsIm = rs.Fields("[USimage1]").Value
rsIm.Delete
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
Set rsIm = rs.Fields("[USimage2]").Value
rsIm.Delete
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
Set rsIm = rs.Fields("[USimage3]").Value
rsIm.Delete
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
Set rsIm = rs.Fields("[USimage4]").Value
rsIm.Delete
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
Set rsIm = rs.Fields("[USimage5]").Value
rsIm.Delete
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
Set rsIm = rs.Fields("[USimage6]").Value
rsIm.Delete
MsgBox "Delete All!!!"
End Sub

Τελικά δεν ήταν τα πεδία στην φόρμα που δεν ταυτίζονται με τα ονόματα των πεδίων στον πίνακα γιατί με τα ίδια πεδία "τρέχει" η παραπάνω λύση...
Απλός με τον παραπάνω τρόπο πρέπει να κλείσω και να ξανανοίξω την φόρμα για να εξαφανισθούν οι φωτογραφίες και όταν δεν έχουν όλα τα πεδία συνημμένη φωτογραφία (πχ λείπει συνημμένο στο πεδίο "USimage6" μου βγάζει το μήνυμα " Run-time error 3021, Δεν υπάρχει τρέχουσα εγγραφή".

Καμιά ένσταση στην παραπάνω λύση ή ιδέα στα ψιλοπροβληματάκια που προέκυψαν?
Απάντηση με παράθεση