eposta adresi yazılırken Türkçe karakterleri nasıl engelleyebilirim?
Tarih
10/01/2010 19:02
Konu Sahibi
vetaltan
Yorumlar
6
Okunma
2251
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
vetaltan
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
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.
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.061
29/10/2008
Ordu
Ofis 2013 32 Bit
21/05/2017,22:21
Çözüldü 
Sponsor Reklam
Bunun için kullanılabilecek iki yöntem daha önce aynı konuda anlatılmıştı. Artık hangisi işinize gelecekse siz tercih edersiniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Çözüldü 
Bu konuda zamanında Eşref'in eklediği bir modül vardı. Bence onu kullanın:

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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 Function


İnadına, ille de Accesstr.net...
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.592
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:11
Çözüldü 
Sponsor Reklam
mehmetdemiral hocamın eklediği modülün uygulanmış hali aşağıdaki linktedir.

e-posta adresi kontrolü
Cevapla

vetaltan
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... A....
100
16/11/2009
10
İstanbul
Ofis 2000
12/01/2016,19:49
Çözüldü 
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?
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.592
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:11
Çözüldü 
Sponsor Reklam

Kod:
1
2
3
4
5
6
if isnull(Metin0) then
exit sub
end if
If IsEmailAddress(Metin0.Value) = False Then
MsgBox "email adresi yanlış", vbInformation, "uyarı"
End If


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Accesste Seçilen Resim Sabit-Diğer Resimler Random Nasıl Yapılır? mehami 6 308 17/04/2017, 13:02 mehami
  Access Runtime Error 2220 Çözümü Nasıl Olmalı? mehami 2 117 15/04/2017, 14:57 mehami
  Access Formda Rastgele (random) Resimlerin Aynı Olmamasını Nasıl Sağlarız? mehami 5 234 15/04/2017, 09:25 ozanakkaya
  Accesste Resime Tıklama Ve Ses Dosyası Çalıştırma Nasıl Yapılır? mehami 2 141 14/04/2017, 00:26 mehami
  Sorgu Sonucunu Excel'e SQL Kod ile Nasıl Yazdırılır cozumuret 16 340 27/03/2017, 11:18 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status