Skip to main content

AccessTr.neT


Depo Stok Takibi

Depo Stok Takibi

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

tşk Img-grin
Cevapla
#14
(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.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
#15
çok teşekkürler
Cevapla
#16
İndirdim fakat hata alıyorum açılmıyor Access 2013 kullanıyorum
Cevapla
#17
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#18
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?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task