LOKANTA SATIŞ TAKİP PROĞRAMI

[kemal turan]

MERHABA
Forum üstadlarımızdan öğrendiklerimle yapmış olduğum geliştirilebilir lokanta satış takip proğramı ek tedir.

 

[kemal turan]

Forum ortamında giriş userformu hata verdiğinden sifre userformu iptal edilmiştir.
Kullanıcı adı : SARAY
Şifre : 1234

 

[Korhan Ayhan]

Merhaba,

Elinize sağlık. Paylaşımınız için teşekkürler.

Gözüme çarpanlar;

Porsiyon kutucuklarını biraz daha genişletebilirsiniz.
Veriyi sayfaya aktaran kodunuzu daha dinamik (kısa) hale getirebilirsiniz.
"D:\" klasörüne yedek alınırken bende "D" diski olmadığı için hata verdi. Bu durumu geliştirebilirsiniz.

 

[kemal turan]

Korhan hocam merhaba
Kaydetme olayında textbox Controls dolu ise mantığı ile döngü ile yaptım fakat ürün isimlerini de döngü içerisinde kaydetmeyİ halledemedim.
Kısa bir örnekle yardımcı olabilirseniz sevinirim.

 

[cems]

Hesaplama sonuçlarını gösteren textboxların tamamı , çarpanların yazıldığı textboxlar formatlandığı halde kendileri formatlanmadığı için type mismatch hatası veriyor. Sonuç textboxlarının da formatlanması gerek.

Diğer konu ise userformun programın yaratıldığı ekrana uyar şekilde dizayn edilmesi yüzünden dikdörtgen flat yüzeyli ekranlarda üst ve alt kısımlar erişim kaydırma yapmadan mümkün değil . Userformu tam ekran kodları ile ekrana uyar hale getirmek kullanım zorluğunu engeller.

 

[kemal turan]

Hesaplama sonuçlarını gösteren textboxların tamamı , çarpanların yazıldığı textboxlar formatlandığı halde kendileri formatlanmadığı için type mismatch hatası veriyor. Sonuç textboxlarının da formatlanması gerek.

Diğer konu ise userformun programın yaratıldığı ekrana uyar şekilde dizayn edilmesi yüzünden dikdörtgen flat yüzeyli ekranlarda üst ve alt kısımlar erişim kaydırma yapmadan mümkün değil . Userformu tam ekran kodları ile ekrana uyar hale getirmek kullanım zorluğunu engeller.

Sn. Cems merhaba,
Foruma yüklediğim dosyada bir hata vardı, sonradan tespit ettiğim.
iptal et butonuna bastıldığında tekrar seçim halinde spinbutton adet değerini yanlış atıyordu. onu hallettim. dosyayı güncelledim.
type mismatch hatası ben alamıyorum. Hangi userformda aldınız acaba.
Diğer husus ise ben laptopta tasarlama yapıyorum. Farklı ekranlarda nesnelerin ölçekli olarak görünmesi için ne yapmak lazım bilmiyorum.
userform için
Me.Height = Application.Height
Me.Width = Application.Width
kodlarını kullanmayı biliyorum. bu konuda bilgi verebilirseniz veya kaynak gösterebilirseniz sevinirim.
Bilgisayarla 45 yaşında tanıştım. İlk foruma üye olup kodlara baktığımda size çince nasıl görünüyorsa bana da kodlar öyle görünüyordu.
Sağ olsun ustadların sabırlı yardımları geldiğim seviyede ile bir dostumun ihtiyacını görmeye çalıştım.
Selametle kalınız.

 

[cems]

Yanlış hatırlamıyorsam Sayın @Haluk 'a ait kodlar

Userform_initialize()

Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
'MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next

End sub

Notunuzu çok geç gördüm, sabah zamanıma göre dosyanızda
aklım erdiğince düzeltmeler yaparım, şu an dosyanızda hatırladıklarımla yazıyorum.

