[ Φόρμες ] InkPicture control

[argyrios]

Καλημέρα σε όλους,
είμαι καινούργιος χρήστης του φόρουμ και παρακαλώ για τη βοήθειά σας.
Έχω δημιουργήσει ένα αρχείο στην Access και σε κάποια φόρμα, θέλω να τοποθετήσω μια σταθερή εικόνα, πάνω στην οποία όμως, για κάθε εγγραφή, θέλω να σημειώνω κάποια σημάδια, που να σώζονται στη βάση δεδομένων και να μπορούν να ανακληθούν κάθε φορά που ανοίγω την συγκεκριμένη φόρμα και για την συγκεκριμένη επαφή.
Έχω εισάγει ένα πεδίο στον πίνακα της βάσης δεδομένων, ως OLE αντικείμενο.
Στη σχεδίαση της φόρμας, προσπαθώντας να εισάγω το στοιχείο ελέγχου ActiveX "Microsoft Inkpicture control" εμφανίζεται πράγματι ένα πλαίσιο σε άσπρο μη διαφανές φόντο, όπου στην προβολή φόρμας, μπορώ πράγματι να "σχεδιάσω". Όμως, δεν μπορώ να το συνδέσω με το συγκεκριμένο πεδίο, ώστε να αποθηκεύονται το dots που τοποθετώ και επιπλέον δεν είναι διαφανές για να το τοποθετήσω πάνω από την εικόνα μου και να φαίνεται ως προσθήκη.
Πατώντας από τις ιδιότητες σε προβολή σχεδίασης, στην καρτέλα 'Άλλα' στο πεδίο "προσαρμοσμένο" μου βγαίνει μήνυμα "ίσως δεν έχει γίνει καταχώρηση του διακομιστή OLE" και μου προτείνει να τον εγκαταστήσω ξανά.
Μήπως κάποιος θα μπορούσε να βοηθήσει;
Θα ήμουν ευγνώμων.
Αργύρης

[Tasos]

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

Ετοίμασα ένα παράδειγμα που πιστεύω ότι θα σε βοηθήσει να προχωρήσεις.

Φρόντισε η εικόνα που συνοδεύεται στο συνημμένο να βρίσκεται στο ίδιο φάκελο με το αρχείο Access για να λειτουργήσει το παράδειγμα.

Καλή συνέχεια!

Τάσος

[argyrios]

Τάσσο καλησπέρα κι ευχαριστώ πολύ.
Αυτό ακριβώς ζητούσα. Δεν μπόρεσα να βρω, όμως, πως συνδέεις το στοιχείο activex με την εικόνα και με το πεδίο inkPic.
Αν μπορούσες να με κατευθύνεις θα σου ήμουν ευγνώμων.
Αργύρης

[Tasos]

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

Σε παλαιότερες εκδόσεις 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

Φιλικά

Τάσος

[argyrios]

Καλησπέρα,
ευχαριστώ για την άμεση απάντηση.
Αν και δεν έχω εμπειρία σε VBA θα το κοιτάξω και θα σου πω.
Πάντως και πάλι ευχαριστώ.
Καληνύχτα,
Αργύρης