Depo Stok Takibi

1 2 3 4 5
21/06/2016, 15:14

ciocio

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

tşk
24/06/2016, 00:58

iscinar

(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.
22/09/2016, 09:50

murat.orta

çok teşekkürler
31/03/2017, 09:04

mustafakucuknazli

İndirdim fakat hata alıyorum açılmıyor Access 2013 kullanıyorum
31/03/2017, 14:18

atoz112

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.
13/12/2017, 15:45

atthegates

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?
1 2 3 4 5