Hanya Bisa Imput atau Diketik Adalah Angka dan Huruf

Hanya bisa imput/diketik adalah angka

Waktu presentasi dan bongkar listing program, sebelum presentasi uji program saya terlebih dahulu konsultasi dengan senior tentang apa-apa saja yang di ujikan pada saat presentasi program. ternyata banyak pertanyaan dan salah satunya adalah textbox yang hanya dapat di imput dengan angka seperti nomor telpon tidak dapat di ketik dengan huruf, begitupun sebaliknya nama tidak dapat di input dengan angka. jadi jika ada yang kedapatan maka programnya tidak di terima dan di perbaiki kembali. liciknya saya, hehehe setelah dapat semua bocoran tentang pertanyaan yang di ajukan, program saya pura-pura tidak di benarkan, nanti ketika presentasi kemudian di perbaiki di tempat dan walhasil semua teman-teman yang presentasi satu dua saja yang lolos yang lainnya pulang dan tunggu jadwal presentasi kemudian.....

Trimakasi buat Kanda Allu, S.Kom
berkat beliau saya dapat membuat program


'sebelumnya rubah Click() menjadi= KeyPress(KeyAscii As Integer) pada coding


Private Sub TXT_TLP_KeyPress(KeyAscii As Integer)
If InStr("1234/5().HPhp67890", Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyReturn Then
KeyAscii = 0
End If
End Sub

-----------------------------------------------

'hanya bisa imput/diketik adalah huruf

Private Sub TXT_NAMA_KeyPress(KeyAscii As Integer)
Dim StrValid As String
StrValid = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz-"
If KeyAscii = 13 Then
txt_notel.SetFocus
End If
If InStr(StrValid, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then
KeyAscii = 0
End If
End Sub