21/06/2016, 15:14
24/06/2016, 00:58
22/09/2016, 09:50
çok teşekkürler
31/03/2017, 09:04
İndirdim fakat hata alıyorum açılmıyor Access 2013 kullanıyorum
31/03/2017, 14:18
sayın mustafakucuknazli,
ifadenize yönelik olarak;
nasıl bir hata aldığınıza dair hatanın tam açıklamasını ya da olduğu esnadaki halini içeren ekran görüntüsünü konuya dahil ediniz.
bir ihtimal;
GİZLE adlı pencere gizleme modülünde yer alan ve 32 bit / 64 bit kullanımına yönelik olarak PtrSafe kullanımı ile birlikte DECLARE edilmesi gerekli olan fonksiyonun bu halinden kaynaklı olsa gerek.bunu 64 bit olarak da kullanabilmek için,
GIZLE adlı modülün kod kısmına geçiniz ve içeriğindeki kodları
yukarıdaki kodlar ile değiştirmek sureti ile kullanmayı deneyiniz.
bilginize...iyi çalışmalar,saygılar.
Alıntı:hata alıyorum açılmıyor
ifadenize yönelik olarak;
nasıl bir hata aldığınıza dair hatanın tam açıklamasını ya da olduğu esnadaki halini içeren ekran görüntüsünü konuya dahil ediniz.
bir ihtimal;
GİZLE adlı pencere gizleme modülünde yer alan ve 32 bit / 64 bit kullanımına yönelik olarak PtrSafe kullanımı ile birlikte DECLARE edilmesi gerekli olan fonksiyonun bu halinden kaynaklı olsa gerek.bunu 64 bit olarak da kullanabilmek için,
GIZLE adlı modülün kod kısmına geçiniz ve içeriğindeki kodları
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const cinar = 2
Global Const SW_SHOWMAXIMIZED = 3
#If VBA7 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Longptr, _
ByVal nCmdShow As Longptr) As Longptr
#Else
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
#End If
Function ismail(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
MsgBox "İsmail ÇINAR" _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = cinar And loForm.Modal = True Then
MsgBox "İsmail ÇINAR" _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "İsmail ÇINAR" _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
ismail = (loX <> 0)
End Function
yukarıdaki kodlar ile değiştirmek sureti ile kullanmayı deneyiniz.
bilginize...iyi çalışmalar,saygılar.
13/12/2017, 15:45
Merhaba arkadaşlar hepinize kolay gelsin. Bu programı indiriyor ve açıyorum ama nasıl kendime göre düzenleyeceğim tablolar,formlar vs. görünmüyor yardımcı olabilir misiniz?