Θέμα: Φόρμες InkPicture control

Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 15-02-12, 21:58
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλησπέρα Αργύρη!

Σε παλαιότερες εκδόσεις Access, σε προβολή σχεδίασης μπορούσε κανείς να συνδέσει (μάλλον να εισάγει) εικόνα στο αντικείμενο αυτό.

Στη 2007 και 2010 εγώ δεν μπόρεσα να το επιτύχω χωρίς κώδικα VBA.

Υπάρχει λοιπόν κώδικας VBA που εκτελείται κάθε φορά που ανοίγεις τη φόρμα ή κάθε φορά που μεταφέρεσαι από εγγραφή σε εγγραφή.

Σε προβολή σχεδίασης, κάνε δεξί κλικ άνω στο κουμπί "Save" και επίλεξε: "Δόμηση συμβάντος".

Θα μεταφερθείς στον VBE όπου υπάρχει ο κώδικας VBA. που κάνει όλη τη δουλειά και συγκεκριμένα το παρακάτω τμήμα:

Κώδικας:
Private Sub Form_Load()
    Dim ThePath As String
    ThePath = CurrentProject.Path & "\face.jpg"
    Set objInk = Me.InkPicture1.Object
    If Dir(ThePath, vbDirectory) <> vbNullString Then
        objInk.Picture = LoadPicture(ThePath)
        
    End If
End Sub
Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση