Metin kutusu

[hsntvsnl]

Merhabalar

Metin kutusuna kayıt girerken kelimeler arasında boşluk(space) yerine "*" koymak istiyorum,

Örn:
Dizüstü Bilgisayar
yerine
Dizüsrü*Bilgisayar yazsın

ve bunu space ile yapsın

bu işlemi formun sadece 1 textbox ında istiyorum

Yardımlarınızı bekliyorum

İyi çalışmalar dilerim.

 

[modalı]

Aşağıdaki kodları kullanabilirsiniz:

Private Sub Metin0_AfterUpdate()
     Me.Metin0 = Replace(Me.Metin0, " ", "*")
End Sub

İyi çalışmalar

 

[hsntvsnl]

Sayın Modalı
cevabınız için teşekkür ederim,

peki güncellemeden sonra değilde metin kutusunu doldururken olabilirmi

 

[Taruz]

Merhaba..

Sayın modalı'nın önerdiği kodu metin kutusunun Tuşa Basıldığında olayında kullanınız..

 

[hsntvsnl]

Sayın Taruz

Öncelikle yardımlarınız için teşekkür ederim

Modalının vermiş olduğu kodu Metin kutusunun TUŞA BASILDIĞINDA olayına yazdığınızda

Run-time error 94

Invalid use of Null

diye hata veriyor ama GÜNCELLEMEDEN SONRA olayında çalışıyor

 

[Taruz]

Merhaba..

Evde 2007 sürümünde

Me.Metin0.Text = Replace(Me.Metin0.Text, " ", "*")

bu şekilde hata vermemişti ama işyerindeki Access 2003 istediğim sonucu vermedi..

Aynı yordamda bir de bu kodu deneyiniz..:

    If KeyAscii = 32 Then
        Metin0.Text = Metin0.Text & "*"
        Metin0.SelStart = Len(Metin0)
    End If

Ara tuşuna bastığınızda metin sonunda bir boşluk verecek bunuda ilk kodu güncelleştirmeden sonra kullanarak düzeltebilirsiniz..

 

[modalı]

Sayın Modalı
cevabınız için teşekkür ederim,

peki güncellemeden sonra değilde metin kutusunu doldururken olabilirmi

Siz yine de kodu güncelleştirme sonrası olayında kullanın. Hata orada oluşuyor.

Güncelleştirme sonrasında kullanmanızda hiçbir zarar yok, çünkü değişiklikten sonra tekrar güncellenecektir.

İyi çalışmalar