Belirli Kayıtları Arşivleme

1 2
22/06/2017, 15:53

conquerora

Merhaba
Form üzerine yapacağım buton ile girmiş olduğum kaydı ikinci bir tabloya aktarmam lazım. 
Yani form üzerinden veri girişi yapar iken kaydı buton ile diğer tabloya kopyala işlemini yaptırmalıyım.
Bu konuda öneri ve yardımlarınızı rica ediyorum.
22/06/2017, 22:58

POWER

Private Sub Komut486_Click()
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;"
CurrentDb.Execute SQL
End Sub
23/06/2017, 08:40

conquerora

Teşekkürler Power.
Kod sorunsuz çalıştı.
Kayıt ettiğini anlamak için mesaj vermesini sağlamalıyız diye düşündüm.
Düğmeye bastıktan sonra kod çalışacak ve "Kaydın arşivlemesi yapıldı" diye uyarı vermeli. 
Uyarı penceresi üzerinde tamam bu tonu ile uyarıyı kapatmalıyız.
Bu kısa eklemeyi kod'un devamına nasıl yapmalıyız?
28/06/2017, 10:31

aydın3838

(23/06/2017, 08:40)conquerora yazdı: Teşekkürler Power.
Kod sorunsuz çalıştı.
Kayıt ettiğini anlamak için mesaj vermesini sağlamalıyız diye düşündüm.
Düğmeye bastıktan sonra kod çalışacak ve "Kaydın arşivlemesi yapıldı" diye uyarı vermeli. 
Uyarı penceresi üzerinde tamam bu tonu ile uyarıyı kapatmalıyız.
Bu kısa eklemeyi kod'un devamına nasıl yapmalıyız?


msgbox "işlem tamam", vbExclamation, "Onay"  
29/06/2017, 15:34

conquerora

Merhaba 

Yardımlarınız için teşekkürler.
Yazdığınız  kodun mesaj kısmı da sorunsuz çalışıyor.
Bir hata fark ettim.
tablo_1 de ne kadar kayıt var ise tablo_2 kopyalama yapıyor.
Benim istediğim sadece form üzerinde aktif olan kaydın kopyalamasını yapması.
1500 kayıt içinden sadece 5-10 kaydın kopyalamasını yapacağım için tümünün kopyalanması anlamsız.
Şöyle bir koşul mu eklememiz gerekli acaba? 
Form üzerindeki şikayet tipi açılan kutusunda "GEÇERSİZ ŞİKAYET (HAKSIZ)" seçili ise kopyalama yapması gerekir.
05/08/2017, 21:41

ozanakkaya

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