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
Visual Basic Code
=Format([Text0];"0000") & "-" & Format([Text1];"00")
şeklinde dener misiniz?

yada
Visual Basic Code
=Format([Text0];"0000") & Format([Text1];"-00")
Son Düzenleme: 08/04/2021, 16:07, Düzenleyen: berduş.
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 Adlı Kullanıcıdan Alıntı: 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
Visual Basic Code
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ş Adlı Kullanıcıdan Alıntı: 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ş Adlı Kullanıcıdan Alıntı: 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
Visual Basic Code
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
Son Düzenleme: 09/04/2021, 14:48, Düzenleyen: berduş.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da