Private Sub Çerçeve23_AfterUpdate()
If Me.Çerçeve23 = 1 Then
Me!secilen_isim = Me.Adı
Else
Me!secilen_isim = ""
End If
End Sub
Ayrıca, Yapılmaması Gereken Ölümcül Hatalar konusunu mutlaka inceleyiniz. Uygulamanız sorun vermeden düzenleyiniz.