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

Doğru söylüyorsun. Bu yüzden güncellemeye gerek yok.

(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.

Iyi calismalar)

(26/02/2020, 19:51)berduş yazdı: Iyi calismalar)

ETB1 VE OTB1 değişkenlerini anlamadım.

Onlar aslında sanal sorgular istediğiniz ismi verebilirsiniz
Meselâ
OTbl olay tablosunda formdaki aya ait olan kayitlari gösteren sorgu
ETbl olay tablosuna eklenecek kayıtları gösterecek olan sorgu