10/01/2010, 19:02
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.
Sayfalar: 1 2
10/01/2010, 19:02
10/01/2010, 20:43
Bunun için kullanılabilecek iki yöntem daha önce aynı konuda anlatılmıştı. Artık hangisi işinize gelecekse siz tercih edersiniz.
10/01/2010, 21:18
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 Function10/01/2010, 21:30
11/01/2010, 18:13
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?
11/01/2010, 18:29
Kod:
if isnull(Metin0) then
exit sub
end if
If IsEmailAddress(Metin0.Value) = False Then
MsgBox "email adresi yanlış", vbInformation, "uyarı"
End IfSayfalar: 1 2