Fungsi Space di MS Access

Di Access, fungsi Space digunakan untuk membuat karakter spasi (" ") dalam jumlah tertentu. Nilai yang dihasilkan oleh fungsi Replace adalah teks dengan tipe data Variant (String).

Sintaks penulisan fungsi Replace adalah sebagai berikut:

Space(Number)

Keterangan:

Number (Angka): wajib diisi, berupa angka yang menunjukkan berapa banyak karakter spasi yang ingin dibuat.

Fungsi Space sangat  berguna bila kita ingin membuat output berupa file teks maupun hasil cetakan. Hasil cetakan menggunakan printer dotmatrix umumnya memasukkan fungsi Space untuk membuat output menjadi rapi. Demikian pula, bila output disimpan dalam bentuk file teks, maka penggunaan fungsi Space sangat membantu.

Berikut ini adalah contoh penggunaan fungsi Space di VBA:

view plainprint?

1. Function contohFungsiSpace(strTeks As String, lnPanjang As Long, Optional blRataTengah As Boolean = False) As String  
2.   Dim lnPanjangKarakter, lnPanjangSpasiKiri, lnPanjangSpasiKanan As Long  
3.     
4.   lnPanjangKarakter = Len(strTeks)  
5.     
6.   lnPanjangSpasiKiri = Int((lnPanjang - lnPanjangKarakter) / 2)  
7.   If blRataTengah Then  
8.     contohFungsiSpace = Space(lnPanjangSpasiKiri) & strTeks & Space(lnPanjang - lnPanjangKarakter - lnPanjangSpasiKiri)  
9.   Else  
10.     contohFungsiSpace = strTeks & Space(lnPanjang - lnPanjangKarakter)  
11.   End If  
12. End Function  

Function contohFungsiSpace(strTeks As String, lnPanjang As Long, Optional blRataTengah As Boolean = False) As String
  Dim lnPanjangKarakter, lnPanjangSpasiKiri, lnPanjangSpasiKanan As Long
  
  lnPanjangKarakter = Len(strTeks)
  
  lnPanjangSpasiKiri = Int((lnPanjang - lnPanjangKarakter) / 2)
  If blRataTengah Then
    contohFungsiSpace = Space(lnPanjangSpasiKiri) & strTeks & Space(lnPanjang - lnPanjangKarakter - lnPanjangSpasiKiri)
  Else
    contohFungsiSpace = strTeks & Space(lnPanjang - lnPanjangKarakter)
  End If
End Function

Bila dijalankan di Immediate Window:

view plainprint?

1. ? contohFungsiSpace("Tgl",10,True)  
2.    Tgl    '(ada 3 spasi kosong di kiri dan 4 spasi kosong di kanan)  
3.   
4. ? contohFungsiSpace("Tgl",10)  
5. Tgl       '(ada 7 spasi kosong di kanan)  
6.   
7. ? contohFungsiSpace("Departemen",20)  
8. Departemen          '(ada 10 spasi kosong di kanan)  
9.   
10. ? contohFungsiSpace("Departemen",20,True)  
11.      Departemen     '(ada 5 spasi kosong di kiri dan 5 spasi kosong di kanan)  

? contohFungsiSpace("Tgl",10,True)
   Tgl    '(ada 3 spasi kosong di kiri dan 4 spasi kosong di kanan)

? contohFungsiSpace("Tgl",10)
Tgl       '(ada 7 spasi kosong di kanan)

? contohFungsiSpace("Departemen",20)
Departemen          '(ada 10 spasi kosong di kanan)

? contohFungsiSpace("Departemen",20,True)
     Departemen     '(ada 5 spasi kosong di kiri dan 5 spasi kosong di kanan)