27/10/2011, 05:31
ozanakkaya
Yinelenen kayıt oluşturmaması için bu şekilde olması daha iyi değil mi? İyi değil diyorsanız aşağıdaki kodu kullanın.
Private Sub Komut104_Click()
Dim ay, yol As Integer
yol = CurrentProject.path & "\" & "Frm1.mdb"
ay = MtnAy
DoCmd.RunSQL "INSERT INTO Tablo ( SucNo, OlayTarihi, OlayAyi, OlaySaati, SaatAralik, SucMerkezleri, SucMahalleleri, CaddeSokak, KurumMeskenNo, MerkezdekiSuc, SucAyrim, GenelTasnif, AyrintiliTasnif, Aydinlatilan, FailiMechul, Toplam, Serbest, Tevkif, Firar, Firar_," & _
" Tarih, Olay, Tarih_, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, Ruhsatlı, Ruhsatsız, Ruhsatlı_, Ruhsatsız_, Belgeli, Belgesiz, Bicak, Diger, " & _
"Kayip, Bulundu, CalintiArac, BulunanAraclar, CalintiMotor, BulunanMotor, OkuldakiSuclar, BulunmaTarihi, EsyaAdi, Turu, Miktari, MiktarCinsi ) IN '" & yol & "' SELECT SucNo, OlayTarihi, OlayAyi, OlaySaati, SaatAralik, SucMerkezleri," & _
" SucMahalleleri, CaddeSokak, KurumMeskenNo, MerkezdekiSuc, SucAyrim, GenelTasnif, AyrintiliTasnif, Aydinlatilan, FailiMechul, Toplam, Serbest, Tevkif, Firar, Firar_, Tarih, Olay," & _
" Tarih_, [1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23]," & _
" [24], [25], [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], Ruhsatlı, Ruhsatsız, Ruhsatlı_, Ruhsatsız_," & _
" Belgeli, Belgesiz, Bicak, Diger, Kayip, Bulundu, CalintiArac, BulunanAraclar, CalintiMotor, BulunanMotor, OkuldakiSuclar, BulunmaTarihi, EsyaAdi, Turu, Miktari, MiktarCinsi FROM Tablo WHERE (((OlayAyi)='" & ay & "'));"
End Sub