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