Dinamik Kayıt Arama, Listeleme ve Aktarma Aracı

(19/01/2014, 13:34)abahceci yazdı: 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...

Tabloları seçtiğiniz kutunun kod bölümüne listenin sütun genişliklerini belirleyebileceğiniz bir kod yazabilirsiniz..:
Liste.ColumnWidths = "2;3;2,5"

Elbette onlarca tablo ve sorgu barındıran bir veritabanında her alanın veri genişliğini öngörüp ayarlamak zor.. Sabit bir değer belirleyip sütun sayısına göre döngü ile bu değeri atamak en mantıklı yol gibi geldi bana.. Tablokutu adındaki açılan kutunun güncelleştirme sonrasında bulunan prosedürün altına ilave ederek test edebilirsiniz..:

Kod:

LSutGenislik = "2cm" 'ondalık değer için virgül kullanın.. 2,9cm gibi
For i = 0 To Liste.ColumnCount 'Sütun sayısı kadar döngü yapar..
aa = aa & "; " & LSutGenislik
Next
aa = Mid(aa, 2)
Liste.ColumnWidths = aa

(19/01/2014, 12:13)Taruz yazdı: İ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