(20/01/2016, 15:12)atoz112 yazdı: sayın kenan827, EK'te; bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz. son olarak; şu iki hususa dair tavsiyelerde bulunmak üzere belirtmekte fayda görmekteyim,naçizane. 1) lütfen,form üzerinde gerek formun kendisi için ve gerekse de denetimleri için olay yordamlarında KATIŞTIRILMIŞ MAKRO kullanımı yerine,kod yazmaya gayret ederek hem bu konuda tecrübe edinmeye istekli olunuz hem de ileride makro sorunlarına maruz kalma durumlarına engel olunuz. 2) modülleriniz içerisindeki ptrsafe kullanımlarına dair yazmış olduğunuz if...then yazımlarını tekrar gözden geçiriniz.else öncesi ve sonrası yazımlarında hem üstte hem de alt kısımda ptrsafe kullanmayıp sadece ya öncesinde ya da sonrasında kullanmaya gayret ediniz. ÖRNEK: MODULE11 adlı modülde olduğu gibi.bilginize...iyi çalışmalar,saygılar.Kod:#If VBA7 Then 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 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 #End If
Arkadaşlar çok teşekkürler ellerinize sağlık.
atoz112 Hocam bu pragramı pormdan indirdim. Sizlerin sayesinde tam istediğim hale geldi. Kodlardan hiç anlamiyorum. if...then, Else nerelerde kullanılır ne gibi işlem yapar hiç bilmiyorum. Değindiğiniz if...then sorun yaratacaksa size zahmet olmayacaksa anlattığın Else düzeltmelerini yaparsanız sevinirim. Hocam birde arkadaki Access sayfasını gizlerseniz çok iyi olacak. Saygılarımla iyi çalışmalar diliyorum.