STOK TAKİP PROGRAMI

[GAZOZ_55]

Merhaba arkadaşlar,
Bir stok takip programı yaptım. Aşağıdaki linkten dosyayı indirebilirsiniz.

https://www.dosyaupload.com/qQmP

 

[turist]

Elinize sağlık, paylaşımınız için sağ olun.

 

[GAZOZ_55]

Elinize sağlık, paylaşımınız için sağ olun.

Teşekkürler hocam.

 

[Alpay Black]

hocam program su hatayı verıyor neden verır goruntu ekte

 

[GAZOZ_55]

hocam program su hatayı verıyor neden verır goruntu ekte

Bilgisayarınız 64 bit olduğu için veriyor büyük ihtimalle. 64 bit bilgisayarlar için bu hatayı düzeltmeye çalışıyorum. Hatayı düzelttiğim zaman haber vereceğim.

 

[Alpay Black]

Bilgisayarınız 64 bit olduğu için veriyor büyük ihtimalle. 64 bit bilgisayarlar için bu hatayı düzeltmeye çalışıyorum. Hatayı düzelttiğim zaman haber vereceğim.

Cok sevınırım hocam sımdıden tesekkurler

 

[GAZOZ_55]

Cok sevınırım hocam sımdıden tesekkurler

Teşekkürler.

 

[yanginci34]

Bilgisayarınız 64 bit olduğu için veriyor büyük ihtimalle. 64 bit bilgisayarlar için bu hatayı düzeltmeye çalışıyorum. Hatayı düzelttiğim zaman haber vereceğim.

Merhaba sizin programınızın bir ana formu vardır muhtemelen bu formun kodları aşağıdaki gibi başlar kırmızı ile eklediğim kodu her satıra ve aynı yerlere eklerseniz 64 bit pc lerde de çalışacaktır.
Private Declare PtrSafe Function

 

[GAZOZ_55]

Merhaba arkadaşlar,
64 bit bilgisayarlarda hata verme problemi çözülmüştür. Bu problemin çözümünde bana yardımcı olan turist beye ve bana bu sorun ile ilgili mesaj atan asri adlı kullanıcıya teşekkür ederim.

Dosyayı aşağıdaki linkten indirebilirsiniz.
https://www.dosyaupload.com/eh5l

 

[halilyor]

#If Win64 Then
Private Declare PtrSafe Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare PtrSafe Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#Else
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#End If

 

[GAZOZ_55]

#If Win64 Then
Private Declare PtrSafe Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare PtrSafe Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#Else
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
#End If

Teşekkürler.

 

[halilyor]

Sub başlat()
Application.Visible = False
UserForm5.Show

End Sub

 

[GAZOZ_55]

Sub başlat()
Application.Visible = False
UserForm5.Show

End Sub

Bu nedir hocam?

 

[Orion1]

Exceli gizler.

 

[GAZOZ_55]

Exceli gizler.

Onu biliyorum hocam da, program zaten Excel'i gizliyor. Neden yazdı, onu kastetmiştim.

 

[nesib12]

hocam vba kodunu vere bilirmisin kendi yapdigim proqram icin bazi kodlarin calismasini eklemek istiyorum

 

[erdoganaydin]

şifreli olması neden?

 

[emre.basar]

hata veriyor açmıyor hocam neden acaba?