AccessTr.neT

Tam Versiyon: Resim ekleme butonunda işlemi iptal etme problemi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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...
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
Çok teşekkür ederim hocam sorun çözüldü

Saygılarımla.