Merhaba.

Accessi kaptma olayını engelleyen ek yüklüyorum.

Hayırlı olsun

(25/01/2020 14:25)feraz Adlı Kullanıcıdan Alıntı: Merhaba.

Accessi kaptma olayını engelleyen ek yüklüyorum.

Hayırlı olsun

Paylaşım için teşekkürler sayın @feraz

(25/01/2020 16:20)tekinuygun Adlı Kullanıcıdan Alıntı:

(25/01/2020 14:25)feraz Adlı Kullanıcıdan Alıntı: Merhaba.

Accessi kaptma olayını engelleyen ek yüklüyorum.

Hayırlı olsun

Paylaşım için teşekkürler sayın @feraz

Rica ederim sayın @tekinuygun

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ı.