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