Butonun tıklandığında olayına aşağıdaki kodu ekle

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO silinenler ( [g_menkul_ no], mevkii, adres, foto, satanın_adı_soyadı ) SELECT Gayrımenkul.G_Menkul_no, Gayrımenkul.mevkii, Gayrımenkul.adres, Gayrımenkul.foto, Dlookup ('adı_soyadı','müşteri','[müşteri_no]=' & [Müşteri_no]) AS satan FROM Gayrımenkul WHERE (((Gayrımenkul.G_Menkul_no)=[Formlar]![Gayrımenkul]![G_Menkul_no]));"

DoCmd.SetWarnings True

DoCmd.OpenForm "silinenler", , , "[g_menkul_ no]=" & Me![G_Menkul_no]