jawaban sementara mungkin peristiwa LOST_FOCUS belum terjadi (kursor masih di dalam textbox)
dalam petanyaan y.l. tidak diberitakan bahwa ada tombol (yg dlm pemrograman ini berguna untuk "pembatas" kapan textbox boleh mulai dievaluasi... (jadi tidak perlu menggunakan Event Lost_Focus. btw, daripada kelamaan membicarakan hal yg tidak jelas yang bisa mengakibatkan pingpong & tebak-tebakan.. saya kira lebih baik pak nana (kalau tidak keberatan) melampirkan contoh workbooknya (seperti kasus lain) data -data yg bersifat 'rahasia' dan hal yg tidak berguna dapat dihilangkan dulu atau dganti dengan data dummies... ~siti 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 > Saya coba jalankan formnya dengan menekan tombol "tambah" dan karakter yang saya masukan hanya 4 karakter, datanya tetap masuk > apakah ada yang salah? > terimakasih > Nana Suwargana
