Terima kasih Pak Seno sudah saya coba dan berjalan dengan baik Maaf nih tanya lagi Kalo scrip codenya setelah di update gimana kalo di Access Private sub textbox_AfterUpdate() End Sub terima kasih banyak atas responya
--- On Tue, 17/11/09, Suseno Seno <[email protected]> wrote: From: Suseno Seno <[email protected]> Subject: RE: [Programmer-VB] Scrip code To: [email protected] Date: Tuesday, 17 November, 2009, 8:45 AM Kl textbox yang multiline = true ( ini untuk textbox yang di set lebih dari 1 baris, missal untuk nulis keterangan ato alamat yang panjang. Di procedure : keypress , pasang code ini : If KeyAscii = 13 Then SendKeys "{backspace}" ‘è untuk membuang karakter “enter” SendKeys "{tab}" ‘è untuk meneruskan ke tabindex selanjutnya ‘atau bisa langsung ditulis coding disini End If Coding juga bisa dipasang didalam if itu, atau bisa dipasang di losfocus. Kl textbox nya tidak diset multiline=true , maka code nya hanya : If KeyAscii = 13 Then SendKeys "{tab}" ‘è untuk meneruskan ke tabindex selanjutnya ‘ atau bisa langsung tulis coding disini End If Semoga sedikit membantu. From: Programmer-VB@ yahoogroups. com [mailto:Programmer- v...@yahoogroups. com] On Behalf Of sodikin vk Sent: 17 Nopember 2009 7:08 To: Programmer-VB@ yahoogroups. com Subject: [Programmer- VB] Scrip code Selamat pagi semuanya Saya masih newbie di vb nih. Mau nanya bagaimana scrip codenya kalo setelah mengisi textbox kemudian enter maka akan menjalankan scrip berikutnya. Kalo di Access Private Sub textbox_AfterUpdate () End Sub kalo di vb kok ngga bisa. Get your preferred Email name! Now you can @ymail.com and @rocketmail. com. Get your preferred Email name! Now you can @ymail.com and @rocketmail.com. http://mail.promotions.yahoo.com/newdomains/aa/
