Skip to main content

AccessTr.neT


Etiketler
Yazar: Coskun0559 - Cevaplar: 10 - İzleme: 5371
inputbox şifre girişlerinde (*) karakterini kullanmak
Az önce bi arkadaş başka bi sorunun sorulduğu konuda bu soruyu sorduğu için böyle bi örnek hazırlayıp yeni konu altında paylaşmayı düşündüm.umarım işinize yarar.

[Resim: http://i51.tinypic.com/igaurt.jpg]
Yazar: accessman - Cevaplar: 1 - İzleme: 2533
metinden enter karakterini çıkar
[code]
Dim str As String
Do
'ilk karakterden itibaren tükçe karakter kontrol et
ilk_karakter = 1
max_karakter = 139
eklenti = ""
tara = 1
Do
parca = Mid(not1, tara, 1)

If parca = vbCrLf Then
str = Replace(str, vbCrLf, "", 1)
MsgBox "enter"
End If

eklenti = eklenti & parca
tara = tara + 1
Loop Until tara >= max_karakter

eklenti = Left(eklenti, InStrRev(eklenti, "
Yazar: accessman - Cevaplar: 0 - İzleme: 1979
chr(10) karakterini değiştirmek
"etmelidir.

YİRMİ İKİNCİ DEVÂ

Ey nüzul gibi ağır hastalıklara müptelâ olan kardeş! Evvelâ sana müjde ediyorum ki, mü’min için nüzul mübare"

metni içindeki chr(10) karakterini

Değiştir([sms];Chr(10);"")

ile attğımda sorguda atılmış gözüktüğü halde
başka yere kopyalayıp yapıştırırsam
orjinali gibi gözüküyor
bunu nasıl gerçekten chr(10) karakterlerini aradan çıkarabilirim
Değiştir([sms];Chr(13);"")
Değiştir([sms];Chr(10);"")
birarada kullanmak gerekiyormuş

veya

=Değiştir(