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

[mikekal1oo]

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

[alex]

Μιχάλη!!

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

Αλέξανδρος

[alex]

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

[mikekal1oo]

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

[Tasos]

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

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

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

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

Τάσος

[mikekal1oo]

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

[mikekal1oo]

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