NOT: 1. tıklamada kilitli alanlar açılıyor
2. tıklamada güncelleme işlemi gerçekleştiriliyor.
Kod:
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