AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Direk Ana Menüde Resim Gelmesini İstiyorum

1 2 3
03/08/2019, 16:42

yakanic

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
03/08/2019, 16:44

berduş

(03/08/2019, 16:42)yakanic yazdı: ana menüde resim çıkartmak için uyarlamaya
derken tam olarak ne kast ettiğinizi daha açık ifade edebilir misiniz?
03/08/2019, 16:46

yakanic

(03/08/2019, 16:44)halily yazdı:
(03/08/2019, 16:42)yakanic yazdı: ana menüde resim çıkartmak için uyarlamaya
derken tam olarak ne kast ettiğinizi daha açık ifade edebilir misiniz?

üye bilgilerinin gösterildiği bölüm.
03/08/2019, 16:51

berduş

yolun içinde zaten bir "\" var dolayısıyla kodda yer alan 2. "\"  fazladan olmuş, o nedenle  olabilir
ElseIf varmi <> "" And Dir(yol & "\" & varmi & ".jpg") = "" Then
kısmını aşağıdaki kodla değiştirip dener misiniz
ElseIf varmi <> "" And Dir(yol &  varmi & ".jpg") = "" Then
yada aşağıdaki kodla
ElseIf varmi <> "" And Len(Dir(yol  & varmi & ".jpg")) = 0 Then
03/08/2019, 16:59

yakanic

(03/08/2019, 16:51)halily yazdı: yolun içinde zaten bir "\" var dolayısıyla kodda yer alan 2. "\"  fazladan olmuş, o nedenle  olabilir
Kod:
ElseIf varmi <> "" And Dir(yol & "\" & varmi & ".jpg") = "" Then
kısmını aşağıdaki kodla değiştirip dener misiniz
Kod:
ElseIf varmi <> "" And Dir(yol &  varmi & ".jpg") = "" Then
yada aşağıdaki kodla
Kod:
ElseIf varmi <> "" And Len(Dir(yol  & varmi & ".jpg")) > 0 Then

olmadi hocam
03/08/2019, 17:01

berduş

1 - hangisini denediniz?
2 - tam olarak sorun ne? hata uyarısı mı verdi yoksa bir şey göstermedi mi?
1 2 3