Skip to main content

AccessTr.neT


Ürün Seçimine Göre Resim Ekleme

Ürün Seçimine Göre Resim Ekleme

Çözüldü #19
ekledim hocam
.rar akdemir1.rar (Dosya Boyutu: 105,96 KB | İndirme Sayısı: 14)
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #20
Açılan Kutu0'ın güncelleştirme sonrasında olayındaki kodları aşağıdaki ile değiştir.

Private Sub Açılan_Kutu0_AfterUpdate()
On Error Resume Next
Me.T_GIRIS_alt_formu.Requery
Me.T_GIRIS_alt_formu.Form.Refresh
Me.ResimYolu = Me.Açılan_Kutu0.Column(2)

If IsNull(Me.Açılan_Kutu0) Or Me.Açılan_Kutu0 = "" Then
Me.Komut195.Visible = False
Me!Cerceve.Picture = ""
Else
Me.Komut195.Visible = True
Me!Cerceve.Picture = Me!ResimYolu
End If
End Sub
Cevapla
Çözüldü #21
Aynen uyguladım hocam sorun çözüldü.
Emeğinize saglık,
Atoz112 hocamada ilgisinden dolayı sonsuz teşekkür ederim.

Saygılarımla..
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task