Skip to main content

AccessTr.neT


Resim ekleme butonunda işlemi iptal etme problemi

Resim ekleme butonunda işlemi iptal etme problemi

Çözüldü #1
Merhaba,

Çalışmama resim ekleme olayını uyguladım ama bir sorun var, ve sanırım bu sorun başka arkadaşlardada mevcuttur, dikkat edilmemiştir vs.

Sorun şu : herhangi bir ürüne resim ekliyorum ekliyor sorun yok.

mesela aynı urune "resim ekle" butonuna basıp tekrar resim eklemeye çalışıyorum ve açılan resim seçme yerinden "iptal" diyip resim eklemekten vazgeçiyorum. ve malesef önceden eklediğim resmide siliyor,
Zannedersem resim ekleme butonunun kodlarında bir eksik var, işlem iptal edildiğinde resmi silmemesi veya değiştirmemesi lazım.
Kodları değerli hocalarımın örneklerinden aldım, zannedersem aynı sorunu yaşayan başka arkadaşlarımda vardır.

Şimdiden yardımlarınız için çok teşekkür ediyorum,

Saygılarımla...
.rar akdmr.rar (Dosya Boyutu: 31,1 KB | İndirme Sayısı: 14)
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #2
ekle butonunun kodlarını aşağıdaki ile değiştir.

On Error GoTo err_cmdResimEkle
Dim ResimYolu As String
If Len(MKResim) <> 0 Then
ResimYolu = Me.MKResim
End If
Me![MKResim] = GetOpenFile_CLT("C:\OTOMASYON", "Resim Seçiniz...")
If IsNull(Me!MKResim) Or Me![MKResim] = "" Then
Me![MKResim] = ResimYolu
Else
Me![MKResim] = LCase(Me![MKResim])
End If
Me!ResimCercevesi.Picture = Me!MKResim

exit_cmdResimEkle:
Exit Sub

err_cmdResimEkle:
MsgBox Error$
Resume exit_cmdResimEkle
Cevapla
Çözüldü #3
Çok teşekkür ederim hocam sorun çözüldü

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