jump to navigation

Inspection Functions 20 Juli, 2006

Posted by saya in Artikel.
trackback

Oleh: Soffyan Effendy

Fungsi-fungsi Inspection digunakan untuk mengembalikan nilai Boolean (True/False) ketika suatu variable, expression, argument ataupun identifier apakah termasuk kelompoknya atau tidak.

Terdapat 8 fungsi yang termasuk kedalam fungsi Inspection ini, diantaranya adalah:

1. IsArray, digunakan untuk mengecek apakah variable tersebut termasuk array atau tidak.

Contoh:

Dim MyArray(1 To 5) As Integer, YourArray, MyCheck – Declare array variables.
YourArray = Array(1, 2, 3) – Use Array function.
MyCheck = IsArray(MyArray) – Returns True.
MyCheck = IsArray(YourArray) – Returns True.

2. IsDate, digunakan untuk mengecek apakah variable tersebut termasuk tanggal atau tidak.

Contoh:

Dim MyDate, YourDate, NoDate, MyCheck
MyDate = *February 12, 1969*: YourDate = #2/12/69#: NoDate = *Hello*
MyCheck = IsDate(MyDate) – Returns True.
MyCheck = IsDate(YourDate) – Returns True.
MyCheck = IsDate(NoDate) – Returns False.

3. IsEmpty, digunakan untuk mengecek apakah variable tersebut telah terdapat data atau tidak.

Contoh:

Dim MyVar, MyCheck
MyCheck = IsEmpty(MyVar) – Returns True.

MyVar = Null – Assign Null.
MyCheck = IsEmpty(MyVar) – Returns False.

MyVar = Empty – Assign Empty.
MyCheck = IsEmpty(MyVar) – Returns True.

4. IsError, digunakan untuk mengecek apakah expression tersebut terdapat error atau tidak.

Contoh:

Dim ReturnVal, MyCheck
ReturnVal = UserFunction()
MyCheck = IsError(ReturnVal) – Returns True.

5. IsMissing, digunakan untuk mengecek apakah argument tersebut sudah dilewatkan kedalam suatu procedure atau tidak.

Contoh:

Dim ReturnValue
– The following statements call the user-defined function procedure.
ReturnValue = ReturnTwice() – Returns Null.
ReturnValue = ReturnTwice(2) – Returns 4.

– Function procedure definition.
Function ReturnTwice(Optional A)
If IsMissing(A) Then
– If argument is missing, return a Null.
ReturnTwice = Null
Else
– If argument is present, return twice the value.
ReturnTwice = A * 2
End If
End Function

6. IsNull, digunakan untuk mengecek apakah expression tersebut nilainya kosong atau tidak.

Contoh:

Dim MyVar, MyCheck
MyCheck = IsNull(MyVar) – Returns False.

MyVar = **
MyCheck = IsNull(MyVar) – Returns False.

MyVar = Null
MyCheck = IsNull(MyVar) – Returns True.

7. IsNumeric, digunakan untuk mengecek apakah expression tersebut termasuk numeric (number) atau tidak.

Contoh:

Dim MyVar, MyCheck
MyVar = *53* – Assign value.
MyCheck = IsNumeric(MyVar) – Returns True.

MyVar = *459.95* – Assign value.
MyCheck = IsNumeric(MyVar) – Returns True.

MyVar = *45 Help* – Assign value.
MyCheck = IsNumeric(MyVar) – Returns False.

8. IsObject, digunakan untuk mengecek apakah variable tersebut termasuk object atau tidak.

Contoh:

Dim MyInt As Integer, YourObject, MyCheck – Declare variables.
Dim MyObject As Object
Set YourObject = MyObject – Assign an object reference.
MyCheck = IsObject(YourObject) – Returns True.
MyCheck = IsObject(MyInt) – Returns False.
Catatan:

Diambil dari milis belajar-access@yahoogroups.com

Komentar»

No comments yet — be the first.

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: