10/02/2014, 22:41
10/02/2014, 22:54
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 Sub10/02/2014, 23:00
Aynen uyguladım hocam sorun çözüldü.
Emeğinize saglık,
Atoz112 hocamada ilgisinden dolayı sonsuz teşekkür ederim.
Saygılarımla..
Emeğinize saglık,
Atoz112 hocamada ilgisinden dolayı sonsuz teşekkür ederim.
Saygılarımla..