Açılan Kutu0'ın güncelleştirme sonrasında olayındaki kodları aşağıdaki ile değiştir.

Private Sub Açılan_Kutu0_AfterUpdate()

On Error Resume Next

Me.T_GIRIS_alt_formu.Requery

Me.T_GIRIS_alt_formu.Form.Refresh

Me.ResimYolu = Me.Açılan_Kutu0.Column(2)



If IsNull(Me.Açılan_Kutu0) Or Me.Açılan_Kutu0 = "" Then

Me.Komut195.Visible = False

Me!Cerceve.Picture = ""

Else

Me.Komut195.Visible = True

Me!Cerceve.Picture = Me!ResimYolu

End If

End Sub