10-04-2015, 12:39
Sn fikretasil;
VBA editorunu acin ve kirmizi satirlari asagida ki gibi degistirip, kaydedin. Uygulamayi yeniden actiginizda uyari vermeden acilacaktir.
ACCESS_HIDE modulunde
#If VBA7 And Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
MODUL1 modulunde
#If VBA7 And Win64 Then
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If
VBA editorunu acin ve kirmizi satirlari asagida ki gibi degistirip, kaydedin. Uygulamayi yeniden actiginizda uyari vermeden acilacaktir.
ACCESS_HIDE modulunde
#If VBA7 And Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
MODUL1 modulunde
#If VBA7 And Win64 Then
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If