Skip to main content

AccessTr.neT


Metin Kutusu Birleştirme Formatı

Metin Kutusu Birleştirme Formatı

Çözüldü #1
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.
Cevapla
#2
=Format([Text0];"0000") & "-" & Format([Text1];"00")
şeklinde dener misiniz?

yada
=Format([Text0];"0000") & Format([Text1];"-00")
Cevapla
#3
Teşekkür ederim sayın berduş 1. örnekteki daha uygun oldu.

2. sorum için bir fikriniz var mıdır.

(08/04/2021, 15:57)Şahin_MRKC yazdı: 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.
Cevapla
#4
if dcount("*","tabloadi","proje_kodu='" & proje_kodu & "'")>0 then proje_kodu=Format([Text0],"0000") & "-" & Format([Text1]+1,"00")
benzeri bir kodlama kullanılabilir
ama 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
Cevapla
#5
(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

iletmiş oluduğun kodu bu kodun yerine mi kullanmam gerekiyor.



(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 öneririm
iyi çalışmalar
Bu 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.
Son Düzenleme: 09/04/2021, 14:12, Düzenleyen: Şahin_MRKC.
Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da