başka bir forumda bu konuyla ilgili aşağıdaki fonksiyonu önermiştim işe yaramadı mı?
bir modül oluşturup aşağıdaki kodu ekleyecektiniz

Function AlphaNumeric(metin As String) As String

 

xAlfaNum = "[A-Za-z0-9ÇçĞğıİŞşÖöÜü]"

xBoy = Len(metin & "")

For x = 1 To xBoy

xHrf = Mid(metin, x, 1)

    If xHrf Like xAlfaNum Then xVeri = xVeri & xHrf

Next

AlphaNumeric = xVeri

End Function

forma eklenecek bir düğmeye de aşağıdaki kodu yazacaktınız
tablo adınızın : tablo olduğu,
verilerin olduğu alanın adının : PARTNO olduğu ve
sonucun gösterileceği alanın adının APART olduğu varsayılmıştır

CurrentDb.Execute "update tablo set APART=AlphaNumeric([PARTNO])"