[ Φόρμες ] ΕΙΣΑΓΩΓΗ ΦΩΤΟΓΡΑΦΙΑΣ ΣΕ ΦΟΡΜΑ

[artchrist73]

Καλησπέρα σε όλους και όλες !!

έχω ανεβάσει μια βάση για να μπορώ να εισάγω φωτογραφίες σε μια φόρμα.

Το πρόβλημα είναι το εξής.

όταν εισάγω μια φωτογραφία στη φόρμα όλα ok μια χαρά.

όταν όμως κλείσω την βάση και διαγράψω την φωτογραφία για κάποιο λόγο,τότε ανοίγοντας πάλι την βάση μου δείχνει αυτό το μήνυμα όπως στην φωτογραφία !!

πως να γινότανε να να παρακάμπτει το μήνυμα αυτό,στο να αγνοεί ότι έχει σβηστεί η φωτογραφία;

Option Compare Database

Private Sub Form_Current()
Me.Image.Picture = Nz(Me.PhotoPath, "")
End Sub



Private Sub Image_DblClick(Cancel As Integer)
Me.PhotoPath = Nz(OpenImagePath(), "")
Me.Dirty = False
Me.Image.Picture = Nz(Me.PhotoPath, "")
End Sub

Θα επιθυμούσα να γίνει η επέμβαση στην ίδια την βάση !!

[kapetang]

Καλησπέρα

Αντώνη, στη διαδικασία Private Sub Form_Current(), άλλαξε τη γραμμή κώδικα από:

Me.Image.Picture = Nz(Me.PhotoPath, "")

σε: Me.Image.Picture = Dir(Nz(Me.PhotoPath, ""))

[artchrist73]

Το επεξεργαζομε εφχαριστω!!