ketika user menginput suatu data, lazimnya kita menampung data tsb ke
dalam sebuah ariable.
sebuah variable dapat diketahui tyedatanya: antara lain dengan memanfaatkan
fungsi TypeName
Jadi kalau type data tidak sesuai yg dikehendaki, kita langsung dapat
mengantisipasi
kesalahan input tsb.
If TypeName(VariableMu) = "String" Then
'-------bla bla bla
Else
'------blli bli bli
End If
*
TypeName Function*
Returns a String that provides information about a variable.
Syntax: TypeName(varname)
The required varname argument is a Variant containing any variable except a
variable of a user-defined type.
Remarks
The string returned by TypeName can be any one of the following:
dst.....
cobalah menjalankan prosedur ini, dan lihat apa yg terjadi..
Sub AntiSpesifikYa()
Dim variableku As Variant
variableku = 1
MsgBox TypeName(variableku)
variableku = "KAMU"
MsgBox TypeName(variableku)
Set variableku = Sheets(1).Range("A10:B15")
MsgBox TypeName(variableku)
End Sub
2009/10/30 wahyu71 <[email protected]>
>
>
> Dear Milis,
>
> Saya mengalami kesulitan untuk perangkap error kesalahan input, contoh bila
> yang diminta input string yang diinput malah angka atau sebaliknya, saya
> coba pakai on error goto -----> looping ,hanya bisa untuk satu kali looping,
> sementara kesalahan input kan bisa berkali - kali. Bagaimana caranya ya
> untuk mengatasi masalah ini?
>
> Thanks sebelumnya.
>
> salam wahyu
>