Bu kod ile ekran ya da çözünürlük farkı kalmıyor. Userformda en alta initialize içine bırakın
Ekran boyutu ile ilgili kod varsa silin.

Type_mismatch hatası resimli tuşların hepsinde , sonucu gösteren textboxlarda sayı formatı olmadığından
ve içindeki sonucu rakam değil yazı olarak gördüğü ama çarpanlara ait textboxlar sayı formatına alındığından
değişken veri tipi karışıklığı yaratıyor.

Bunda ya Dim değişkenleri tanımlanmadığından ya da kodların başında ( emin değilim ) "on error resume next " varsa
sizde sorun yerini atlıyor olabilir ama başka bilgisayarda tür çakışması ortaya çıkıyor olabilir.

Alttaki örnek dosyayı ve kodların yerleşme şeklini inceleyiniz. Aklınızda olsun, normal bir excel ekran boyutunda ise form da aynı boyutta ekranı kaplar . Ya da exceli kenarlarından biraz küçültürseniz userform o son excel kitap boyutuna eşit açılır. Ancak bu ayarı başka bilgisayardaki excele taşımaz, direk tamekran açar veya bilmeyerek kitap boyutu son dosyada küçültüldü ise ona uyar.

 

[kemal turan]

Teşekkür ederim.

 

[Haluk]

Yanlış hatırlamıyorsam Sayın @Haluk 'a ait kodlar
....
..

Cem Bey, doğru hatırlamışsınız, teşekkürler....

.

 

[cems]

@Haluk hocam ; hakkı sahibine teslim de bir ibadet şeklidir çalışmalarımda sizin de emek izleriniz çok var , ben teşekkür ederim ...

 

[cems]

Sayın Kemal Turan ,

Affınıza sığınarak programınızda bir takım değişiklikler yaptım. Bunları yaparken sizin orijinal kodlarınızda bir değişiklik ya da araç numaralarını sorun çıkarmaması için değiştirmedim.
Yaptıklarım :
1-Yeni bir userform açtım ( userform2 ) ve buna otomatik açılış kodu ekledim. Dosya açıldığında kendiliğinden doğru sayfa gelir.
2- Userform Sn @Haluk ' un kodları ile ekran farksız kullanılacak şekilde tam ekran yapıldı, araçlar dizayn edildi.
3- Userform üzerine multipage yerleştirdim. Aslında bütün konuyu multipage üzerine almayı düşünsem de günler aacağı ve şimdilik geliştirme olduğu için bunun yerine sola tuşlar ekleyerek sizin diğer orijinal sayfalarınızı üste getirdim.

