03/08/2019, 16:42
merhabalar dün resimleri raporlaşma bölümünde çıkartmak için konu açmiştim ama ayni kodları ana menüde resim çıkartmak için uyarlamaya çaliştim lakın sonuçsuz kaldim nerede yanlış yapıyorum acaba teşekkürler.
Kod:
Private Sub Resim78_Click()
Dim f As Object
Set f = Application.FileDialog(1)
f.AllowMultiSelect = False
If (f.show = True) Then
Me![img2].Picture = f.SelectedItems(1)
End If
End Sub
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
varmi = Me.FİRMA
yol = "C:\resimler\"
If Len(Dir(yol & varmi & ".jpg")) > 0 Then
Me.img2.Picture = yol & varmi & ".jpg"
ElseIf varmi <> "" And Dir(yol & "\" & varmi & ".jpg") = "" Then
'picture not there!
MsgBox "Klasörde " & Me.FİRMA & " fotoğrafı yok", vbCritical + vbOKOnly, "Hata"
End If
End Sub