AccessTr.neT

Userform üzerinden veri tabanında güncelleme yapmak istiyorum.

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

çalışmanız olmadan hangi alanların ne özelliği var formunuzda hangi metin kutusu hangi alana denk geliyor bilemeyiz
o nedenle mutlaka örnek çalışmanız olmalı, eski sorularınızda kullanılmış örneğiniz varsa -yeni sorunuzla uyumluysa- onun linki eklenmeli
kodunuz doğru çalışıyor aslında ama çalışmanızda 2 sorun var
1 - yanlış alanlar metin kutularına bağlanmış

rs.Update 3, Me.TextBox3.Text

rs.Update 4, Me.TextBox4.Text

yazılmış ama
rs.Update 3 alanı TCNoyu günceller
rs.Update 4 alanı ise Adı günceller kodu şu şekilde düzenleyebilirsiniz

rs.Update 1, Me.ComboBox1.Text 'Cinsiyet

rs.Update 2, Me.TextBox1.Text 'Sicil

rs.Update 4, Me.TextBox3.Text 'Adı

rs.Update 5, Me.TextBox4.Text 'SoyAdı

tabi bunlar sizin eski dosyanızaki verilere göre
2 - eğer ilgili kayıt yoksa güncelleme yapamaz hata verir
If rs.RecordCount = 0 Then MsgBox "ilgili kayıt bulunamadı": GoTo 10 hata kontrolü eklenmeli

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

If rs.RecordCount = 0 Then MsgBox "ilgili kayıt bulunamadı": GoTo 10

rs.Update 1, Me.ComboBox1.Text 'Cinsiyet

rs.Update 2, Me.TextBox1.Text 'Sicil

rs.Update 4, Me.TextBox3.Text 'Adı

rs.Update 5, Me.TextBox4.Text 'SoyAdı

10

rs.Close



baglan.Close

Üstad çok teşekkürler Allah razı olsun. Her zamanki gibi efsanesiniz.
Vermiş olduğunuz bilgiler ve yönlendirmeniz sayenizde sorun çözülmüştür. Çok çok teşekkürler. İyiki varsınız.

rica ederim)
iyi çalışmalar
Not: Yalnız sorunuz Access değil Excel sorusu o nedenle Excel bölümüne taşınacak

H@K@N

berduş

H@K@N

berduş