Bence tüm kodları case ile yapmak daha mantıklı.
Kod:
Private Sub PaketSayisi_AfterUpdate()
Me.Koli_1 = Null
Me.Koli_2 = Null
Me.Koli_3 = Null
Select Case PaketSayisi
Case 1
Me.Koli_1 = "1/1"
Me.BarkodNo1 = Me.BarkodNo1 & "0101"
Case 2
Me.Koli_1 = "1/2"
Me.Koli_2 = "2/2"
Me.BarkodNo1 = Me.BarkodNo1 & "0102"
Me.BarkodNo2 = Me.BarkodNo2 & "0202"
Case 3
Me.Koli_1 = "1/2"
Me.Koli_2 = "2/2"
Me.Koli_3 = "3/3"
Me.BarkodNo1 = Me.BarkodNo1 & "0102"
Me.BarkodNo2 = Me.BarkodNo2 & "0202"
Me.BarkodNo3 = Me.BarkodNo3 & "0203"
End Select
Me.Refresh
End Sub
Merhaba Mehmet Abi,
Yeniden karşılaşmak ne güzel. düzenledim ama istediğim tam olmuyor yine de.
Abi barkodno1, barkodno2 ve barkodno3 alanları da ürün kodunu girdiğimde otomatik doluyor. Boş kalmayacak bu alanlar.
Ben paket sayısını 1 girersem sadece barkodno1 in sonuna eklesin diğerlerini silsin.
Paket sayısını 2 girersem barkodno3 silsin.
paket sayısını3 girersem tüm alanların sonuna eklesin
Abi birde paket sayısını değiştirirsem önceki alanın üzerine yazıyor hep. Buda yanlış oluyor. Silsin yeniden yazsın istiyorum.
Mehmet Abi,
Çözdüm sizin verdiğiniz kodlarla abi. Ustam kim abi. Tam istediğim gibi oldu tıkır tıkır.
Vallahi süpersiniz abi ya ne diyeyim. yine bol bol repler sizin abi ya helal olsun size.
Teşekkürler...Teşekkürler...Var Olun... Sağ olun... Mehmet Abi....
Sevindim. Ben orayı tam anlayamamışım. Celoyce dediğin gibi yapmıştı, yani diğer alanları temizliyordu. Ben o alanlardaki silme kodunu kaldır diye uzun uzun anlattım bir de
)) Neyse, benim en sevdiğim şeyi yapmışsın ve öğretmeye çalıştığım şeyi kendin uygulamışsın. Amacım sana ekmek vermek değil, ekmek yapmayı öğretmekti.
Teşekkürler Mehmet Abi,
Yalnız bir sorunum daha oluştu onay kutusu ile rapor yazdırma konusunda. bugün denemeye gittim yazıcıya rapor1 rapor2 ve rapor 3 teki kayıtların tümünü yazdırıyor. seçili kayıtları değil yani. hani seçimler sıfırlan sın mı konusu vardı ya abi.
Tam anlayamadım demek istediğini...Tablodaki tüm kayıtları mı yazdırıyor?
Şimdi farkettim, konuyu yanlış yere açmışsınız. Bu bir
Access sorusu ama öneriler ve eleştiriler bölümüne açılmış. Konu taşınmıştır.