(26/02/2020, 17:20)berduş yazdı: dilerim işinize yarar
Not: güncellemeyle ilgili bir şey eklemedim

SqlEkle = " INSERT INTO OLAY " & _

          " SELECT ETbl.* " & _

          " FROM (SELECT PERSONEL.[PERSONEL NO] AS PERNO, PERSONEL.ADI, PERSONEL.SOYADI, " & Me.AY & " AS AY " & _

          " FROM (SELECT OLAY.PERNO " & _

          " FROM OLAY " & _

          " WHERE (((OLAY.AY) = '" & Me.AY & "')) " & _

          " ) As OTbl RIGHT JOIN PERSONEL ON OTbl.PERNO = PERSONEL.[PERSONEL NO] " & _

          " WHERE (((OTbl.PERNO) Is Null))) As ETbl;"



CurrentDb.Execute SqlEkle

'aktar

Me.Requery

Aradığım kod buydu teşekkür ederim.