aşağıdaki kod ile bir butonda hem bir tabloya kaydetmeyi hemde başka bir tablodan kayıt silmeyi aynı anda yaptırdık. bu örnek çoğaltılabilir. yapı bakımından anlamanız için yeterli diye düşünüyorum.

Not: bu kodlar ilişkisiz form için yapılması gerekir.

Olay

Dim rs As New ADODB.Recordset ' tanımlama Ado kod dizilimini kullanacağımızı belirledik.

Dim rs1 As New ADODB.Recordset

   rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'tabloya bağlandık

   rs.AddNew ' yeni alan ekleyeceğimizi söyledik

      rs.Fields("Alan1") = Me.MetinKutusu1 ' Metin Kutusu 1 de bulunan veriyi Alan1 e ekliyeceğimiz yerleri belirtik.

   rs.Update ' ekleme işlemini geçekleştirdik.

   rs.Close ' bağlantıyı kapattık

   Set rs = Nothing ' rs boşalttık. (rs.close ile nothing birisi kullanılıyor fakat ben ikisinide kullanıyorum.)



'Bu birinci kodumuzdu  şimdi ss  ile işlem yaptık ve rs bir ile işlemimiz bitti. aynı şekilde yine rs kullanabiliriz.

'karışık engellensin diye rs1 yapacağız. isterseniz siz başka birşeyde yapabilirsiniz. öneli olan bir değişken tanımlandığında onunla işimiz bittikten sonra tekrar kullanabileceğimizi bilmemizdir.



rs1.Open "Tablo2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'Tablo ikiye bağlandık



    rs1.Find "[Alan1]=" & Me.Metinkutusu ' burada metin kutusu içinde bulunan veriyi tabloda buldurup sadece onu sildireceğiz.

        rs1.Delete ' malum silme işlemi

        rs1.Update ' işlemi gerçekleştirdik.

        rs1.Close  ' bağlantıyı bitirdik.

        Set rs1 = Nothing









Olay Bitimi