Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

F.Ç
F.Ç
Access Cevaplanmış Soruları
2
2122

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

Çözüldü #1
F.Ç
Aktif Üye
F.Ç
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 47
Konum:
Ofis Versiyonu: -
Son Oturumu: 17/03/2022,04:05
Yorumları: 116
Konuları: 33
Kayıt Tarihi: 05/07/2013
Teşekkür Puanı: 0
Ö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
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 59
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 10/07/2024,19:24
Yorumları: 5.123
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
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
F.Ç
Aktif Üye
F.Ç
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 47
Konum:
Ofis Versiyonu: -
Son Oturumu: 17/03/2022,04:05
Yorumları: 116
Konuları: 33
Kayıt Tarihi: 05/07/2013
Teşekkür Puanı: 0
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
Task