bahsettiğiniz talebinize yönelik olarak;
ilgili metin denetiminin GÜNCELLEME SONRASINDA olay yordamı içerisine
Kod:
Dim gecersizler As Variant
Dim a, b As Integer
gecersizler = Array("\", "/", ":", "*", "?", """", "<", ">", "|", "+", "-", ".", ",", ";")
For a = 0 To UBound(gecersizler)
b = InStr(1, ad_soyad, gecersizler(a))
If b > 0 Then
MsgBox (gecersizler(a) & " karakteri GEÇERSİZDİR." & vbCr & "Sadece,SAYI ve METİN yazınız"), vbCritical, "GEÇERSİZ KARAKTER UYARISI"
Me.ilgili_metin_denetiminin_adi = Null
Me.Undo
Exit For
End If
Nextlütfen,Site Kuralları gereği,her ne için olursa olsun;
içeriğinde farazi gerçek dışı uydurma veriler ve sonuçları görebilmek üzere de birkaç kayıt içerecek halde örnek uygulamanızı dahil etmeye özen gösteriniz.
bilginize...iyi çalışmalar,saygılar.
