30/09/2025, 11:35
berduş
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
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"