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
2011/10/17 Nana Suwargana <nanacasef@yahoo.co.id>
>
> 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
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 <nanacasef@yahoo.co.id>
>
> 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
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance. |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance. |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário