Fungsi Len di MS Acccess

Di Acccess, fungsi Len digunakan untuk menentukan berapa banyak jumlah karakter dalam sebuah teks atau berapa banyak byte yang dibutuhkan untuk menyimpan sebuah variabel.
Sintaks penulisan fungsi Len adalah sebagai berikut:

Len(String| VarName)

Keterangan:

String (teks): wajib diisi, berupa teks dengan tipe data String/Text. Jika nilai String adalah Null, maka fungsi Len akan bernilai Null.

atau

VarName (nama variabel): berupa nama variabel. Jika nilai VarName adalah Null, maka fungsi Len akan bernilai Null. Jika VarName mempunyai tipe data Variant, fungsi Len akan memperlakukannya sebagai tipe data String/Text.

Untuk menentukan berapa banyak byte yang dibutuhkan untuk menyimpan sebuah teks/variabel, kita bisa menggunakan fungsi LenB.

Berikut ini adalah contoh penggunaan fungsi Len di VBA.

view plainprint?

1. ? Len("Sepak Bola")  
2.  10   
3.   
4. ? LenB("Sepak Bola")  
5.  20   

? Len("Sepak Bola")
 10 

? LenB("Sepak Bola")
 20 

Berikut ini adalah contoh penggunaan fungsi Len yang lebih kompleks.

view plainprint?

1. Type DataPelanggan  
2.   ID As Integer '(catatan: panjang nilai tipe data Integer adalah 2)  
3.   Nama As String * 10 '(catatan: pada contoh ini, panjang nilai tipe data String adalah 10)  
4.   Alamat As String * 60 '(catatan: pada contoh ini, panjang nilai tipe data String adalah 60)  
5. End Type  
6. Dim Pelanggan As DataPelanggan    ' Deklarasi variabel.  
7. Dim intContoh As Integer, curContoh As Currency  
8. Dim strContoh, lenContoh  
9.   
10. Function ContohFungsiLen()  
11.   strContoh = "Susilo Budi"    ' Inisialisasi variabel.  
12.   lenContoh = Len(intContoh)    ' bernilai 2.  
13.   Debug.Print lenContoh  
14.   lenContoh = Len(Pelanggan)    ' bernilai 72 (2 + 10 + 60).  
15.   Debug.Print lenContoh  
16.   lenContoh = Len(strContoh)    ' bernilai 11.  
17.   Debug.Print lenContoh  
18.   lenContoh = Len(curContoh)    ' bernilai 8.  
19.   Debug.Print lenContoh  
20. End Function  

Type DataPelanggan
  ID As Integer '(catatan: panjang nilai tipe data Integer adalah 2)
  Nama As String * 10 '(catatan: pada contoh ini, panjang nilai tipe data String adalah 10)
  Alamat As String * 60 '(catatan: pada contoh ini, panjang nilai tipe data String adalah 60)
End Type
Dim Pelanggan As DataPelanggan    ' Deklarasi variabel.
Dim intContoh As Integer, curContoh As Currency
Dim strContoh, lenContoh

Function ContohFungsiLen()
  strContoh = "Susilo Budi"    ' Inisialisasi variabel.
  lenContoh = Len(intContoh)    ' bernilai 2.
  Debug.Print lenContoh
  lenContoh = Len(Pelanggan)    ' bernilai 72 (2 + 10 + 60).
  Debug.Print lenContoh
  lenContoh = Len(strContoh)    ' bernilai 11.
  Debug.Print lenContoh
  lenContoh = Len(curContoh)    ' bernilai 8.
  Debug.Print lenContoh
End Function

Bila dijalankan di Immediate Window, fungsi ContohFungsiLen seperti di bawah ini:

view plainprint?

1. ? ContohFungsiLen  
2.  2   
3.  72   
4.  11   
5.  8   

? ContohFungsiLen
 2 
 72 
 11 
 8