+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Polis Tahkikat (İfade Alma) Programı (/konu-polis-tahkikat-ifade-alma-programi.html)
Polis Tahkikat (İfade Alma) Programı - dılbermurat - 15/03/2015
POLİSLERİN KULLANABİLECEĞİ 2 VERSİYON HALİNDE
KULLANICI ADI : TAHKİKAT
ŞİFRE : 2015
TAHKİKATI TAMAMLAMAK İÇİN ŞAHSIN SADECE İFADESİNİ ALMAK YETERLİ, DİĞER FORMLAR VS. OTOMATİK OLARAK
HAZIRLANIYOR. KOLAY GELSİN
Uygulamanın güncel hali 8. mesajdadır.
Cvp: POLİS TAHKİKAT (İFADE ALMA) PROGRAMI - simendifer - 15/03/2015
paylaşım ve emeğine teşekkürler
Cvp: POLİS TAHKİKAT (İFADE ALMA) PROGRAMI - yorum70 - 15/03/2015
Teşekkürler,emeğinize sağlık.
Cvp: POLİS TAHKİKAT (İFADE ALMA) PROGRAMI - cool07 - 01/07/2015
(15/03/2015, 17:17)dılbermurat yazdı: POLİSLERİN KULLANABİLECEĞİ 2 VERSİYON HALİNDE
KULLANICI ADI : TAHKİKAT
ŞİFRE : 2015
TAHKİKATI TAMAMLAMAK İÇİN ŞAHSIN SADECE İFADESİNİ ALMAK YETERLİ, DİĞER FORMLAR VS. OTOMATİK OLARAK
HAZIRLANIYOR. KOLAY GELSİN
Abi 64 bit sürümü yokmu
Cvp: POLİS TAHKİKAT (İFADE ALMA) PROGRAMI - simendifer - 01/07/2015
[quote pid='123877' dateline='1426429063']
VBA Kodu
#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else '32 bit için
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If
Yukarıdaki deklarasyon örneğinde gördüğünüz gibi 64 bit için PtrSafe ilavesi yapmamız gerekiyor..
64 Bitte çalıştıramadım yardım edebilirmisiniz?
Office=64 bit ise, Vba editorunu tasarim olarak acin ve asagidaki satir ile benzer olan satirlara koyu olarak yazilan kelimeyi ilave ediniz.
Private Declare PtrSafe Function......
64 bit sorununuz için gizleme modülü içindeki fonksiyonu bu şekilde değiştiriniz..:
VBA Kodu
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#Else '32 bit için
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
If nCmdShow = SW_HIDE Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function
[/quote]
Uygulamalarımız içerisinde kullandığımız bazı modüller deklarasyon içerir.. Bunlar 32 bit Access sürümlerinde hatasız çalışırken 64 bit sürümlerde kullanmak istediğimizde hata verir.. Bu sorunu aşmak için deklarasyonlara küçük bir ilave tanım yapmamız gerekmektedir..
Cvp: POLİS TAHKİKAT (İFADE ALMA) PROGRAMI - firatm - 12/07/2015
VB şifreli vb şifresi nedir usta