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

[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

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

Τάσος