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