Skip to main content

AccessTr.neT


Belirli Kayıtları Arşivleme

Belirli Kayıtları Arşivleme

Çözüldü #1
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.
.rar SMS_7_1.rar (Dosya Boyutu: 91,63 KB | İndirme Sayısı: 6)
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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
Please return your positive or negative ...
Cevapla
Big Grin #3
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?
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 27/06/2017, 16:08, Düzenleyen: conquerora.
Cevapla
#4
(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"  
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
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.
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
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"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da