Sorgu mu ? kullanmıyorum !
Tarih
14/02/2011 17:09
Konu Sahibi
okileturc
Yorumlar
16
Okunma
3953
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.601
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,14:02
Sponsor Reklam
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
26/05/2017,18:55
(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
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
13/04/2017,00:47
Sponsor Reklam
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
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Sponsor Reklam
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 20.180 03/05/2017, 17:38 blue_wall
  Gelişmiş Sorgu Örnekleri ozanakkaya 23 19.286 31/03/2015, 01:27 ozanakkaya
  sorgu eksik metin aliyorga 2 1.200 30/08/2014, 13:29 atoz112
  Tablo,Sorgu,Form,Modülleri Gizleyip Gösterme emturker 9 4.578 02/05/2012, 15:40 ORHAN ALKAN
  Liste Kutusundan Seçerek Form, Sorgu, Rapor Açtırmak tdsharun 10 5.207 14/12/2011, 19:26 fascioğlu


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status