No alanını silerseniz Column(1) deki 1 yerine 0 yazabilirsiniz yada Me.Açýlan_Kutu17.value olarakta yazabilirsiniz.
Option Compare Database
Private Sub Açýlan_Kutu17_AfterUpdate()
Me.a1.Value = Dlookup ("[a1]", "personel", "[adý soyadý] = '" & Me.Açýlan_Kutu17.Column(1) & "'")
End Sub