Merhaba
1- Hazırladığım formda 3 adet metin kutusu var. 1. ve 2. kutudaki verileri 3. kutuda birleştirmek istiyorum. Fakat birleştirme formatı ile ilgili sıkıntı yaşıyorum. Birleştirmek istediğim veri biçimi olarak 0000-00 yazıyorum fakat sonuç istediğim gibi olmuyor.
1. Kutuda "müşteri_no" = 0001
2. Kutuda "proje_sayısı" = 01
3. Kutuda "proje_kodu" = proje_kodu = [musteri_no] & "-" & [proje_sayısı] sonuç 1-1 çıkıyor.
Ben 0001-01 olarak metin kutusunda görünmesini ve tablo hücresine de bu şekilde yazmasını istiyorum.
2- "proje_kodu" tabloda daha önce girilmiş ise "proje_sayısı" metin kutusunu +1 olarak arttırmak için nasıl bir yöntem uygulayabilirim.
Uzman arkadaşların yardımını rica ediyorum. Saygılarımla.
Metin Kutusu Birleştirme Formatı
=Format([Text0];"0000") & "-" & Format([Text1];"00")
şeklinde dener misiniz?yada
=Format([Text0];"0000") & Format([Text1];"-00")
if dcount("*","tabloadi","proje_kodu='" & proje_kodu & "'")>0 then proje_kodu=Format([Text0],"0000") & "-" & Format([Text1]+1,"00")
benzeri bir kodlama kullanılabilirama hatırlatmam gereken 2 nokta var
1 - her konu sadece ve sadece 1 soru içindir, 2. soru için yeni konu açmalısınız
2 - siz çalışmanızı elemeden önereceğimiz kodlar genel geçer varsayımsal kodlardır, hızlı ve doğru çözümler için mümkün oduğunca örnek çalışmanızı eklemenizi öneririm
iyi çalışmalar
(09/04/2021, 11:32)berduş yazdı: 1 - her konu sadece ve sadece 1 soru içindir, 2. soru için yeni konu açmalısınız
ne demek istediğinizi anladım sayın berduş.
Kod:
Private Sub prb_proje_kodu_Click()
txt_proje_kodu = Format([musteri_no], "0000") & "-" & Format([txt_proje_sayısı], "00")
End Sub
(09/04/2021, 11:32)berduş yazdı: 2 - siz çalışmanızı elemeden önereceğimiz kodlar genel geçer varsayımsal kodlardır, hızlı ve doğru çözümler için mümkün oduğunca örnek çalışmanızı eklemenizi öneririmBu konuda haklısınız. Yapmış olduğum uygulama biraz yoğun ve şu an için karmaşık beni de, sizi de yoracağını düşündüğümden gönderemedim.
iyi çalışmalar
Son Düzenleme: 09/04/2021, 14:12, Düzenleyen: Şahin_MRKC.
Private Sub prb_proje_kodu_Click()
txt_proje_kodu =iif (dcount("*","tabloadi","proje_kodu='" & proje_kodu & "'")>0, Format([musteri_no],"0000") & "-" & Format([txt_proje_sayısı]+1,"00"), Format([musteri_no],"0000") & "-" & Format([txt_proje_sayısı],"00"))
End Sub
şeklinde kullanabilirsiniz. tabî gerçek alan ve tablo adlarını bilmediğimden isimlendirmeler varsayımsaldır.şimdi farkettim aslında 4. mesajdaki kodu txt_proje_kodu = Format([musteri_no], "0000") & "-" & Format([txt_proje_sayısı], "00") kodunun altına eklemeniz daha doğru olur
Konuyu Okuyanlar: 1 Ziyaretçi