Merhaba.
Accessi kaptma olayını engelleyen ek yüklüyorum.
Hayırlı olsun
(25/01/2020, 14:25)feraz yazdı: [ -> ]Merhaba.
Accessi kaptma olayını engelleyen ek yüklüyorum.
Hayırlı olsun
Paylaşım için teşekkürler sayın @
feraz
teşekkürler 64 bit de else ile end if arası kırmızı harflere dönüşerek hata verdi neden olabiilir
#If VBA7 Then
Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare PtrSafe Function EnableMenuItem _
Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
#Else
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem _
Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
#End If
Rica ederim.
Ben 64bitte denememiştim 32bit olduğu için benim office.
64 bit için ptrsafe ekleniyor sadece ve if ile onu eklemiştim çalışır diye.
64 bit yükleyip denerim sonra.
64 bit yükledim ve kırmızıya boyandı ve hatasız çalıştı.