Veri tabanından bilgiler formdaki textbox ve combobaxlara aktarılıyor.
Gerekli değişiklikleri yapıp güncelleme butonuna tıkladığımda hata alıyorum. ( Kilitli olan textbox ve combobaxlar açıldıldıktan sonra)
Güncelleme yapmıyor. Yardımcı olabilirseniz çok sevinirim teşekkürler.
Güncelle butonu kodları.
Kod:
Private Sub CommandButton2_Click()
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
Me.TextBox1.Enabled = True
Me.ComboBox1.Enabled = True
Me.TextBox2.Enabled = True
Me.TextBox3.Enabled = True
Me.TextBox4.Enabled = True
rs.Update 1, Me.ComboBox1.Text
rs.Update 2, Me.TextBox1.Text
rs.Update 3, Me.TextBox3.Text
rs.Update 4, Me.TextBox4.Text
rs.Close
baglan.Close
End Sub