AccessTr.neT

Tam Versiyon: Kod Sabit Sayı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9 10
Arkadaşlar Bizim Sistemimizde Otomatik Balya Yaptırıyoruz
Ama Her Bir Veri yani satır 1 Fatura Değerinde
Biz Burda Balya Yaptırdığımızda 10 diyoruz  Her Bir Balya 10 adet firmadan Oluşmasını istiyoruz
Fakat Bir Türlü Olmuyor
10 Adettende Bir Balya Yapıyor
3 Adettende Bir Balya Yapıyor
6 Adettende Bir Balya Yapıyor
Biz Sabit Olsun İstiyoruz
10 Firma Seçtiysek
10 dan Aşağı ve yukarı Olamısını İstemiyoruz Kod da Nerde Hata Yapıyoruz
ilginiz İçin Çok Teşekkürler


___________________________________________________________________________________________________

Eczane_Grup_Sayısı = InputBox("A Gurubu,tek seferda balyaya dahil edilecek, en fazla eczane sayısını giriniz...")
   
tekrar:
    If (Eczane_Grup_Sayısı <10) Then

      Eczane_Grup_Sayısı = InputBox("Balyaya dahil edilecek, en fazla eczane sayısı 10' den az olamaz. Yeniden giriniz...")
       
      GoTo tekrar
   End If
   
   Eczane_Grup_Sayısı1 = Eczane_Grup_Sayısı

___________________________________________________________________________________________________
Merhaba, konunuza eklediğiniz dosya tarfımca silinmiştir. Kod yazılı txt belgesi yerine örnek uygulamanızı ekleyiniz.
Sn.ozanakkaya
Burda Sadece Sabit 10 Seçmesiniz İstiyoruz nasIl Sabitleyeceğiz Onu Bulamadım
Anlatımınıza göre çözüm bulmak zor. Seçilen firma sayısına göre işlem yaptırmak gerekli ancak firma sayısı nereden seçiliyor belli değil.

Eklediğiniz kodun düzeltilmiş hali.

Eczane_Grup_Sayısı = InputBox("A Gurubu,tek seferda balyaya dahil edilecek, en fazla eczane sayısını giriniz...")

100
If Eczane_Grup_Sayısı <> 10 Then

Eczane_Grup_Sayısı = InputBox("Balyaya dahil edilecek, en fazla eczane sayısı 10' den az olamaz. Yeniden giriniz...")

GoTo 100
End If

Eczane_Grup_Sayısı1 = Eczane_Grup_Sayısı

Kod çalıştığında input çıkar, 11 veya 9 yazarsanız 2. input görünür siz 10 yazana kadar devam eder.
Arkadaşlar Sizden bir ricam var

Şimdi burda benim yapmak istediğim Eczacılık tablomuza verilerimizi girdiğimiz zaman
Diycezki Balya Yap Buton Yardımı İle
Butana bastığımızda

Balya yapmaya başlayacak
A Grubu Tek Seferde Balyaya Dahil Edilecek En Fazla Eczane Sayısını Giriniz Diye Bir MsgBox Veriyor
Orda Biz 7 Seçiyoruz
Enter tuşuna Bastığımızda İlk Balya Numarasını Soruyor
Onu Biz Kendimiz Kaç Olmasını İstiyorsak Onu Belirliyoruz
Daha Sonra Kendisi Balyalamaya Başlıyor

Her Balyada 148 ile 153 Aralığında Reçete Toplamı Var

Bittiğinde Balyalama İşlemi Bittiğinde Başarıyla Tamamlandı Diye MsgBox Diye Uyarı Verecektir.
Bittiğinde Balyalara Baktığımızda Evrak Sayısı Toplam 7 Olacak

Her Evrak Sayısı  7 Den azda Olmayacak
Her Evrak Sayısı  7 Den Fazlada Olmayacak
Sabit 7 Evrak Olacak Her Balyada
Bizim Tek sorunumuz Bu Çözerseniz Çok Severim

Her Balyada Sabit Fatura Adedi Olacak

Emeğiniz İçin Teşekkürler
Sayfalar: 1 2 3 4 5 6 7 8 9 10