bu arada aklıma gelmişken neden geçici sorgu oluşturup silmekle vakit kaybediyorsunuz
doğrudan DoCmd.RunSQL SQLa yada CurrentProject.Connection.Execute (SQLa) kodlarıyla da kayıt eklenebilirdi

Me.Caption = "GeciciA sorgusu OLUSTURULUYOR."

'________________________________________________________________________________________Bu aralık değişecek

    SQLa = Replace(SQLa, "@", Chr(34))  '<<---||  eklendi

'        Set SrgYap = CurrentDb.CreateQueryDef("GeciciA", Replace(SQLa, "@", Chr(34)))

    

    DoCmd.SetWarnings False

    Me.Caption = "Ogrenci Tablosuna VERI YUKENIYOR."

    DoCmd.RunSQL SQLa  '<<---||  eklendi  yada CurrentProject.Connection.Execute (SQLa)

'        DoCmd.OpenQuery "GeciciA", acViewNormal, acEdit

    DoCmd.SetWarnings True

    Me.Caption = "Gecici NESNELER SILINIYOR."

'        DoCmd.DeleteObject acQuery, "GeciciA"

    DoCmd.DeleteObject acTable, "ExcelTbLogrenci"

'________________________________________________________________________________________Bu aralık değişecek

Me.Caption = "ISLEM TAMAM"