Textbox karakter sayısını sabitlemek (Tamamlamak)

[kaya41]

Öncelikle herkese merhaba.

Userform üzerinde yer alan bir textbox alanındaki değeri sql tablosuna gönderiyorum.

Sorunum şu örneğin sql tablodaki alan 20 karakter ve örneğin isim bilgisi girilecekse ismin sonunu boşluk ile 20 karaktere tamamlıyor.
(hayri ) gibi bir durum oluşuyor.

Benim textboxtaki değerimi sonuna boşluk atarak 20 karaktere tamamlamam gerekiyor.

Değişkenler üzerinden kodlar çalışıyor ve örneğin sağına veya soluna belli sayıda boşluk nasıl ekleyebilirim.
AA5 = TextBox9.Text

 

[Tevfik_Kursun]

Merhaba,
"Hayri" kelimesini A1 'e yazıyorsanız, bunu da B1 'e alacaksanız

=A1&YİNELE(" ";20-UZUNLUK(A1))

ifadesi B1 'in boyunu 20 ye tamamlatır
Kolay gelsin

 

[Ömer BARAN]

Merhaba.

Aşağıdaki şekilde dener misiniz? Sağına boşluk ekler.
Ben USERFORM üzerindeki TextBox üzerinde tamamlama istenildiğini düşündüm.
.

[FONT="Arial Narrow"]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.TextLength < 20 Then _
TextBox1 = TextBox1.Text & WorksheetFunction.Rept(" ", 20 - TextBox1.TextLength)
End Sub[/FONT]

 

[YUSUF44]

Kod dizilimi tam olarak böyle mi olur bilmiyorum ancak mantıken şöyle deneyin:

if Len(TextBox9.Text)<20 then 
[COLOR="Red"]     [AA5] = WorksheetFunction.Rept(" ", 20 - Len(TextBox9.Text)) & TextBox9.Text 'Soluna boşluk eklemek için bu satırı kullanın[/COLOR]
    [COLOR="Blue"] [AA5] = TextBox9.Text & WorksheetFunction.Rept(" ", 20 - Len(TextBox9.Text)) 'Sağına boşluk eklemek için bu satırı kullanın[/COLOR]
Else
    [AA5] = TextBox9.Text
End if

İsteğinize göre mavi veya kırmızı satırlardan birini kullanın.

 

[Mehmet Şahin]

Merhaba,
alternatif olsun.

AA5 =TextBox9.Text & String(20 - Len(TextBox9.Text), " ")

 

[kaya41]

Teşekkür ederim. Hepinizin eline sağlık.
Daha deneyemedim muhakkak biri işimi görür.
Sağ olun.