Hazırlamış olduğum bu kırtasiye takip programı barkodlu bir stok takip programıdır.
sadece kırtasiye için değil, farklı satış işlemleri için de kullanılabilir,
Ben AccessTr sitesinden faydalandım, takıldığım yerlerde yardımcı olan arkadaşlar oldu,
Hazırladığım bu programın da birilerinin işini görmesi dilerim.
iyi günler,
Program içeriği
---------------------------
Müşteri-Tedarikçi tanımlama
müştriye-tedarikçiye olan borcun girişi, ödeme yapıldığında yapılan ödemenin kaydı, borç alacak izleme ekranı
-----------------------------
stok kartı açma,
ürün alışlarında fatura girişi
------------------------------
ürün satış işlemleri
-----------------------------
malzeme takip ekranı
------------------------------
günlük satış izleme ekranı
-----------------------------
+yedek alma
----------------------------
barkodlu çalışma için
3 of 9 barkodenin yüklenmesi gerekmektedir.
Arkadaşlar, belirlenen süre sonunda işlem yapılmayan formun kapanması, eğer şifre formu ile giriş yapıyorsak bu form yardımıyla tekrar giriş yapılmasının istenmesi için gerekli kodlar aşağıdadır. Faydalı olması dileğiyle.
Formun Süre Ölçer değerini 1000 yapıyorsunuz. Zaman Dolduğunda kısmına aşağıdaki kodu ekliyorsunuz.
Formun Süre Ölçer değerini 1000 yapıyorsunuz. Zaman Dolduğunda kısmına aşağıdaki kodu ekliyorsunuz.
Const Sure = 1 ' Kaç dakikada kapanmasını istiyorsanız buraya yazınız.
Static GcrlKntrlAdi As String
Static GcrlFrm As String
Static BitZmn
Dim AktvFrmAdi As String
Dim AktvKntrlAdi As String
Dim BitSure
On Error Resume Next
AktvFrmAdi = Screen.ActiveForm.Name
If Err Then
AktvFrmAdi = "Aktif form Yok!"
Err = 0
End If
AktvKntrlAdi = Screen.ActiveControl.Name
If Err Then
AktvKntrlAdi = "Aktif Nesne Yok!"
Err = 0
End If
If (GcrlKntrlAdi = "") Or (GcrlFrm = "") Or (AktvFrmAdi <> GcrlFrm) Or (AktvKntrlAdi <> GcrlKntrlAdi) Then
GcrlKntrlAdi = AktvKntrlAdi
GcrlFrm = AktvFrmAdi
BitZmn = 0
Else
BitZmn = BitZmn + Me.TimerInterval
End If
BitSure = (BitZmn / 1000) / 60
If BitSure >= Sure Then
BitZmn = 0
MsgBox Sure & " Dakikadır İşlem Yapmadığınız İçin Form Kapatılacaktır!" & " Tekrar Giriş Yapmanız Gerekmektedir.", vbCritical
DoCmd.Close
DoCmd.OpenForm "Açılacak şifre formunun adı." 'Şifre formuyla giriş yapılmıyorsa bu kısım dahil edilmeyecek.
End If
Slm Arkadaşlar;
Okullarda personelin fazla yatan ek ders ile ilgili ufak bir program hazırladım işinize yarar umarım.
Okullarda personelin fazla yatan ek ders ile ilgili ufak bir program hazırladım işinize yarar umarım.
Arkadaşlar, bir yakınımın Özel Öğretim Matematik Kursunda kullanması için basit bir program yapıyordum. Ortakları istemeyince üzerinde çalışmayı bıraktım. Program %80 oranında bitti ana konuları tamamladım. Sadece raporlama kaldı. Bilgim dahilinde farklı sorunları farklı yöntemlerle çözmeye çalıştım belki kulağımı tersten tuttum bilemiyorum ama bu sayede çok şey öğrendim. Program başka amaçlarla kullanılabilir. Sizlere faydası olacağını düşünüyorum. Herkese kolay gelsin.
Yönetici paneli şifresi sistem saatinin dakika ve saati. Saat 22:01 ise Şifre 0122. (Yönetici Paneli Şifre kodları alıntıdır)
Shift tuşu ve Sağ tık menüsü engelleme kodlarını eklememiştim bilginize.
Yönetici paneli şifresi sistem saatinin dakika ve saati. Saat 22:01 ise Şifre 0122. (Yönetici Paneli Şifre kodları alıntıdır)
Shift tuşu ve Sağ tık menüsü engelleme kodlarını eklememiştim bilginize.
Hoşgeldin, Ziyaretçi
Forum İstatistikleri
Kimler Çevrimiçi
Şu anda 68 aktif kullanıcı var.
AdsenseBot, AhrefsBot, Applebot, Bing Bot, Facebook Spider, Google Bot, PetalBot, SemrushBot, Trendiction
(0 Üye - 59 Ziyaretçi)
Son Yazılanlar
Mutfak Takip
Yorum
3
•
Okunma
130
Access Html Gantt Chart
Yorum
2
•
Okunma
177
Site Ve Apartman Yönetim ...
Yorum
23
•
Okunma
8.237