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
Açılan Kutu0'ın güncelleştirme sonrasında olayındaki kodları aşağıdaki ile değiştir.