ercan hocamızın yaptığı örneğin sadeleştirilmiş halidir. mantığını öğrenmeniz açısından ekledim. basit işlemler için tek recordset eklemenizde fayda vardır çünkü her recordset hafızada yer işgal eder sizin işlemde tek tabloyu set edip işiniz bitince kapatmanız ve diğer tablo ile işleme geçmeniz yüzünden böyle kullanmanızda fayda vardır. büyük uygulamalarda karşınıza çıkacaktır.

Private Sub TEMELTİPİ_AfterUpdate()

 Dim Re As DAO.Recordset



 Set Re = CurrentDb.OpenRecordset("TERZAGHİ ŞERİT")

 Re.AddNew

 Re![TEMELTİPİ] = Me.TEMELTİPİ

 Re.Update

 Re.Close



 Set Re = CurrentDb.OpenRecordset("TERZAGHİ KARE")

 Re.AddNew

 Re![TEMELTİPİ] = Me.TEMELTİPİ

 Re.Update

 Re.Close



 Set Re = CurrentDb.OpenRecordset("TERZAGHİ DİKDÖRTGEN")

 Re.AddNew

 Re![TEMELTİPİ] = Me.TEMELTİPİ

 Re.Update

 Re.Close

End Sub