AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

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

09/09/2013, 12:30

F.Ç

Ö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...
09/09/2013, 18:05

mehmetdemiral

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
09/09/2013, 18:53

F.Ç

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.....