+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alan İçerisindeki Boşluğu Engellemek (/konu-alan-icerisindeki-boslugu-engellemek.html)
Alan İçerisindeki Boşluğu Engellemek - esrefgul44 - 18/02/2012
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
Cvp: alan başında boşluğu engelleme - Yandemir - 18/02/2012
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 SubFunction 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 FunctionCvp: alan başında boşluğu engelleme - esrefgul44 - 19/02/2012
sn. yandemir çok teşekkür ederim işlem tamam