Ενσωμάτωση φωτογραφιών σε εγγραφές

Καλησπέρα, καλησπέρα...
Χρησιμοποιώ access 2003. Έχω φτιάξει μια βάση δεδομένων στην οποία καταχωρώ στοιχεία ατόμων και σε κάθε εγγραφή φορτώνω μια φωτογραφία. Για να το πετύχω αυτό έχω εγκαταστήσει το Dbpix 2.0 control. Όλα πήγαιναν καλά μέχρι που η βάση έφτασε σχεδόν τα 2 gb και τώρα πρέπει να την χωρίσω για να μην κλειδώσει (το dbpix ενσωματώνει της φωτογραφίες στην βάση). Υπάρχει τρόπος τις φωτογραφίες να τις αποθηκεύω στο δίσκο και να τις φορτώνει κάθε φορά που μετακινούμαι στις εγγραφές; εχω δει το post που εκανε ο φίλος pm4698 όμως δεν μπορώ να ανοίξω το παράδειγμα που εχει επισυναπτόμενο γιατί ειναι φτιαγμένο σε access 2007 ή 2010.
Ευχαριστώ για το χρόνο σας.

[kapetang]

Καλησπέρα στην παρέα

Τόλη στη βάση δεδομένων που επισυνάπτεται παρουσιάζεται ένας τρόπος σύνδεσης και εμφάνισης φωτογραφιών αποθηκευμένων στο δίσκο.
Αποτελείται από:

1. Τον πίνακα «tblCustomers» ο οποίος, εκτός των άλλων, περιέχει και ένα πεδίο υπερσύνδεσμο το «Photo», για την αποθήκευση της διαδρομής και του ονόματος του αρχείου της φωτογραφίας.
2. Μία φόρμα «frmCustomers» η οποία εκτός των άλλων περιέχει και ένα χειριστήριο εικόνας το «picPhoto» για την εμφάνιση της φωτογραφίας στη φόρμα

.
Για να συμπληρώσουμε τα στοιχεία του υπεσδύνδεσμου:
Ανοίγουμε τη φόρμα «frmCustomers» > Δεξί κλικ στο πεδίο του υπερσύνδεσμου > Στο μενού συντόμευσης κλικ στο Επεξεργασία υπερσύνδεσης > Στο πλαίσιο διαλόγου Επεξεργασία υπερσύνδεσης επιλογή του αρχείου της φωτογραφίας, κλπ.
Όταν κάνουμε κλικ στο σύνδεσμο εμφανίζεται η φωτογραφία στο πρόγραμμα που έχει οριστεί στα windows για το άνοιγμα των αρχείων αυτού του τύπου.
Επίσης η φωτογραφία εμφανίζεται αυτόματα και στο πλαίσιο εικόνας που υπάρχει στη φόρμα, όταν μετακινούμαστε στις εγγραφές. Αυτό γίνεται με τον παρακάτω κώδικα.

Private Sub Form_Current()
    'Φορτώνει το αρχείο εικόνας από το δίσκο στο χειριστήριο picPhoto
    Dim strPathName As String
    On Error GoTo err_trap
    If Not IsNull(Me!Photo) Then
        strPathName = Mid(Me!Photo, InStr(Me!Photo, "#") + 1)
        Me!picPhoto.Picture = Mid(strPathName, 1, InStr(strPathName, "#") - 1)
    End If
err_exit:
    Exit Sub
err_trap:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End Sub

Φιλικά/Γιώργος

Φίλε Γίωργο ευχαριστω για την αμεση απάντηση.
Νομίζω ότι ειναι αυτο που χρειάζομαι, το μονο που με προβληματίζει είναι οτι αν η υπερσυνδεση είναι κενη κραταει τη φωτογραφια της προηγουμενης εγγραφης. Ευχαριστώ για το χρόνο σου.

[kapetang]

Καλημέρα στην παρέα

Τόλη στη νέα ΒΔ που επισυνάπτω, άλλαξα λίγο τον κώδικα, ώστε να μη εμφανίζεται φωτογραφία, όταν η υπερσύνδεση είναι κενή.

Φιλικά/Γιώργος

[kapetang]

Καλημέρα πάλι

Τόλη μόλις σκέφτηκα και μια προσέγγιση χωρίς κώδικα. Η φόρμα «frmCustomers2» λειτουργεί όπως και η «frmCustomers», αλλά χωρίς κώδικα. Το μόνο που χρειάζεται είναι στην προέλευση του στοιχείου «picPhoto» να βάλουμε τη συνάρτηση: =HyperLinKPart([Photo];2)

Φιλικά/Γιώργος

[Tasos]

Καλημέρα σε όλους!

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

Αφού το ανοίξετε, προσδιορίσετε (προαιρετικά) τη διαδρομή φακέλου που περιέχει τις εικόνες (κουμπί πάνω δεξιά) .
Κατόπιν κάντε κλικ στο κουμπί [...] στην επιθυμητή εγγραφή για να εισάγετε τις εικόνες.

Ελπίζω να εξυπηρετεί!

Φιλικά

Τάσος

[nisgia]

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

Που λέτε πριν από λίγο καιρό, στα πλαίσια της γνωστής διαδικασίας "παίζω και μαθαίνω" ,
είχα φτιάξει ένα παραδειγματάκι σχετικό με τη διαχείριση εικόνων ενός αντικειμένου
(στη προκειμένη περίπτωση ακινήτων, κτιρίων, σπιτιών κτλ).

Το τροποποίησα λοιπόν λίγο και το ανεβάζω εδώ για τον νέο φίλο Τόλη. Καλωσόρισες στη παρέα Τόλη!
Θα το βρείτε στο αρχείο που επισυνάπτω μαζί με έναν φάκελο με μερικές (τυχαίες) φωτογραφίες ακινήτων
...έτσι για τις ανάγκες της δοκιμής.

Διαθέτει δύο υποφόρμες οι οποίες εμφανίζουν τις εικόνες του επιλεγμένου κτιρίου.
Η πρώτη σε μορφή "μία-μία" ενώ η δεύτερη σε συνεχόμενες.
Με διπλό κλικ επί της περιοχής εικόνας, μπορούμε να εισάγουμε όσες εικόνες θέλουμε
στο επιλεγμένο αντικείμενο (κτίριο).

Για την εξερεύνηση των αρχείων εικόνων χρησιμοποιεί το αντικείμενο FileDialog του Office άρα χρειάζεται
μια αναφορά στο Microsoft Office XX.0 Object Library (όπου XX.0 η διαθέσιμη έκδοση του Office).

Όπως ίσως καταλάβατε, πρόκειται για ένα παράδειγμα το οποίο κάποτε φιλοδοξούσε
να γίνει το ξεκίνημα μιας μίνι εφαρμογής αγοραπωλησιών ακινήτων.

Ελπίζω να σας φανεί χρήσιμο.

Φιλικά, Γιάννης.

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

Φίλοι μου σας ευχαριστώ πολύ όλους, κατεβαζω τα δειγματα και θα σας γραψω για τις εντυπώσεις μου, καλό σας βράδυ.