AccessTr.neT
Direk Ana Menüde Resim Gelmesini İstiyorum - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Direk Ana Menüde Resim Gelmesini İstiyorum (/konu-direk-ana-menude-resim-gelmesini-istiyorum.html)

Sayfalar: 1 2 3

Direk Ana Menüde Resim Gelmesini İstiyorum - yakanic - 03/08/2019

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


Cvp: Direk Ana Menüde Resim Gelmesini İstiyorum - berduş - 03/08/2019

(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?

RE: Direk Ana Menüde Resim Gelmesini İstiyorum - yakanic - 03/08/2019

(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.

Cvp: Direk Ana Menüde Resim Gelmesini İstiyorum - berduş - 03/08/2019

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


RE: Direk Ana Menüde Resim Gelmesini İstiyorum - yakanic - 03/08/2019

(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

Cvp: Direk Ana Menüde Resim Gelmesini İstiyorum - yakanic - 03/08/2019

tıklayarak resim ekleyebiliyorum ama otomatik gelmiyor resim kutucuğunda yapılmasi gereken birşey olabilir mi acaba.