AccessTr.neT

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.