Zamansızlıktan yapamadıklarım :
4- Yemek sayfasında bütün hesap sonucu veren textboxlar , çarpanları yapıllmış olduğu halde kendileri formatsız. Bu yüzden Typ_mismatch hatası veriyor. Bu kod satırlarına ikide bir durdurmaması için ( ' ) işareti koyarak işlev dışı bıraktım. Bu textboxların hem Dim değişken tanımlaması yapılmalı hem de formatlanmalı, aksi durumda yazı formatı gördüğünden takılıyor.
5-Kaydet ve yedekle tuşunun kodlarını da ( ' ) ile , her kapanışta klasör aramaması için kapattım.
6- Kodları adamakıllı ve bütün formlarda incelemeye zamanım olmadı ve " on error resume next " var mı emin değilim.

Bu şekilde dizayn sizce ve sizin ekranınızca daha göze hitap eder ve kullanılır bulunursa , yine vaktim oranında dosyanızı ilerletmeye çalışırım .

Ancak Dim ve format konularını ustalarımız naciz ricalarımız üzere bir gözetler ve düzenlerse ya da burada doğru dim ve formatı belirtirse harika olur , zira dene yanıl da zaman alıcı olabilir

 

[kemal turan]

MERHABA SN.CEMS,
Tasarımınız çok daha profeyonel olmuş
Emeğiniz için çok teşekkür ederim.
hesaplamalar ile ilgili hata veriyor onları halledip son hali ile foruma yüklerim.
Selametle kalınız.

 

[emre67z]

Kolay gelsin arkadaşlar,Bende başka bir formda gezerken masa masa kayıt tutabilen bir tasarım görmüştüm. Geliştirilmesinde faydalı olabilir belki. Gün sonunu kayıt altına alabilmesi hoşuma gitmişti.

 

[cems]

Sayın emre67z ,
Bilgi bilgidir, öneriniz için çok teşekkürler, inceleyelim Her dosyada bir fikir , her fikirde bir emek vardır.

 

[cems]

Sayın emre67z ,

Deneyebildiğim kadarı ile 20 masalık bir kafenin sipariş ve tahsilatını takip edebilecek kadar güzel bir çalışma önerdiğiniz program ve basit anlamda, userform kullanmadan da gayet iyi bir takip yapmaya olanak verebilir. Hazırlayıcı bilgisi göremedim, ancak işlevi yüksek güzel bir çalışma olduğu açık. Dosya belki burayı okuyan bazı üyelerin ihtiyacını görebillir diye açıkça yazmayı uygun buldum, hatasız çalışıyor gibi, geliştirilmeye de açık isteğe göre .

Bu dosyanın bazı fikir ya da kodlarının bir kısmı belki Sayın Kemal Turan'ın dosyasında da userforma ekilerek kullanılabilir. Tekrar teşekkürler.

 

[Mdemir63]

Selamlar
Sayın @emre67z arkadaşımızın yüklediği çalışmayı Youtube kanalında Sayın Mehmet GÜRTEN hocam video olarak anlatmıştır.
bilginiz olsun diye yazmak istedim.

İyi çalışmalar

 

[PriveT]

MERHABA
Forum üstadlarımızdan öğrendiklerimle yapmış olduğum geliştirilebilir lokanta satış takip proğramı ek tedir.

Emeklerinize sağlık.
Müsade ederseniz resimleri vs. kendimize uyarlayarak kullanmak isterim.

 

[cengizhan26]

MERHABA
Forum üstadlarımızdan öğrendiklerimle yapmış olduğum geliştirilebilir lokanta satış takip proğramı ek tedir.

Benim bunu indirmem lazım ancak altın üyelik istiyor nasıl altın üye olabilirim

 

[EmrExcel16]

Aşağıdaki linkdeki ilgili konu inceleyebilirsiniz.

Altın Üyelik

Değerli Üyemiz, Forumda DOSYA EKLEME ile DOSYA İNDİRME işlemleri için ve yayınlanan Video Dersleri izleyebilmek için ALTIN ÜYELİK gerekmektedir. ALTIN ÜYELİK ONLİNE SİPARİŞ İÇİN TIKLAYIN ALTIN ÜYELİK fiyatlar ; 1 Yıl = 150 TL KDV Dahil 2 Yıl = 250 TL KDV Dahil 5 Yıl = 500 TL KDV Dahil...

www.excel.web.tr

 

[cengizhan26]

Aşağıdaki linkdeki ilgili konu inceleyebilirsiniz.

Altın Üyelik

Değerli Üyemiz, Forumda DOSYA EKLEME ile DOSYA İNDİRME işlemleri için ve yayınlanan Video Dersleri izleyebilmek için ALTIN ÜYELİK gerekmektedir. ALTIN ÜYELİK ONLİNE SİPARİŞ İÇİN TIKLAYIN ALTIN ÜYELİK fiyatlar ; 1 Yıl = 150 TL KDV Dahil 2 Yıl = 250 TL KDV Dahil 5 Yıl = 500 TL KDV Dahil...

www.excel.web.tr

Teşekkür ederrim altın üyelik aldım 1 senelik ama hala indiremiyorum daha onaylanmadı galiba