+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim? (/konu-eposta-adresi-yazilirken-turkce-karakterleri-nasil-engelleyebilirim.html)
Sayfalar:
1
2
eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim? - vetaltan - 10/01/2010
access 2000 de forma eposta adresi girerken türkçe yada büyük harflerin kullanımının engellenmesi için giriş maskesini kullanabilirmiyim.yada bunu bir kodla yazarak,hatalı harf kullanıldığında mesajla nasıl uyarabilirim.
Cvp: eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim? - alpeki99 - 10/01/2010
Bunun için kullanılabilecek iki yöntem daha önce aynı konuda anlatılmıştı. Artık hangisi işinize gelecekse siz tercih edersiniz.
Cvp: eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim? - mehmetdemiral - 10/01/2010
Bu konuda zamanında Eşref'in eklediği bir modül vardı. Bence onu kullanın:
Kod:
Function IsEmailAddress(ByVal strEmailAddr As String) As Boolean
Const cstrValidChars As String = "@_-.0123456789abcdefghijklmnopqrstuvwxyzİ"
Const cstrDot As String = "."
Const cstrAt As String = "@"
Const cintAddressLenMin As Integer = 6
Dim strValidChars As String
Dim booFailed As Boolean
Dim intPos As Integer
Dim intI As Integer
strEmailAddr = LCase(strEmailAddr)
For intI = 1 To Len(strEmailAddr)
If InStr(cstrValidChars, mid(strEmailAddr, intI, 1)) = 0 Then
booFailed = True
End If
Next
If booFailed = False Then
booFailed = Left(strEmailAddr, 1) = cstrAt
If booFailed = False Then
booFailed = Left(strEmailAddr, 1) = cstrDot
If booFailed = False Then
intPos = Len(strEmailAddr)
booFailed = (intPos < cintAddressLenMin)
If booFailed = False Then
booFailed = (InStr(intPos - 1, strEmailAddr, cstrDot) > 0)
If booFailed = False Then
intPos = InStr(strEmailAddr, cstrAt)
booFailed = (intPos = 0)
If booFailed = False Then
booFailed = (InStr(intPos + 1, strEmailAddr, cstrAt) > 0)
If booFailed = False Then
booFailed = (mid(strEmailAddr, intPos - 1, 1) = cstrDot)
If booFailed = False Then
booFailed = (mid(strEmailAddr, intPos + 1, 1) = cstrDot)
If booFailed = False Then
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 FunctionCvp: eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim? - ozanakkaya - 10/01/2010
mehmetdemiral hocamın eklediği modülün uygulanmış hali aşağıdaki linktedir.
e-posta adresi kontrolü
Cvp: eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim? - vetaltan - 11/01/2010
kod çok işime yaradı ,teşekkür ederim.Ancak email adresini boş bırakarak çıkarsam hata iletisi veriyor(runtime error 94,invalid use of null).Bunu nasıl çözümleyebilirim?
Cvp: eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim? - ozanakkaya - 11/01/2010
Kod:
if isnull(Metin0) then
exit sub
end if
If IsEmailAddress(Metin0.Value) = False Then
MsgBox "email adresi yanlış", vbInformation, "uyarı"
End If