11-05-16, 07:15
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλημέρα σε όλους.
Αντώνη αν και είμαι λίγο άσχετος στον κώδικα, δοκίμασε αυτό:
Στή φόρμα σε προβολή σχεδίασης->Λεπτομέρεια->Δεξί κλικ->Ιδιότητες->Δεδομένα->
Προέλευση στοιχείου ελέγχου επίλεξε PhotoPath.
Και στον κώδικ: Κώδικας: Private Sub Form_Current()
If Me.PhotoPath = True Then
Me.Image.Picture = Nz(Me.PhotoPath, "")
Else
Me.Image.Picture = NoImage
End If
End Sub
|