Recordset ile Veri Güncelleme

Recordset ile Veri Güncelleme (Update)

Recordset döngüsü ile tablolarınıza ya da sorgularınıza verileri ekleyebilir, silebilir veya güncelleştirebilirsiniz. Burada DAO yöntemiyle ilgili tablodan verileri nasıl güncelleyeceğ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.

Sub DAOUpdating()

' Kayıt Güncelleme

On Error GoTo Handler

Dim str As String

Dim rs As DAO.Recordset

str = "tblSatis"

Set rs = CurrentDb.OpenRecordset(str)

With rs

If .RecordCount <> 0 Then

    If .Updatable Then

        .Edit

        .Fields!kdv= 1.18

        .Update

    End If

End If

.Close

End With

ExitSub:

Set rs = Nothing

Exit Sub

Handler:

Resume ExitSub

End Sub

Yukarıdaki yordam çalıştırıldığında tblSatis tablosunda kdv değerini %18 olarak güncellenecektir.. Bu alt yordamı istediğiniz yerden aşağıdaki komutu vererek çalıştırabilirsiniz.

Call DAOUpdating