AccessTr.neT

Tam Versiyon: Accessin Kapatma Düğmesini Pasif Yapma(Kapatmayı Engelleme)
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhaba.

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

Hayırlı olsun Img-grin
(25/01/2020, 14:25)feraz yazdı: [ -> ]Merhaba.

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

Hayırlı olsun Img-grin

Paylaşım için teşekkürler sayın @feraz
(25/01/2020, 16:20)tekinuygun yazdı: [ -> ]
(25/01/2020, 14:25)feraz yazdı: [ -> ]Merhaba.

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

Hayırlı olsun Img-grin

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ı.
Sayfalar: 1 2