İnsert İnto Hatası

1 2
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
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"
1 2