Skip to main content

AccessTr.neT


Girilen sayı kadar onay kutularının otomatik onaylanması

Girilen sayı kadar onay kutularının otomatik onaylanması

Çözüldü #1
Örneğimde paket sayısındaki alana girdiğim sayı kadar onay kutusunu işaretletmek istiyorum.

Örneğin "paket sayısı" alanına 1 girersem koli1;
"paket sayısı" alanına 2 girersem koli1, koli2;
"paket sayısı" alanına 3 girersem koli1, koli2, koli3 raporlarına ait onay kutuları otomatik onaylanabilir mi?

Mevcut çalışmamda barkodNo1,barkodNo2,barkodNo3 alanlarını "(01) 86812345600010102" ... şeklinde ve koli1, koli2,koli3 alanlarını da "1/2" ... biçiminde paket sayısına girilen sayı kadar otomatik doldurabiliyorum ama; onay kutularını da bunlarla birlikte doldurmak istiyorum fakat; onay kutusunu bunlara nasıl ilave edeceğimi bilemedim. Paket sayısı alanına ait kodlarla yukarıda anlatılanlar yapılabiliyor ancak onay kutularını işaretletmek ilave edilecek bu kodlara.
Yardımlarınız için şimdiden teşekkürler...
.rar girilen sayı kadar onay kutularını otomatiki şaretletmek.rar (Dosya Boyutu: 154,8 KB | İndirme Sayısı: 10)
Son Düzenleme: 09/09/2013, 12:32, Düzenleyen: F.Ç.
Cevapla
Çözüldü #2
Zaten daha önce case ile barkod olayını yapmıştık. Şimdi aynı case ile kolilerin de işaretlenmesini sağlayabiliriz. Bunun için paketsayisi metin kutusunun güncelleştirme sonrasındaki olay yordamını aşağıdaki biçime getirin.

Kod:
Private Sub PaketSayisi_AfterUpdate()
        Me.Koli_1 = Null
        Me.Koli_2 = Null
        Me.Koli_3 = Null
        Me.BarkodNo1 = Null
        Me.BarkodNo2 = Null
        Me.BarkodNo3 = Null
    
    Select Case PaketSayisi
    
    Case 1
        Me.Koli_1 = "1/1"
        Me.BarkodNo1 = Me.BarkodNo1 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
        Me.BarkodNo1 = Me.BarkodNo1 & "0101"
        Me.okoli1 = -1
        Me.okoli2 = 0
        Me.okoli3 = 0
        
    Case 2
        Me.Koli_1 = "1/2"
        Me.Koli_2 = "2/2"
        Me.BarkodNo1 = Me.BarkodNo1 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
        Me.BarkodNo2 = Me.BarkodNo2 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
        Me.BarkodNo1 = Me.BarkodNo1 & "0102"
        Me.BarkodNo2 = Me.BarkodNo2 & "0202"
        Me.okoli1 = -1
        Me.okoli2 = -1
        Me.okoli3 = 0
    
    Case 3
        Me.Koli_1 = "1/3"
        Me.Koli_2 = "2/3"
        Me.Koli_3 = "3/3"
        Me.BarkodNo1 = Me.BarkodNo1 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
        Me.BarkodNo2 = Me.BarkodNo2 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
        Me.BarkodNo3 = Me.BarkodNo3 & "(01)0868078205" & Format(Me.ÜrünKodu, "0000")
        Me.BarkodNo1 = Me.BarkodNo1 & "0103"
        Me.BarkodNo2 = Me.BarkodNo2 & "0203"
        Me.BarkodNo3 = Me.BarkodNo3 & "0303"
        Me.okoli1 = -1
        Me.okoli2 = -1
        Me.okoli3 = -1

    End Select
    Me.Refresh


End Sub

İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
Tamam Mehmet Abi,

Sorunum çözüldü. Bir adımı daha başarıyla tamamladım abi.

Çoook teşekkür ederim... Başka bir konuda görüşmek üzere.....
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da