AccessTr.neT

Merhaba,

personel_List isimli liste kutusunun güncelleştirme sonrasında olayındaki resim ile ilgili kodları sil,

Formun geçerli olduğunda olayındaki

    If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then

        Me!ResimCercevesi.Picture = Me!MKResimYolu

    Else

       Me!ResimCercevesi.Picture = ""

    End If

Kodunu sil, yerine aşağıdaki kodları ekle,

   If (Len(Dir(Me!MKResimYolu))) > 0 And (Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu)) Then

    

        Me.ResimCercevesi.Picture = Me!MKResimYolu

        

    Else

    

        Me.ResimCercevesi.Picture = ""



    End If

Sayın Ozan hocam,

Kodları uyguladım,resimdeki hatayı verdi.

Uygulamanızı hata verdiği haliyle tekrar ekleyiniz.

dosya ekte.

Geçerli olduğunda olayındaki ilgili kodları aşağıdaki ile değiştir.

   If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then

    

        If (Len(Dir(Me!MKResimYolu))) > 0 Then

    

            Me.ResimCercevesi.Picture = Me!MKResimYolu

            

        Else

        

            Me.ResimCercevesi.Picture = ""

        

        End If

    

    Else

    

        Me.ResimCercevesi.Picture = ""



    End If

Sayın Ozan hocam..
 Emeğiniz için çok teşekkür ederim
Konu çözülmüştür.

Saygılarımla