Skip to main content

AccessTr.neT


Direk Ana Menüde Resim Gelmesini İstiyorum

Direk Ana Menüde Resim Gelmesini İstiyorum

Çözüldü #1
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
Cevapla
#2
(03/08/2019 16:42)yakanic Adlı Kullanıcıdan Alıntı: ana menüde resim çıkartmak için uyarlamaya
derken tam olarak ne kast ettiğinizi daha açık ifade edebilir misiniz?
Cevapla
#3
(03/08/2019 16:44)halily Adlı Kullanıcıdan Alıntı:
(03/08/2019 16:42)yakanic Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#4
yolun içinde zaten bir "\" var dolayısıyla kodda yer alan 2. "\"  fazladan olmuş, o nedenle  olabilir
Visual Basic Code
ElseIf varmi <> "" And Dir(yol & "\" & varmi & ".jpg") = "" Then
kısmını aşağıdaki kodla değiştirip dener misiniz
Visual Basic Code
ElseIf varmi <> "" And Dir(yol &  varmi & ".jpg") = "" Then
yada aşağıdaki kodla
Visual Basic Code
ElseIf varmi <> "" And Len(Dir(yol  & varmi & ".jpg")) = 0 Then
Cevapla
#5
(03/08/2019 16:51)halily Adlı Kullanıcıdan Alıntı: 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
Cevapla
#6
tıklayarak resim ekleyebiliyorum ama otomatik gelmiyor resim kutucuğunda yapılmasi gereken birşey olabilir mi acaba.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da