istenmeyen harf yada kelimenin engellenmesi

meraklı biri · 10 Mayıs 2008

Saygıdeğer Dostlar
Bir alan içinde bulunması istemediğimiz harfler veya kelimeler için varsayılan değer nasıl belirtilecek. Örneğin harfler girilmeyecek. ğ,ş,ı,ö,ç Kelime için örnek ağaç Ekteki dosyada düzenlenip yayınlanırsa seviniriz.Saygılarımla

mehmetdemiral · 10 Mayıs 2008

Sayın meraklı biri
Verdiğin ekli dosyayı niye eklediğinizi hiç anlayamadım. Konuyla ne ilgisi var ki?
Bir de şöyle bir sorum var. Gerçekten böylesine ilginç konuları nereden buluyorsun? Adını gerçekten hakettiğini düşünüyorum.

))

meraklı biri · 10 Mayıs 2008

Sn mehmetdemiral
Teşekkür ederim.Ben sizler kadar acces te üstad değilim.Sizlerden 1 2 bilgi almak güzel diye düşünüyorum.Sonra benim adres defterim var.Orada bazı işlerimi kolaylaştıracağımı düşünüyorum.Daha doğrusu adres defterimi kişiselleştiriyorum.Gerçekten sizce ilginç mi bilmiyorum..Bu soruyu şunun için sormuştum. Adres defterimde e mail alanı var.o bölüme girerken yanlış harf girişinin olmamasını istiyorum..İkaz versin istiyorum.Teşekkür ederim.

mehmetdemiral · 11 Mayıs 2008

Bu şekilde kodlarla falan yapılabilir. Ama ben geçerlilik kuralı diye bir alan var. Belki orada yapabilirsin. Alanın geçerlilik kuralına -ben de bakacağım birazdan- böyle bir kural eklenir mi denemek lazım. Kolay gelsin.

meraklı biri · 11 Mayıs 2008

Ek dosyaya bakabilirsiniz

Sn mehmetdemiral ekteki dosyaya bak
Burada örneğin a harfi istenmiyor.ve oluyor Ancak birkelime yazdığımda 1 2 a bulunnunca bunu dikkate almıyor.İşinizi kolaylaştırır diye gönderiyorum.Saygılar

mehmetdemiral · 11 Mayıs 2008

Elbette.. O çok basit bir şey <>"a" şeklinde a olmayan bir değer yazılmasını sağlamış. Belki like ve * ile kullanılırsa ve birden çok tanım and ile bağlanırsa bu yöntem işşe yarar. Ama uğraşmak lazım. Boş anımda denerim. Ama çok basit bir şekilde bir modül yazılarak bazı karakterlerin girişinin engellenmesi mümkün olur diye düşünüyorum. Ama kod yazma konusunda ben de o kadar iyi değilim. Ancak bildiğim birkaç kodu kullanabiliyorum. Burada ana dili gibi kod kullananlar var, onların yardım etmesi lazım. Mesela aklıma ilk gelenleri söyleyeyim: Modalı, Beab05 veya Yeni54...

PHÖNİX1 · 11 Mayıs 2008

gerçekten gizel bir soru idi tebrik ederim.

işe yarayacak bir konu önce yazını okuyunca bende şaşırmıştım.
sonra ne için olduğunu yazınızı okuyunca hak verdim.

yeni54 · 11 Mayıs 2008

Birkaç yol var bunun için.
Örneğin, Alanın çıkışında kontrol edilebilir.
Veya Tuşa basılma anı kontrol edilebilir veya değişme anı kontrol edilebilir.
Ne yapılabilir?
Girimesi yasak olan harf ya da harf grupları bir tabloya toplanır. (Siz de böyle yapmışsınız zaten)
Bir function oluşturulur boolean tipinde veya başka bir tip döndüren.
Bu fonksiyon içinde tablo select edilir,
her bir kayıt için instr komutu ile yasak olan harf yada harf grubu var mı bakılır.
Var ise true ya da belirlediğin bir geri dönüş değeri döndürülür.
Buna göre de gerekli mesajlar verilerek ilerleme sağlanır.

beab05 · 11 Mayıs 2008

Replace işinizi görmez mi? Örneğin "ö" harfini "o" ve "ğ" harfini "g" harfine dönüştürmek gibi;

Kod:

=replace(replace([alan ismi];"&#246;";"o");"&#287;";"g")

alan içindeki tüm "ö" ler "o" ya "ğ" ler "g" ye dönüşür..

meraklı biri · 11 Mayıs 2008

Sn beab05
Bu kodu nereye yerleştireceğiz Hatalarla karşılaşıyorum Yardımcı olursanız sevinirim.saygılar

gulsum1 · 11 Mayıs 2008

bunu deneyin hem türkçe karakterlere izin vermez hemde tam olarak mail adresi yazmadan kabul etmez

Private Sub emailadres_AfterUpdate()
If IsEmailAddress(emailadres.Value) = False Then
MsgBox "email adresi yanlış", vbInformation, "uyarı"
End If
End Sub

Function IsEmailAddress(ByVal strEmailAddr As String) As Boolean

' Checks if strEMailAddr could represent a valid e-mail address.
' Does not check validity of domain name.

