Shift Tuşunu Engelleme ve Engeli Kaldırma

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
28/03/2018, 18:16

cevahir1

(28/03/2018, 17:37)ozanakkaya yazdı:
(28/03/2018, 17:35)cevahir1 yazdı: m bilgisayarım windows 10 ve 64 bit bu dosya çalışmıyor. Ne yapmam lazım...

https://accesstr.net/googlearama.php?cx=...8&q=64+bit



(26/11/2013, 11:18)mehmetdemiral yazdı: Modüllerdeki api declaration satırlarında PTRSAFE deyimini kullanmalısınız. Hem 32 hem de 64 bit'te çalışması için mesela aşağıdaki biçimde olan kodları

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

şu şekilde değiştirin:

#If VBA7 Then
    Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
     Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
Böylece 32 bit için de 64 bit içinm de sorun ortadan kalkar. 

Bunu eklemeniz gerektiğini nereden mi anlayacaksınız?
Modüllerde "private declare" ile başlayan kodlarda api kullanıldığı için 64 bit için sorun çıkar. Çünkü iki işletim sisteminde kullanılan api mantığı farklıdır. 32 bitlik işletim sisteminde kullanılan kodları yukarda verdiğim biçime dönüştürdüğünüzde her iki sistemde de sorunsuz çalışacaktır. 

Bir uyarı: Eğer modülde Declare Function biçimi başında "private" olmadan kullanıldıysa o zaman da yine ptrsafe deyimini declare komutundan hemen sonra kullanmalısınız. Bir örnek vereyim:

kodumuz şöyle olsun

Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Bu durumda ptrsafe nereye gelecek? Private declare'de hemen declare'den sonra kullanmıştık. Burada da aynı şekilde 

#If VBA7 Then
    Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
#Else
    Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
#End If

Sonuçta her iki kullanımda da unutmamamanız gereken şey ptrsafe'yi declare sözcüğünden sonra kullanmak.

teşekkürler Ozan bey...
09/06/2018, 22:53

cevahir1

(03/11/2008, 20:35)ozanakkaya yazdı: Yaptığınız uygulamanın shift tuşu basılarak açılmasını engelleyen veya shift tuşu engeli olan uygulamalardaki engeli kaldıran uygulama.

Merhaba Ozan bey,

uygulamanızı indirdim fakat dosya seçme istediğimde kesinlikle dosya bulma ekranı gelmiyor. form açıldığı gibi kalıyor. ne yapabilirim. ekran göüntsünü ekledim. (64 bit kullanıyorum. ptrsafe ile 32 den 64 'e dönüşüm yaptım.) yardımlarınız için teşekkürler...



10/06/2018, 12:05

cevahir1

(09/06/2018, 22:53)cevahir1 yazdı:
(03/11/2008, 20:35)ozanakkaya yazdı: Yaptığınız uygulamanın shift tuşu basılarak açılmasını engelleyen veya shift tuşu engeli olan uygulamalardaki engeli kaldıran uygulama.

Merhaba Ozan bey,

uygulamanızı indirdim fakat dosya seçme istediğimde kesinlikle dosya bulma ekranı gelmiyor. form açıldığı gibi kalıyor. ne yapabilirim. ekran göüntsünü ekledim. (64 bit kullanıyorum. ptrsafe ile 32 den 64 'e dönüşüm yaptım.) yardımlarınız için teşekkürler...



Ptrsafe ile ilgili değişikliği yapmama rağmen çalışmıyor...
10/06/2018, 13:51

ozanakkaya

Merhaba,

Gözat Penceresi Butonu Çalışmıyor. Bağlantısındaki konuyu inceleyiniz.
29/07/2018, 20:31

Doğuş ŞEKERCİ

Merhaba, ekte paylaştığım  apartman aidat takip uygulamasında üst kısımdaki a16 blok yazısını nereden değişebilirim Access konusunda bilgi sahibi değilim malesef. A7 Blok Yönetimi yazmak istiyorum. Birde excelden üyeleri aktarabilir miyim ?
29/07/2018, 20:34

ozanakkaya

(29/07/2018, 20:31)Doğuş ŞEKERCİ yazdı: Merhaba, ekte paylaştığım  apartman aidat takip uygulamasında üst kısımdaki a16 blok yazısını nereden değişebilirim Access konusunda bilgi sahibi değilim malesef. A7 Blok Yönetimi yazmak istiyorum. Birde excelden üyeleri aktarabilir miyim ?

Access soruları ve cevapları bölümüne Site Kurallarına uygun olarak yeni konu açınız.  Burası örnek uygulamalar bölümü.
En kısa sürede Access konusunda bilgi sahibi olmanız dileğiyle.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15