NOT: yazmaya çalıştığım kodun orjinalini 2 tablo için bir arkadaş yazmış ve orjinaline ekleme yapmaya çalıştım ancak beceremedim
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
düzenlemeye çalıştığım kod;
[vb]
Private Sub TEMELTİPİ_AfterUpdate()
Dim Re As DAO.Recordset
Set Re = CurrentDb.OpenRecordset("TERZAGHİ ŞERİT")
Set Re = CurrentDb.OpenRecordset("TERZAGHİ KARE")
Set Re = CurrentDb.OpenRecordset("TERZAGHİ DİKDÖRTGEN")
Re.AddNew
Re![TEMELTİPİ] = Me.TEMELTİPİ
Re.Update
End Sub
orjinal kod;
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
End Sub
şimdiden teşekkür ederim.