Recordset ile Veri Ekleme

Recordset ile Veri Ekleme (AddNew)

Recordset döngüsü ile tablolarınıza ya da sorgularınıza verileri ekleyebilir, silebilir veya güncelleştirebilirsiniz. Burada DAO yöntemiyle verileri tabloya nasıl ekleyeceğiniz açıklanmıştır. Uygulamaya geçmeden önce Microsoft DAO 3.6 Object Library referansımızı eklememiz gerekiyor. Bunun için VBE editöründe Tools > Reference > Yolunu izleyip aşağıdaki referansımızı işaretlememiz gerekiyor.

Şimdi VBE penceresinde iken bir modül ekleyelim ve aşağıdaki kodu yazalım.

Public Sub DAOAdding()

On Error GoTo ErrorHandler

Dim sql As String

Dim rs As DAO.Recordset

    sql = "tblPersonel"

    Set rs = CurrentDb.OpenRecordset(sql)

    

        With rs

                .AddNew

                .Fields!Adı= "Remzi"

                .Fields!Soyadı= "Seylan"

                .Fields!Departman = "Muhasebe"

                .Fields!Ucret= 9000

            .Update

            .Close

            

        End With

        

MsgBox "Belirtilen kayıt tabloya eklenmiştir.", vbOKOnly + vbInformation, "DAO Adding"

ExitSub:

Set rs = Nothing

Exit Sub

ErrorHandler:

Resume ExitSub

End Sub

Yukarıdaki yordam çalıştırıldığında tblPersonel tablosuna belirtilen alanlar eklenmiş olacaktır. Bu alt yordamı istediğiniz yerden aşağıdaki komutu vererek çalıştırabilirsiniz.

Call DAOAdding