+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme (/konu-uzun-metin-kutusuna-istenilen-kadar-sira-numarasi-ekleme.html)
Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme - akaygisiz - 17/10/2019
Merhabalar, uzun zamandır arama yapsamda bir sonuca ulaşamadığım bir sorum var. Ekte örnek olarak eklediğim VT'de form kısa metin kutusuna girilen sayı değeri kadar (maksimum 15) altında bulunan uzun metin kutusuna Vba ile sıra numarası eklemek istiyorum. Örnek olarak müşteri sayımız 5 diyelim; müşteri isimleri kısmına geçtiğimizde,
1-
2-
3-
4-
5-
şeklinde yazdırmasını istiyorum. Anlatımda ve kurallarda bir eksikliğim varsa affola, şimdiden yardımlarınız için teşekkürler.
Cvp: Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme - berduş - 17/10/2019
sadece sıra numarası mı eklenecek?
müşteriler metin kutusunda değer varsa ne yapılacak?
sayı 15den büyükse ne yapacak?
Cvp: Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme - akaygisiz - 17/10/2019
Hemen şöyle açıklayayım; Bahse konu form senaryosu açıldığında direkt yeni kayda git şeklinde düşünelim sıfır veri ile geliyor ve müşteri sayısı soruluyor 10 diyoruz bize müşteri isimleri kısmına sıralama yapıyor. Yardım istediğim kısım burası 15 ten büyükse kısmı ise kullanacağım veritabanı için bana en fazla 15 sıralama yapacak şekilde yeter ve artar bile. Umarım sorunuzu cevaplayabilmişimdir. Ayrıca bu kadar hızlı cevap verdiğiniz için ilginize teşekkürler.
Cvp: Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme - berduş - 17/10/2019
"MusteriSayisi" metin kutusundan çıkıldığında olayına yazdım kodu sayı 15den büyükse bile sadece 15 yazıyor
dilerim işinize yarar
Private Sub MusteriSayisi_Exit(Cancel As Integer)
If CLng(Me.MusteriSayisi) > 15 Then Me.MusteriSayisi = 15
Me.Musteriler = ""
For x = 1 To CLng(Me.MusteriSayisi)
Me.Musteriler = Me.Musteriler & x & " - " & vbNewLine
Next x
End SubCvp: Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme - akaygisiz - 17/10/2019
Mükemmel. Tam istediğim gibi bir sonuç verdi ilginize ve hızınıza çok teşekkür ederim sayın @berduş
Cvp: Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme - berduş - 17/10/2019
ÖD)
iyi çalışmalar