Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
14/02/2011 17:09
Konu Sahibi
okileturc
Yorumlar
16
Okunma
4518
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Kayıtlı sorgu yığınından veya kod sayfalarına yazdığınız uzun
SQL cümlelerinden
kurtulmak ister misiniz ?
Ayni rapor veya form tasarımına 1’den fazla sorgu çağırmak gerektiğinde
“RecordSource” ile oynamıyor musunuz ?

O halde “SQL arşivinizi oluşturun” !

Bu konuda geçen sene bir üyemizin sorusuna cevaben küçük
bir çalışma yapmıştık. Ancak bunu bir metod olarak kullanmanın da
enteresan bir çözüm olduğunu düşünüyorum ( ben kullanıyorum )

Uygulamalarıma ilave bir tablo ekliyorum “tbl_sql – Sql cümleleri”
tablosu. SQLC_id, SQLC_keyword, ve SQLC alanlarından oluşuyor.
(bkz. ekteki mdb örneği )

En karmaşık sorgularınızı oluşturduktan sonra, Sql görünümüne
geçerek oluşturulan kodu kopyala/ yapıştır ile tabloma kayıt ediyorum,
ve bir anahtar kelime ekliyorum ( SQLC_keyword )

resim
resim
resim

Daha sonra gerektiğinde “anahtar kelime “ ile çağırıyorum

Örnek 1 ( Form üzerindeki yeni kart ekleme butonu için )

Visual Basic Code
Dim StrSQL As String
StrSQL = DLookup("[SQLC]", "tbl_sql", "[SQLC_keyword]='kartekle'")
DoCmd.RunSQL StrSQL

Örnek 2 ( Raporun açılışına )

Visual Basic Code
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = DLookup("[SQLC]", "tbl_sql", "[SQLC_keyword]='hareketgorenler'")
End Sub


Burada önemli olan bir başka konu gerçekten sorguya ihtiyaç
duyulduğunda ne yapılabileceğidir


İstediğimiz Sql cümlesinden yeni bir sorgu yaratabilriz :
Bu sorguya “maymuncuk” adı verelim, gerektiğinde kullanalım

Visual Basic Code
1
2
3
4
5
6
7
8
9
     Dim db As DAO.Database
     Dim MyQry As DAO.QueryDef
     Set db = CurrentDb
     On Error Resume Next
     ' maymuncuk sorgusu her yeni işlemde önce silinecektir
     db.QueryDefs.Delete "maymuncuk"
     'sorguya SQL cümlemizi atıyoruz
     Set MyQry = db.CreateQueryDef("maymuncuk", DLookup("[SQLC]", "tbl_sql", "[SQLC_keyword]= 'hareketgorenler'"))
     db.Close


Artık bu somut sorgu üzerinden kayıt tarama işlemleri yapabilir
RecordSet olarak kullanabilriz.

Örnek ( maymuncuk sorgusundan kayıt sayısı alalım )

Visual Basic Code
Me.ALANADI = DCount (“[kart_ID]”, “maymuncuk”)



Kolay gelsin




















Ek Dosyalar
.rar   sql_arsiv.rar (Dosya Boyutu: 14,67 KB / İndirme Sayısı: 107)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.871
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,03:22
Teşekkürler Oktay hocam, çok akıllıca.


Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
17/10/2017,22:38
(14/02/2011, 17:30)sledgeab Adlı Kullanıcıdan Alıntı: Teşekkürler Oktay hocam, çok akıllıca.


alkisalkisalkis
Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Yandemir

Only Office 2003
Kullanici Avatari
Altın Üye
M.... Y....
1.435
26/08/2009
482
Tekirdağ
Ofis 2003
16/10/2017,18:10
güzel çalışma teşekkürler. keşke örnekte linked table kullanmasaydın.


Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

okileturc

Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Hocam, atlamışım Img-cray
ektedir, 1. mesaj da güncellenmiştir


Ek Dosyalar
.rar   sql_arsiv.rar (Dosya Boyutu: 14,67 KB / İndirme Sayısı: 39)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Puletin


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Paylaşım ve fikir için teşkürler


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Form Üzerinden Sorgu Parametre Değeri ozanakkaya 34 21.745 03/05/2017, 17:38 blue_wall
  Gelişmiş Sorgu Örnekleri ozanakkaya 23 20.428 31/03/2015, 01:27 ozanakkaya
  sorgu eksik metin aliyorga 2 1.355 30/08/2014, 13:29 atoz112
  Tablo,Sorgu,Form,Modülleri Gizleyip Gösterme emturker 9 4.880 02/05/2012, 15:40 ORHAN ALKAN
  Liste Kutusundan Seçerek Form, Sorgu, Rapor Açtırmak tdsharun 10 5.711 14/12/2011, 19:26 fascioğlu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.