Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [SORGU] Veri çekme

[SORGU] Veri çekme
toros333
Yeni Üye 1-15

*
Kayıt Tarihi: 11.09.2023
Toplam 6 konu açtı.
Toplam 8 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007, Office 2010, Office 2013, Office 2016,
Beğeniler: 0 / 0
#1
16-09-2023, 22:13
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: 16)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 23 konu açtı.
Toplam 8.499 yorum yaptı.
Toplam 816 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 41 / 182
#2
17-09-2023, 17:33
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.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Veri çekme toros333 1 74 25-11-2023, 01:26
Son Mesaj: dsezgin
  [FORM] Web Brovser Dan Veri çekme serdem48 4 115 18-10-2023, 15:32
Son Mesaj: serdem48
  Veri çekme toros333 3 113 13-09-2023, 00:56
Son Mesaj: halily
access-sql-18 Access'e Dosya Bul Butonu Ile EXcel'den Veri çekme snapper 2 225 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.373 26-10-2022, 15:28
Son Mesaj: ahmetsan
  Sorguda Iki Tarih Aralığına Göre Farklı Bir Tablodan Ortalama çekme adnnfrm 3 209 21-07-2022, 02:28
Son Mesaj: halily
  Web'ten Altin Fiyatlarını çekme sertac75 4 431 27-12-2020, 13:00
Son Mesaj: jon206
  [FORM] Web'ten Altin Fiyatlarını çekme sertac75 3 313 20-11-2020, 15:58
Son Mesaj: sertac75

Foruma Git:


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