Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
22/06/2017 15:53
Konu Sahibi
conquerora
Yorumlar
6
Okunma
825
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

conquerora

Aktif Üye
8876
fa.... ad....
 38
 13
 46
 07/08/2009
0
 Sakarya
 işçi
 Ofis 2013 64 Bit
 30/11/2017,10:15
Çözüldü 
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.


07-08-2009 tarihinden beri AccessTr.neT üyesidir.

POWER

Uzman
17709
Uf.... Öz....
 55
 44
 1.874
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 Bugün,02:40

Visual Basic Code
1
2
3
4
5
6
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 ...

conquerora

Aktif Üye
8876
fa.... ad....
 38
 13
 46
 07/08/2009
0
 Sakarya
 işçi
 Ofis 2013 64 Bit
 30/11/2017,10:15
Big Grin 
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.

aydın3838

Destek
12957
ya.... ay....
 38
 45
 271
 20/12/2009
8
 Kayseri
 serbest
 Ofis 2003
 07/11/2018,18:51
(23/06/2017 08:40)conquerora Adlı Kullanıcıdan Alıntı: 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?


Visual Basic Code
msgbox "işlem tamam", vbExclamation, "Onay"  


aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.

conquerora

Aktif Üye
8876
fa.... ad....
 38
 13
 46
 07/08/2009
0
 Sakarya
 işçi
 Ofis 2013 64 Bit
 30/11/2017,10:15
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.

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 481
 12.057
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,14:37
Kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
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"


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İşlemlerin Belirli Sayıda Veriye Uygulanması ertans 5 205 13/02/2019, 18:21
Son Yorum: ozanakkaya
Çözüldü Dlookup İle Getirdiğimiz Kayıtları Güncelleme. barcins 3 317 20/11/2018, 17:21
Son Yorum: barcins
Çözüldü Sayısal Değeri En Büyük Olana Ait Kayıtları Listelemek derebeyi 4 223 16/11/2018, 08:19
Son Yorum: derebeyi
Çözüldü Tabloda Kayıtları Sınırlandırma mstfztrk 6 383 18/07/2018, 22:10
Son Yorum: mstfztrk
Çözüldü Formlar Arası Belirli Bilgilerin Aktarımı ALTANs 1 337 01/07/2018, 03:36
Son Yorum: myAccess

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.