+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şifreleme Ve Paylaşım (/konu-sifreleme-ve-paylasim--86674.html)
Sayfalar:
1
2
Cvp: Şifreleme Ve Paylaşım - ozanakkaya - 28/02/2020
Resimlerinizi, Cevap sayfasında bulunan Resim Ekle butonu ile ekleyiniz.
Modüldeki kodların tamamını aşağıdaki ile değiştirirseniz modül 64 bit uyumlu olacaktır.
Option Compare Database
#If VBA7 Then
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#Else
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function
Cvp: Şifreleme Ve Paylaşım - ferhat karagozlu - 02/03/2020
(28/02/2020, 17:30)ozanakkaya yazdı: Resimlerinizi, Cevap sayfasında bulunan Resim Ekle butonu ile ekleyiniz.merhaba hocam
Modüldeki kodların tamamını aşağıdaki ile değiştirirseniz modül 64 bit uyumlu olacaktır.
Option Compare Database
#If VBA7 Then
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#Else
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function
İlginize çok teşekkür ediyorum. Maalesef yine gönderdiğim resimdeki uyarıyı veriyor.
Cvp: Şifreleme Ve Paylaşım - ozanakkaya - 02/03/2020
5. mesaja eklediğim örnekte bu uyarıyı alıyor musunuz?
Cvp: Şifreleme Ve Paylaşım - ferhat karagozlu - 02/03/2020
(02/03/2020, 10:25)ozanakkaya yazdı: 5. mesaja eklediğim örnekte bu uyarıyı alıyor musunuz?EVET HOCAM. DEDİĞİNİZ ŞEKİLDE KODU YAPTIŞTIRDIM. YUKARIDAKİ (KAYDETTİĞİNİZDEN VEYA ADINI DOĞRU YAZDIĞINIZDAN EMİN OLUN) UYARISINI VERDİ.
Cvp: Şifreleme Ve Paylaşım - ozanakkaya - 02/03/2020
Ekli uygulama, 5.mesajdaki uygulamanın aynısı. Sadece 64 bit uyumlu olması için modüldeki kodlara ptrsafe eklendi.
Cvp: Şifreleme Ve Paylaşım - ferhat karagozlu - 03/03/2020
(02/03/2020, 15:00)ozanakkaya yazdı: Ekli uygulama, 5.mesajdaki uygulamanın aynısı. Sadece 64 bit uyumlu olması için modüldeki kodlara ptrsafe eklendi.HOCAM ÇOK TEŞEKKÜRLER, ELLERİNİZE, EMEĞİNİZE SAĞLIK, SİSTEM TAM İSTENİLEN GİBİ ÇALIŞIYOR.
