(03/02/2013, 00:43)simendifer yazdı: ben ekliyorum bir deneyiniz

tşk

(02/02/2013, 23:29)karaayhan yazdı: prgramları indiremiyorum lütfen yönetici yardımı?????????????? help

Bir aralar eklentilere erişimde sıkıntı vardı.
1. mesaja tekrar aynı örneği ekledim.
Umarım ilgilenen arkadaşların işine yarar.

çok teşekkürler

İndirdim fakat hata alıyorum açılmıyor Access 2013 kullanıyorum

sayın mustafakucuknazli,

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.

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?