(11/10/2018, 16:18)Allback yazdı:(11/10/2018, 16:08)notrino yazdı:(11/10/2018, 15:27)Allback yazdı:(11/10/2018, 14:47)notrino yazdı:(11/10/2018, 14:11)Allback yazdı: Ekteki örneği incelemenizi öneririm.
Ozan Bey'in yaptığı büyük harf modülü eklendi.
Metin kutusunun "güncelleştirme sonrası" olay yordamına modül tanımlandı.
Bu çok karmaşık birşey değil mi? Açıkçası ben sadece ilişkili metin kutusuna mail ve web site girişleri yapıyorum, istediğim şey küçük veri girişi sağlamak o kadar. Giriş maskesi ile çözülemeyen birşey mi ki bu kadar modüller, Vba kodlar falan...Örneğin, www.accesstr.net ya da [email protected] diye veri girerken klavyem büyükte kalsa bile veriyi girmeyip ille küçük harfe beni zorlasa (Aynen giriş maskesi sayı olan alana metin girmesine izin vermemesi gibi birşey yeterli benim için)
İstediğinizden yanlış anlamadıysam aşağıdaki yazdıklarımı uygulayın
Mail adresleri için;
geçerlilik kuralına aşağıdaki kodu yazın
Geçerlilik metni kısmına da aşağıdaki ifadeyi yazabilirsiniz.Kod:[color=#2f2f2f][size=medium]Is Null Or ((Like "*?@?*.?*") And (Not Like "*[ ,;]*"))[/size][/color]
Web adresleri içinKod:Lütfen, e-posta adresini '@' işaretiyle ve tam etki alanı adıyla (örneğin, '[email protected]') girin.
geçerlilik kuralına aşağıdaki kodu yazın
Geçerlilik metni kısmına da aşağıdaki ifadeyi yazabilirsiniz.Kod:Like "[A-Z]*.?*[A-Z].com" Or Like "[A-Z]*.?*[A-Z].net" Or Like "[A-Z]*.?*[A-Z].org"
Kod:Geçerli bir web adresi girin
Bunlar benim ana problemimi çözmüyor . Mesele şu, verdiğiniz son çözümde de veriyi girerken WWW.ACCESSTR.NET diye girdiysem tabloda da aynen bu şekilde büyük harfli kayıt görüyorum. Mesela giriş maskesine nasıl ki 000 girdiğimde harf girmeme izin vermiyorsa, bu web sitesi ve email girişleri için de giriş maskesine öyle bir şey koymalıyım ki büyük harf girişine izin vermesin. Yok mu basit bir çözüm?
Üzgünüm bildiğim modül kullanmaktan başka yöntem yok...
Ben çok basit bir şey buldum;
text verisini ister büyük girin ister küçük girin tabloya her daim "küçük harf olarak kaydeden" şu kod işimi gayet iyi görüyor;
Kod:
txtArea1 = lcase(txtArea1)