AccessTr.neT

Tam Versiyon: Depo Stok Takibi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
(03/02/2013, 00:43)simendifer yazdı: [ -> ]ben ekliyorum bir deneyiniz

tşk Img-grin
(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?
Sayfalar: 1 2 3 4 5