Soru Access veri tabanı güncelleme sorunu

[Programcı24]

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.

Güncelle butonu kodları.

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

 

[Haluk]

Verdiği hata nedir ?

Örnek dosyalarınızı eklerseniz, inceleyebiliriz...

.

 

[Programcı24]

yanlış alanlar metin kutularına bağlanmış şimdi sorun çözüldü teşekkürler

 

[Haluk]

Kodda gözüme çarpan birşey var...... RS'i tek seferde "Update" etmek yeterli olur. Sizin kodda ayrı ayrı her "Field" için "Update" ediyor.

Aşağıdaki gibi kullanmanız daha faydalı olacaktır.

'    .........
'    .....
    RS(1) = ComboBox1.Text
    RS(2) = TextBox1
    RS(3) = TextBox3
    RS(4) = TextBox4
       
   
    RS.Update
   
'    .........
'    .....

.

 

[Programcı24]

Kodda gözüme çarpan birşey var...... RS'i tek seferde "Update" etmek yeterli olur. Sizin kodda ayrı ayrı her "Field" için "Update" ediyor.

Aşağıdaki gibi kullanmanız daha faydalı olacaktır.

'    .........
'    .....
    RS(1) = ComboBox1.Text
    RS(2) = TextBox1
    RS(3) = TextBox3
    RS(4) = TextBox4
      
  
    RS.Update
  
'    .........
'    .....

.

Teşekkürler