Skip to main content

AccessTr.neT


Polis Tahkikat (İfade Alma) Programı

Polis Tahkikat (İfade Alma) Programı

#1
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.
Cevapla
#2
paylaşım ve emeğine teşekkürler
Cevapla
#3
Teşekkürler,emeğinize sağlık.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#4
(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
Cevapla
#5
[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..
Son Düzenleme: 01/07/2015, 18:24, Düzenleyen: simendifer.
Cevapla
#6
VB şifreli vb şifresi nedir usta
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da