KAYDET BUTONU

[Programcı24]

Kaydet butonuna tıkladığımda access veri tabanında veriler görünmüyor ama arka planda kimlik/id kısmı artış gösteriyor kaydetmiş gibi. (bunu manel kayıt yaptığımda farkettim. id/kimlik atlıyor)

veri tabanı alanları ve form ekran görüntüsü

Private Sub CommandButton1_Click()
Dim baglan As New Connection
Dim rs As New Recordset

    baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\mherg\Desktop\PERSONEL B.S - Kopya\master.accdb;"
    rs.Open "SELECT * FROM personel", baglan, adOpenKeyset, adLockBatchOptimistic
    rs.AddNew
    
    
    If Me.ComboBox1.Text <> "" Then rs.Fields(1) = Me.ComboBox1.Text
    If Me.TextBox1.Text <> "" Then rs.Fields(2) = Me.TextBox1.Text
    If Me.TextBox2.Text <> "" Then rs.Fields(3) = Me.TextBox2.Text
    If Me.TextBox3.Text <> "" Then rs.Fields(4) = Me.TextBox3.Text
    If Me.TextBox4.Text <> "" Then rs.Fields(5) = Me.TextBox4.Text
    If Me.TextBox5.Text <> "" Then rs.Fields(5) = Me.TextBox5.Text
    If Me.TextBox6.Text <> "" Then rs.Fields(6) = Me.TextBox6.Text
    If Me.ComboBox2.Text <> "" Then rs.Fields(7) = Me.ComboBox2.Text
    If Me.TextBox7.Text <> "" Then rs.Fields(8) = Me.TextBox7.Text
    
    rs.Update
    rs.Close
    baglan.Close
End Sub

 

[Levent Menteşoğlu]

Sorunuz ne anlayamadım. Id ile ilgili ise otomatik sayı üreten bir id'de eğer bir veri sildiyseniz aynı id numarası tekrar verilmez ve en son verdiği değerden devam eder.

 

[Programcı24]

Sorunuz ne anlayamadım. Id ile ilgili ise otomatik sayı üreten bir id'de eğer bir veri sildiyseniz aynı id numarası tekrar verilmez ve en son verdiği değerden devam eder.

id yi karıştırmayalım.

Sorun şu.
verileri access veri tabanına kaydetmiyor

 

[Levent Menteşoğlu]

Sorun şu.
verileri access veri tabanına kaydetmiyor

Access veritabanında ilgili tablo tasarım modunda kalmış. Bunun için "Tablo Tasarımı" sekmesindeki Görünüm-Veri Sayfası Görünümü'nü seçin.

 

[Programcı24]

aşağıdaki kodda bir sıkıntı var

rs.Open "SELECT * FROM personel", baglan, adOpenKeyset, adLockBatchOptimistic
    rs.AddNew
    
    
    If Me.ComboBox1.Text <> "" Then rs.Fields(1) = Me.ComboBox1.Text
    If Me.TextBox1.Text <> "" Then rs.Fields(2) = Me.TextBox1.Text
    If Me.TextBox2.Text <> "" Then rs.Fields(3) = Me.TextBox2.Text
    If Me.TextBox3.Text <> "" Then rs.Fields(4) = Me.TextBox3.Text
    If Me.TextBox4.Text <> "" Then rs.Fields(5) = Me.TextBox4.Text
    If Me.TextBox5.Text <> "" Then rs.Fields(5) = Me.TextBox5.Text
    If Me.TextBox6.Text <> "" Then rs.Fields(6) = Me.TextBox6.Text
    If Me.ComboBox2.Text <> "" Then rs.Fields(7) = Me.ComboBox2.Text
    If Me.TextBox7.Text <> "" Then rs.Fields(8) = Me.TextBox7.Text
    
    rs.Update
    rs.Close
    baglan.Close