[SORGU] Veri çekme
#1
Arkadaşlar  Elimde 27 birimin verileri var afrinçayı ile başlıyor   yayladağı ile bitiyor  bu birimlerin verileri ayrı ayrı tablolarda yer alıyor.
1. 27 Birimi tek tabloda birleştirme yapılacak Birim adı tablo adı oluyor Afrinçayı-Yayladağı 27 Birim var
2. Birleştirilen  veri tablosundan    2 sorgu yapılacak  verisec tablosunda   ( seçilen birim ve BLM_NO ya ) göre   sonuç verileri oluşturulacak
3. Birimler  çıkarılıp başka birimler  eklenebilir   veri iiçinde eklenecek veya çıkarılma durumuna göre   kod yazılabilirse çok iyi olur.
Yardımlarınız için şimdiden teşekkür ederim


Eklenti Dosyaları
.rar   VERİ.rar (Boyut: 845,54 KB / İndirilme: 13)



  Alıntı
Bu mesajı beğenenler:
#2
Module1 oluşturun, aşağıdaki prosedürü module1 içine taşıyıp, çalıştırın.
[1 VERİBİRLEŞTİR] TABLOSUNA Birim adında metin alan ekleyın.
Visual Basic
  1. Sub Bilestir()
  2. CurrentDb.Execute "DELETE * FROM [1 VERİBİRLEŞTİR]"
  3. Dim Kayit As Recordset
  4. Set Kayit = CurrentDb.OpenRecordset("SELECT MSysObjects.Name As ADI FROM MSysObjects WHERE (((MSysObjects.Type)=1) AND ((MSysObjects.Flags)=0) AND ((Not IsNumeric(Mid([Name],1,1)))=-1))")
  5. If Kayit.RecordCount = 0 Then Exit Sub
  6. Do Until Kayit.EOF
  7. CurrentDb.Execute "INSERT INTO [1 VERİBİRLEŞTİR] ([OBJECTID], [PLAN_ID], [KESYIL], [PYIL], [BAK_BLK], [BLM_NO], [N], [ISL_SIN], [MESCERE], [MES_KOD], [MES_TIP], [LMESTIP], [TUR], [YAS], [BON], [EGIM], [BAKI], [ALAN], [TUR_AD], [ADET], [SERVET], [ARTIM], [SlvETA], [SlvADET], [FONK], [ANA], [YAN], [SIL_ISLM], [K_ETA], [BOL_SLV], [BOL_ETA], [BB], [BOL], [ISL_AL], [ISLEM], [DON_BLK], [DS], [DON_SUR], [Birim]) " & _
  8. "SELECT [OBJECTID], [PLAN_ID], [KESYIL], [PYIL], [BAK_BLK], [BLM_NO], [N], [ISL_SIN], [MESCERE], [MES_KOD], [MES_TIP], [LMESTIP], [TUR], [YAS], [BON], [EGIM], [BAKI], [ALAN], [TUR_AD], [ADET], [SERVET], [ARTIM], [SlvETA], [SlvADET], [FONK], [ANA], [YAN], [SIL_ISLM], [K_ETA], [BOL_SLV], [BOL_ETA], [BB], [BOL], [ISL_AL], [ISLEM], [DON_BLK], [DS], [DON_SUR], '" & Kayit!ADI & "' FROM [" & Kayit!ADI & "];"
  9. Kayit.MoveNext
  10. Loop
  11. Kayit.Close
  12. Set Kayit = Nothing



Soruları da ARASTIRMA yaparak, birleştirilmiş tablo üzerinden yapasınız.
Seflik verisi boşta kalmış gibi duruyor.

NOT : Tablo adları boşluk olmadan ve başlangıç karakteri harf ile olmalı, sonra ki işlemlerde sorun olabilir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Veri çekme toros333 3 83 13-09-2023, 00:56
Son Mesaj: halily
access-sql-18 Access'e Dosya Bul Butonu Ile EXcel'den Veri çekme snapper 2 180 06-12-2022, 11:51
Son Mesaj: snapper
access-sql-18 İKİ FARKLI TABLODAN BİLGİ ÇEKME VE ARİTMETİK İŞLEM timtur 11 6.287 26-10-2022, 15:28
Son Mesaj: ahmetsan
  Sorguda Iki Tarih Aralığına Göre Farklı Bir Tablodan Ortalama çekme adnnfrm 3 170 21-07-2022, 02:28
Son Mesaj: halily
  Web'ten Altin Fiyatlarını çekme sertac75 4 404 27-12-2020, 13:00
Son Mesaj: jon206
  [FORM] Web'ten Altin Fiyatlarını çekme sertac75 3 297 20-11-2020, 15:58
Son Mesaj: sertac75
  [TABLO] Excelden Buton Vasıtası Ile Veri çekme kuthan6868 7 1.186 08-09-2020, 23:43
Son Mesaj: halily
access-sql-4 [RAPOR] Belli Bir Formatda Rapor Cekme soguk27 4 449 22-04-2020, 15:44
Son Mesaj: soguk27

Foruma Git:


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