Merhaba..
Bu uygulama, başlıkta belirttiğim temel amacı dışında, sürekli kullandığımız liste, açılan kutu, düğme vs. gibi form elemanlarına uyguladığım, alışılmışın dışındaki biçim tasarımları sayesinde çalışmalarınıza farklılık katacaktır..
Teknik özelliklerine gelirsek..:
- Tek form üzerinden veritabanınızdaki tüm tablo ve sorgulardaki* verileri listeleyebilirsiniz..
- Listelenen veri kaynağını, alan seçmeden(tüm alanlardaki verileri tek kriterle) dinamik bir şekilde filtreleyebilirsiniz..
- Filtrelemeyi sadece seçtiğiniz bir alanda uygulayabilirsiniz..
- Listedeki verileri farklı dosya biçiminde açabilirsiniz..:
Uygulamalarınızda kullanabilmek için formu ve modülü almak yeterli..
Araç, 2007 sürümü ile hazırlanmıştır..
Bol Accessli günler dilerim.. ;)
Sn Taruz emek ve paylaşım için teşekkürler....
Saygılar....
Sayın Taruz,
Günaydınlar ve hayırlı pazarlar üstadım.
Emek ve paylaşımınız için teşekkürler.
Sevgi ve saygılar.
Daha önce başka bir siteden indirmiş ve kullanmıştım.(Sn.Taruz)
Gerçekten mükemmel bir çalışma.Yalnız, WİN7 64 Bitte hata vermişti.
32 bite göre yazılmış.
Tşk.
İlginize teşekkürler dostlar.. ;)
(19/01/2014, 11:22)yorum70 yazdı: [ -> ]Daha önce başka bir siteden indirmiş ve kullanmıştım.(Sn.Taruz)
Gerçekten mükemmel bir çalışma.Yalnız, WİN7 64 Bitte hata vermişti.
32 bite göre yazılmış.
Tşk.
Uygulama içindeki modül içeriğini aşağıdaki ile değiştirirseniz 64 bit
Access ile de çalışacaktır..:
Kod:
Option Compare Database
Option Explicit
Public Const IDC_HAND = 32649&
#If VBA7 And Win64 Then '64 bit için
Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare PtrSafe Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
#Else '32 bit için
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
#End If
Function MauseEL(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function
Function PointM(strPathToCursor As String)
Dim lngRet As Long
lngRet = LoadCursorFromFile(strPathToCursor)
lngRet = SetCursor(lngRet)
End Function
Taruz hocam, emeğinize sağlık. Gerçekten çok güzel bir çalışma...
Bu arada bir sorum olacak: Tablodaki alan sayısı ne kadar ise listedeki alan o kadar az veya fazla olabiliyor (ters orantı şeklinde). Dolayısıyla alan sayısı fazla olduğunda bazı alanlar neredeyse hiç okunmuyor. Alanları genişletip daraltmak istersek nasıl bir yol izlememiz gerekir? Şimdiden çok teşekkür ederim...
![[Resim: trz-listele-ara-ver.jpg]](http://www.taruz.com/resimler/trz-listele-ara-ver.jpg)