![Çözüldü](images/icons/cozuldu.png)
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
![Ozur Ozur](https://accesstr.net/images/smilies/ozur.gif)
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