A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] bir tablodan bir tabloya veri aktarma
#1
ekte eklediğim örnekte kayıtlı olan verileri arşiv olarak diğer tabloya aktarmam lazım
tabloyu aktarırken tablomdaki "not" alanındaki değere göre aktarıp aktarılan veriler silinecek


tüm tablodaki kayıtları tek tek kontrol ederek

örneğin tablo1 1. sıradaki kayıt aktarılırken

tablo1_alt bölümündeki aciklama bölümüne ".../.../20... tarihinde arşive aktarıldı. Ankara Anadolu Lisesine nakil gitti" yazacak sonra diğer kayıta bakacak

bu şekilde aktarma işlemi yapmam gerekiyor. yardımcı olabilir misiniz?

aktarma yaparken aktarmak istiyormusunuz şeklinde onaylanması gerekiyor.. yardımcı olabilir misiniz.


Eklenti Dosyaları
.rar   aktarma.rar (Boyut: 26,35 KB / İndirilme: 74)



  Alıntı
Bu mesajı beğenenler:
#2

.rar   aktarma.rar (Boyut: 22,82 KB / İndirilme: 130) Inceleyiniz.



  Alıntı
Bu mesajı beğenenler:
#3
sayın sezgin.

burda benim istediğim. tablo 1 deki kayıtları tek tek aktarmak değil. arşive aktar dediğimde tüm kayıtları tarayacak. notlar kısmında Mezun, Tasdikname ve Nakil olarak yazanları alt tabloya otomatik olarak aktaracak. notlar bölümünde herhangi bir şey yazmayana müdahale etmeyecek
aktarma işlemi yaparken tablo 1 de bulunan herhangi bir açıklamayı silmeden alacak. ".../.../.... tarihinde arşive aktarıldı." + "Tablo1 de aciklama alanındaki yazan metin " şeklinde tablo1_alt bölümünün aciklama kısmına yazacak.

çünkü açıklama bölümlerinde farklı farklı bilgi notları olabilir. bu notları da silmeden buraya aktarması gerekiyor.



  Alıntı
Bu mesajı beğenenler:
#4
Ekleme sorusu ile yapabilirsiniz. Buton tiklama olay yordaminda ki Insert Into... bolumunde ki Where ile baslayan kismi sonuna kadar silip, sorgu bolumunde SQL'i olusturabilirsiniz.

Visual Basic
  1. Private Sub Komut20_Click()
  2. Dim Cvp
  3. Cvp = MsgBox("Kayitlar aktarilacak", vbCritical + vbYesNo, "AKTARMA")
  4. If vbYes Then
  5. CurrentDb.Execute "INSERT INTO Tablo1_alt ( Adı, Soyadı, Numarası, Sınıfı, Bölümü, [Kayit Ekleme Tarihi], [not], aciklama ) " & _
  6. "SELECT Tablo1.Adı, Tablo1.Soyadı, Tablo1.Numarası, Tablo1.Sınıfı, Tablo1.Bölümü, Tablo1.[Kayit Ekleme Tarihi], Tablo1.[not], Date() & ' tarihinde arþive aktarıdı. Ankara Anadolu Lisesine nakil gitti' " & vbNewLine & " & Tablo1.[aciklama] AS E1 " & _
  7.   "FROM Tablo1"
  8. Me.Liste.Requery
  9. CurrentDb.Execute "Delete Tablo1.* From Tablo1"
  10. Me.Requery
  11. End If
  12. End Sub





  Alıntı
Bu mesajı beğenenler:
#5
Merhaba Hocam, Burda Aktarma işlemi yaparken  Buton ile işlevsel olmuş. (2. mesajda olan durum.) Burda Buton yerine Combobox kullanabilir miyiz?
Mesela Comboboxda "Devam ediyor, Bekliyor, Tamamlandı"  Gibi seçenekler olur. Burdan "Tamamladı" Seçilince, otomatik Olarak Aktarım Olabilir mi?
Afterupdate olarak denedim Ama tam olarak istediğim gibi olmadı.
Yardımcı olabilirseniz sevirinim.



  Alıntı
Bu mesajı beğenenler:
#6
(15-03-2022, 12:14)Fenerli88 demiş ki: Merhaba Hocam, Burda Aktarma işlemi yaparken  Buton ile işlevsel olmuş. (2. mesajda olan durum.) Burda Buton yerine Combobox kullanabilir miyiz?
Mesela Comboboxda "Devam ediyor, Bekliyor, Tamamlandı"  Gibi seçenekler olur. Burdan "Tamamladı" Seçilince, otomatik Olarak Aktarım Olabilir mi?
Afterupdate olarak denedim Ama tam olarak istediğim gibi olmadı.
Yardımcı olabilirseniz sevirinim.

Visual Basic
  1. Private Sub AcilanKutu_afterupdate()
  2. Dim Cvp
  3. Cvp = MsgBox("Kayitlar aktarilacak", vbCritical + vbYesNo, "AKTARMA")
  4. If vbYes Then
  5. CurrentDb.Execute "INSERT INTO Tablo1_alt ( Adı, Soyadı, Numarası, Sınıfı, Bölümü, [Kayit Ekleme Tarihi], [not], aciklama ) " & _
  6. "SELECT Tablo1.Adı, Tablo1.Soyadı, Tablo1.Numarası, Tablo1.Sınıfı, Tablo1.Bölümü, Tablo1.[Kayit Ekleme Tarihi], Tablo1.[not], Date() & ' tarihinde arsive aktarıdı. Ankara Anadolu Lisesine nakil gitti' " & vbNewLine & Me.AcilanKutu,column(0) & " & Tablo1.[aciklama] AS E1 " & _
  7.   "FROM Tablo1"
  8. Me.Liste.Requery
  9. CurrentDb.Execute "Delete Tablo1.* From Tablo1"
  10. Me.Requery
  11. End If
  12. End Sub





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Hesaplanmış Alan Farklı Tablodan Sayma snapper 3 76 25-07-2022, 23:20
Son Mesaj: dsezgin
  Sorguda Iki Tarih Aralığına Göre Farklı Bir Tablodan Ortalama çekme adnnfrm 3 58 21-07-2022, 02:28
Son Mesaj: halily
  Tablodan Forma Veri Aktarımı Erbil36 4 122 08-07-2022, 22:45
Son Mesaj: onur_can
  Tablodan Listboxa Veri Kopyalama sdurg 3 104 11-03-2022, 21:15
Son Mesaj: dsezgin
  [FORM] Formda Tablodan Gruplayarak Toplama Işlemi Hk. aktepes 3 149 11-03-2022, 09:43
Son Mesaj: aktepes
  [FORM] Formda Tablodan Toplama Işlemi Hk. aktepes 2 117 04-03-2022, 10:11
Son Mesaj: aktepes
  Txt Olarak Açılabilen 4 Tablodan Veri Almak. karaayhan 10 256 26-12-2021, 13:30
Son Mesaj: dsezgin
  Liste Kutusundaki Veriyi Tabloya Aktarma alikagan 27 1.288 01-12-2021, 18:02
Son Mesaj: kamil_55

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi