AccessTr.neT

Tam Versiyon: Alan İçerisindeki Boşluğu Engellemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.

alan içindeki kelime ya da rakamlar arasındaki boşluğu engellemek için vb kodu nasıl olmalı acil cevaba ihtiyacım var
Sadece boşluk değil diğer mide bulandırıcı karakterleri de kilitleyebilirsiniz. Kod kullanımlaında *'?% işaretlerini de kilitliyorum örnekte.

Private Sub SirketKodu_AfterUpdate()
Me.SirketKodu.Value = UCase$(Me.SirketKodu)
Me.SirketKodu = At(Me.SirketKodu)
End Sub

Function At(Deger As String)
Dim T As Integer
Dim dd As String
For T = 1 To Len(Deger)
If Mid(Deger, T, 1) = " " Or Mid(Deger, T, 1) = Chr(34) Or Mid(Deger, T, 1) = "*" Or Mid(Deger, T, 1) = "'" Or Mid(Deger, T, 1) = "?" Or Mid(Deger, T, 1) = "%" Then
Else
dd = dd & Mid(Deger, T, 1)
End If
Next
At = dd
End Function
sn. yandemir çok teşekkür ederim işlem tamam