Skip to main content

AccessTr.neT


Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme

Uzun Metin Kutusuna İstenilen Kadar Sıra Numarası Ekleme

Çözüldü #1
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.
.zip OtomatikMetin.zip (Dosya Boyutu: 27,3 KB | İndirme Sayısı: 3)
Son Düzenleme: 17/10/2019, 21:51, Düzenleyen: akaygisiz.
Cevapla
#2
sadece sıra numarası mı eklenecek?
müşteriler metin kutusunda değer varsa ne yapılacak?
sayı 15den büyükse ne yapacak?
Cevapla
#3
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.
Cevapla
#4
"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 Sub
Cevapla
#5
Mükemmel. Tam istediğim gibi bir sonuç verdi ilginize ve hızınıza çok teşekkür ederim sayın @berduş
Cevapla
#6
ÖD)
iyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task