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"
<[EMAIL PROTECTED]> 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
> >
>
