+- 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ığı: Resim ekleme butonunda işlemi iptal etme problemi (/konu-resim-ekleme-butonunda-islemi-iptal-etme-problemi.html)
Resim ekleme butonunda işlemi iptal etme problemi - akdemir1 - 14/03/2014
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...
Cvp: Resim ekleme butonunda işlemi iptal etme problemi - ozanakkaya - 14/03/2014
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_cmdResimEkleCvp: Resim ekleme butonunda işlemi iptal etme problemi - akdemir1 - 15/03/2014
Çok teşekkür ederim hocam sorun çözüldü
Saygılarımla.