Forum - Φόρμες Ανέβασμα φώτο

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Ανέβασμα φώτο (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2506-anebasma-foto.html)

Κάτι κατάφερα.Απλά δεν αναγνωρίζει κάποια γραφικά

Μιχάλη!!

Δεν γνωρίζω από 2013 από 2007 νομίζω ναι. Εάν έχει κάποιος ίσως μπορεί να ανεβάσει.Αλλιώς πρέπει συντόμως να κάνω αναβάθμιση σε win 2008 kai office 2013.

Αλέξανδρος

Μιχάλη
Την εφτιαξα κάποια reference αλλαγή και κάποια προσθήκη DAO και εντάξει.
Αλέξανδρος

Όπως είχα γράψει στον Τάσο δεκτές κρητικές και διορθώσεις.

Καλημέρα και χρόνια πολλά!

Μιχάλη δοκίμασε (γενικότερο παράδειγμα):

Κώδικας:

Private Sub cmdInsertPic_Click()

    On Error Resume Next

    Dim ret As Boolean

    Dim strFile As String

    Dim fCancelled As Boolean

    WizHook.Key = 51488399

    ret = WizHook.OpenPictureFile(strFile, fCancelled)

    If ret Xor fCancelled Then

        Me.ΑδΚυκλοφορίας = strFile

        Me.picsubform.Form.imgPicture.Picture = strFile

    End If

    If Err <> 0 Then MsgBox Err.Description, vbExclamation

End Sub

Στο συμβάν "Με το τρέχον" της υποφόρμας picsubform:

Κώδικας:

Private Sub Form_Current()

    Me.imgPicture.Picture = vbNullString

    If Not IsNull(Me.ΑδΚυκλοφορίας) Then

        If Dir(Me.ΑδΚυκλοφορίας, vbDirectory) <> vbNullString Then

            Me.imgPicture.Picture = Me.ΑδΚυκλοφορίας

        End If

    End If

End Sub

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

Τάσος

Νάσε καλά και χρόνια πολλά

Χριστός Ανέστη σε όλους