Sudah saya coba Om dgn menguji ketiga criteria tersebut ("@",spasi,
dan huruf besar). Ternyata masih kurang satu criteria lagi, yaitu
adanya "identitas" mail servernya, seperti ".com", atau ".org"
atau ".co.id" dll. Jadi saya tambah code nya :
'-----------------------
With Me!Text0
strSearch = "@"
' Find string in text.
intWhere = InStr(.Value, strSearch)
If intWhere Then
' If found.
.SelStart = intWhere - 1
.SelLength = Len(strSearch)
End If
End With
'cek "."
If Not InStr(intWhere, Me.Text0, ".") > 0 Then
MsgBox "Not valid address"
Cancel = True
Exit Sub
End If
'-------------------------
code di atas disimpan setelah bagian 'cek @
tambahan informasi juga dari teman saya yg belajar php tadi.. bahwa
huruf besar sebenarnya tidak terlalu menjadi masalah, karena dlm
email address, atau juga dalam alamat web sifatnya "case
insensitive", walaupun saya memilih memasukkan criteria huruf besar
dalam validasi email.
Salam
Bobby
--- In [email protected], "Bobby" <[EMAIL PROTECTED]> wrote:
>
> Cocok Om... tiga kriteria itu yg utama (spasi, huruf besar dan
> character "@")untuk validasi (istilah validasi yg lebih tepat
mungkin
> bukan mengecek ejaan alamat email).
>
> Saya juga dapat masukan dari teman saya yng mempelajari php,
> sebagaian dari string php-nya :
> "^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$"
> penjelasan dari scrip di atas kurang lebih :
>
> - Bagian pertama, sebelum tanda plus (+)yg pertama sbl "@", adalah
> email user name, dan karakter2 tsb yg diperbolehkan untuk mengisi
> bagian tersebut.
>
> - Bagian kedua, setelah tanda plus. adalah email web server-nya
> (kalau tidak salah istilahnya), harus diawali dgn character "@" dan
> karakter yang diperbolehkan.
>
> Character2 itu adalah karakter yg umum digunakan di dunia maya
untuk
> alamat email, walaupun saya belum kebayang bagaimana menggabungkan
ke
> dalam codes, bahkan belum memutuskan untuk memasukkannya atau
tidak...
>
> Codes dari om Aksan baru akan saya coba... (saya langsung bales
> setelah baca reply), tapi sepertinya sudah sejalan dengan maksud
saya.
> Saya akan kabarkan hasilnya segera setelah saya coba.
>
> Terimakasih
>
> Salam
>
> Bobby
>
>
> --- In [email protected], "M. Aksan Kurdin"
> <aksan.kurdin@> wrote:
> >
> > bagaimana aturan ejaan yang anda inginkan ?
> > saya kasih contoh aturan berikut:
> > - "@" harus ada
> > - tidak boleh huruf besar
> > - tidak boleh ada spasi
> >
> > maka anda sedikit bermain dengan fungsi vba di event before
update
> > text box:
> >
> > Private Sub Text0_BeforeUpdate(Cancel As Integer)
> > Dim JumlahKata As Integer
> > Dim c As String * 1
> > Dim i As Integer
> >
> > ' cek "@"
> > If Not InStr(1, Me.Text0, "@") > 0 Then
> > MsgBox "Not valid address"
> > Cancel = True
> > Exit Sub
> > End If
> >
> > Me.Text0 = Trim(Me.Text0)
> > JumlahKata = Len(Me.Text0)
> >
> > For i = 1 To JumlahKata
> > c = Mid(Me.Text0, i, 1)
> >
> > ' cek Capital
> > If InStr(1, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", c,
> > vbBinaryCompare) > 0 Then
> > MsgBox "Capital " & c & " found!"
> > Cancel = True
> > Exit Sub
> > End If
> >
> > ' cek space
> > If c = Chr(32) Then
> > MsgBox "Space found!"
> > Cancel = True
> > Exit Sub
> > End If
> > Next i
> >
> > End Sub
> >
> >
> > aksan kurdin
> >
> >
> > --- In [email protected], "Bobby" <abo_madani@>
wrote:
> > >
> > > Dear All ?
> > >
> > > Bagaimana mengecek ejaan alamat email yang diinput user
> > > ke dalam sebuah text box, seprti penulisan huruf besar, spasi
> > > dsb.
> > > Bukan merubah menjadi lower case dalam after update event nya,
> tapi
> > > memebri tahu user bahwa alamar email yg sudah diisi salah
> > mengejanya.
> > >
> > > Salam Bobby
> > >
> >
>
