Denemedim farazi yazim hatalari olabilir
1 - Formunuzun 2. satirina long  türünde public bir değişken tanimlayin diyelim ki degisken olsun
2 - butonunuzun başına da

degisken=degisken+1 

 if degisken mod=1 then goto etkin  Else goto guncellle

etkin:

Etkinleştirme kodları

Exit sub

guncellle:

Dim baglan As New Connection

Dim rs As New Recordset



baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"

rs.Open "SELECT * FROM personel where tckn='" & Me.TextBox2.Text & "'", baglan, adOpenKeyset, adLockPessimistic



rs.Update 2, Me.TextBox1.Text





rs.Close

baglan.Close

mesaj = MsgBox("Personel bilgileri güncellendi.", vbOKOnly, "GÜNCELLEME MESAJI")

End Sub