--- In ITCENTER@yahoogroups.com, "Don Rudy" <[EMAIL PROTECTED]> wrote: > > Dear All, saya perlu bantuan nich. Semoga ada yang mau bantu. > Saya sedang membuat aplikasi payroll di kantor menggunakan Visual Basic. > Untuk input angka saya menggunakan KeyAscii supaya karakter lain(selain > angka) tidak bisa diinput. Masalahnya adalah angka yang dimasukkan > seharusnya bisa Decimal(dengan menggunakan "."), saya sudah mencoba > menggunakan VbKeyDecimal tapi tidak berfungsi... > Saya inputkan "." tetap muncul MsgBox, berikut ini saya sertakan code-nya. > Thanks. > > Private Sub txt_jamlembur_KeyPress(KeyAscii As Integer) > On Error Resume Next > If ((KeyAscii >= vbKey0) And (KeyAscii <= vbKey9)) Or (KeyAscii = > vbKeyBack) Or (KeyAscii = vbKeyDecimal) Then > Exit Sub > Else > MsgBox ("Anda harus memasukkan angka."), vbOKOnly + vbExclamation, > "Peringatan" > KeyAscii = vbKeyBack > End If > On Error GoTo 0 > End Sub > > > [Non-text portions of this message have been removed] >
mungkin bisa dicoba seperti berikut ini : if ((KeyAscii >= vbKey0) and (KeyAscii <= vbKey9)) or (KeyAscii = vbKeyBack) or (KeyAscii = Asc(".")) -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## ## Jaket ITCENTER tersedia di http://shop.itcenter.or.id Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/ITCENTER/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/