' Allowed characters.
Const cstrValidChars As String = "@_-.0123456789abcdefghijklmnopqrstuvwxyz"
Const cstrDot As String = "."
Const cstrAt As String = "@"
' Minimum length of an e-mail address (a@a.ca).
Const cintAddressLenMin As Integer = 6

Dim strValidChars As String
Dim booFailed As Boolean
Dim intPos As Integer
Dim intI As Integer

' Convert to lowercase.
strEmailAddr = LCase(strEmailAddr)
' Check that strEMailAddr contains allowed characters only.
For intI = 1 To Len(strEmailAddr)
If InStr(cstrValidChars, Mid(strEmailAddr, intI, 1)) = 0 Then
booFailed = True
End If
Next
If booFailed = False Then
' Check that the first character is not cstrAt.
booFailed = Left(strEmailAddr, 1) = cstrAt
If booFailed = False Then
' Check that the first character is not a cstrDot.
booFailed = Left(strEmailAddr, 1) = cstrDot
If booFailed = False Then
' Check that length of strEMailAddr exceeds
' minimum length of an e-mail address.
intPos = Len(strEmailAddr)
booFailed = (intPos < cintAddressLenMin)
If booFailed = False Then
' Check that none of the last two characters of strEMailAddr is a dot.
booFailed = (InStr(intPos - 1, strEmailAddr, cstrDot) > 0)
If booFailed = False Then
' Check that strEMailAddr does contain a cstrAt.
intPos = InStr(strEmailAddr, cstrAt)
booFailed = (intPos = 0)
If booFailed = False Then
' Check that strEMailAddr does contain one cstrAt only.
booFailed = (InStr(intPos + 1, strEmailAddr, cstrAt) > 0)
If booFailed = False Then
' Check that the character leading cstrAt is not cstrDot.
booFailed = (Mid(strEmailAddr, intPos - 1, 1) = cstrDot)
If booFailed = False Then
' Check that the character following cstrAt is not cstrDot.
booFailed = (Mid(strEmailAddr, intPos + 1, 1) = cstrDot)
If booFailed = False Then
' Check that strEMailAddr contains at least one cstrDot
' following the sign after cstrAt.
booFailed = Not (InStr(intPos, strEmailAddr, cstrDot) > 1)
End If
End If
End If
End If
End If
End If
End If
End If
End If

IsEmailAddress = Not booFailed

End Function

beab05 · 11 Mayıs 2008

meraklı biri' Alıntı:
Sn beab05
Bu kodu nereye yerleştireceğiz Hatalarla karşılaşıyorum Yardımcı olursanız sevinirim.saygılar

Merhaba;

Kodu her şekilde kullanabilirsiniz, isterseniz aktif metin kutusunun güncelleştirme sonrasına isterseniz başka bir metin kutusu denetim kaynağında. Çok basit ve pratiktir, karakterleri oto değiştirmek amacınıza uyuyorsa tabii ki

meraklı biri · 11 Mayıs 2008

Sn gulsum1
Çok teşekkür ederim ,gerçekten faydalı bir kod.saygılar

meraklı biri · 15 Mayıs 2008

sn beab05
Sizin verdiğiniz replace = harf karakterini değiştirme formülünü formda yerleştirdim aşağıdaki şekilde ikaz veriyor.Nedenini anlıyamadım.Yardımcı olursanız sevinirim.

gulsum1 · 15 Mayıs 2008

Private Sub kelimeler_KeyPress(KeyAscii As Integer)
If KeyAscii = 246 Then '(&#246

ise
KeyAscii = 211 '(o) yap
ElseIf KeyAscii = 231 Then '(&#231

ise
KeyAscii = 99 '(c) yap
ElseIf KeyAscii = 351 Then '(&#351

ise
KeyAscii = 115 '(s) yap
ElseIf KeyAscii = 252 Then '(&#252

ise
KeyAscii = 117 '(u) yap
ElseIf KeyAscii = 287 Then '(&#287

ise
KeyAscii = 103 '(g) yap
ElseIf KeyAscii = 305 Then '(&#305

ise
KeyAscii = 105 '(i) yap
End If
End Sub

istediğin bu

gulsum1 · 15 Mayıs 2008

buda senin eklediğin son örnek sanırım sen adı soyadı alanındaki veriyi ingilizce karaktere çevireceksin

Private Sub Adı_soyadı_Exit(Cancel As Integer)
Dim deger As String
Dim deger1 As String
Dim deger2 As String
say = Len(Me.Adı_soyad&#305

For i = 1 To say
deger = Mid(Me.Adı_soyadı, i, 1)
deger1 = Replace(Replace(Replace(deger, "ö", "o"), "ğ", "g"), "ş", "s")
deger2 = deger2 + deger1
Next i
Me.değer = deger2
End Sub

daha basit bir hali vardır eminim bu benim naçizane örneğim

istenmeyen harf yada kelimenin engellenmesi

meraklı biri

mehmetdemiral

meraklı biri

mehmetdemiral

meraklı biri

mehmetdemiral

PHÖNİX1

yeni54

beab05

Özel Üye

meraklı biri

gulsum1

beab05

Özel Üye

meraklı biri

meraklı biri

gulsum1

gulsum1