Kodu aşağıdaki ile değiştirerek deneyiniz.

Dim Sql As String

SQL = "INSERT INTO [SMS _2] ( TARİH, [AD SOYAD], [ŞİKAYET AYRINTISI], [DEPO&BAYİ], [SİKAYET BASLIGI], [ŞİKAYET KONUSU], [İLGİLİ BÖLÜM], URETİM_YERİ, [VARDİYA NUMARASI], [PARTİ NUMARASI], [ÜRÜN SKT], [ÜRÜN BİLGİSİ], [ÜRÜN ADI], [PROBLEMİN TESPİTİ], [VERİLEN CEVAP], [SORUMLU KİŞİ GERİ BİLDİRİM TARİHİ], [ŞİKAYET KAPATILMA TARİHİ], [SORUMLU ÜRETİM YÖNETİCİSİ], [SORUMLU KALİTE YÖNETİCİSİ], [BİLDİRİM SEBEBİ], [ŞİKAYET KAYNAĞI], [BİLDİRİM SONUCU], [SİKAYET TİPİ] ) "

SQL = Sql & "SELECT SMS.TARİH, SMS.[AD SOYAD], SMS.[ŞİKAYET AYRINTISI], SMS.[DEPO&BAYİ], SMS.[SİKAYET BASLIGI], SMS.[ŞİKAYET KONUSU], SMS.[İLGİLİ BÖLÜM], SMS.URETİM_YERİ, SMS.[VARDİYA NUMARASI], SMS.[PARTİ NUMARASI], SMS.[ÜRÜN SKT], SMS.[ÜRÜN BİLGİSİ], SMS.[ÜRÜN ADI], SMS.[PROBLEMİN TESPİTİ], SMS.[VERİLEN CEVAP], SMS.[SORUMLU KİŞİ GERİ BİLDİRİM TARİHİ], SMS.[ŞİKAYET KAPATILMA TARİHİ], SMS.[SORUMLU ÜRETİM YÖNETİCİSİ], SMS.[SORUMLU KALİTE YÖNETİCİSİ], SMS.[BİLDİRİM SEBEBİ], SMS.[ŞİKAYET KAYNAĞI], SMS.[BİLDİRİM SONUCU], SMS.[SİKAYET TİPİ] FROM SMS WHERE (((SMS.[Kimlik])=" & [Metin253] & "));"

CurrentDb.Execute SQL

MsgBox "işlem tamam", vbExclamation, "Onay"