Private Sub TextBox1_LostFocus()
If Len(TextBox1.Value) < 6 Then
MsgBox "panjang data kurang dari 6 karakter", _
vbExclamation, "Tak kasih tauk ya.."
End If
End Sub
di diedit sedikit * menjadi:*
Private Sub TextBox1_LostFocus()
If Len(TextBox1.Value) < 6 Then
MsgBox "panjang data kurang dari 6 karakter", _
vbExclamation, "Tak kasih tauk ya.."
* TextBox1 = ""*
End If
End Sub
tricky, tricky, tricky
2011/10/17 Nana Suwargana <[email protected]>
> **
> terimakasih 'mba Devi
>
> maaf mba... saya kurang paham
> dalam contoh ini di anggap anda mengaplikasikan object TextBox
> yg dibuat dari Active-X Control ditempelkan di sheet (bukan di userForm)
>
> saya buat sendiri form nya namanya form_barang, tar hasil inputannya ketika
> klick tombol "tambah" akan dimasukan ke worksheet barang.
> Nah saya pengennya ketika tekan "tambah", kalo karakternya >6 karakter akan
> memberi peringatan
> Kalau untuk yang lebih dari 6 karakter saya dah berhasil dengan mengubah
> properties txt_kode dengan mengubah MaxLength menjadi 6
> untuk yang <6 karakter belum berhasil.
> saya dah coba prosedur dari mba Devi
> Private Sub txt_kode_LostFocus()
> If Len(txt_kode.Value) < 6 Then
> MsgBox "panjang kode kurang dari 6 karakter", _
> vbExclamation, "Jumlah Karakter kode harus 6 karakter"
> End If
> End Sub
>
>
