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