[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

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