Fungsi Dalam Access

BEBERAPA FUNGSI DALAM ACCESS

Setelah sebelumnya kita telah mengetahui fungsi-fungsi yang wajib untuk dipahami dalam menggunakan microsoft access 2003 versi penulis, sekarang kita akan berlanjut ke bahasan mengenai fungsi-fungsi lainnya dalam ms access 2003, yang perlu anda ketahui adalah bahwa fungsi-fungsi yang akan penulis sampaikan disini hanyalah beberapa fungsi yang "umumnya" sering digunakan dalam pembuatan aplikasi-aplikasi menggunakan access, dan masih banyak lagi fungsi-fungsi lain yang "tidak umum" yang tersedia dalam ms access yang belum dapat penulis sampaikan sekarang dan disini. Namun anda bisa mempelajarinya di menu Help VBA editor ataupun dari buku-buku, serta dari searching di Google.

Berikut ini adalah beberapa fungsi dan penjelasannya secara singkat dengan contohnya dalam Ms Access 2003 (versi penulis tentu saja) :

Fungsi Date()

Akan menghasilkan Tanggal dari sistem komputer.
Contohnya :
Dim strTanggal
strTanggal = Date
Akan menghasilkan data Tanggal, misalnya 31/12/2011

Fungsi Now()

Akan menghasilkan Tanggal dan Waktu dari sistem komputer.
Contohnya :
Dim strSekarang
strSekarang = Now
Akan menghasilkan data Tanggal dan Waktu, misalnya 31/12/2011 10:30:55

Fungsi Hour()

Akan menghasilkan Jam dari waktu yang ditentukan.
Contohnya :
Dim strJam
strJam = Hour(#11:30:26#)
Akan menghasilkan 11

Fungsi Minute()

Akan menghasilkan Menit dari waktu yang ditentukan.
Contohnya :
Dim strMenit
strMenit = Minute(#11:30:26#)
Akan menghasilkan 30

Fungsi Second()

Akan menghasilkan detik dari waktu yang ditentukan.
Contohnya :
Dim strDetik
strDetik = Second(#11:30:26#)
Akan menghasilkan 26

Fungsi Time()

Akan menghasilkan Waktu (Jam:Menit:Detik) dari sistem komputer.
Contohnya :
Dim strWaktu
strWaktu = Time
Akan menghasilkan data Waktu, misalnya 11:35:59

Fungsi Day()

Akan menghasilkan nilai tanggal dari tanggal yang telah ditentukan (Berupa angka 1-31).
Contohnya :
Dim strTanggal
strTanggal = Day(“28/01/2011”)
Akan menghasilkan 28

Fungsi Month()

Akan menghasilkan nilai bulan dari tanggal yang telah ditentukan (berupa angka 1-12).
Contohnya :
Dim strBulan
strBulan = Month(#31/01/2012#)
Akan menghasilkan 1

Fungsi Year()

Akan menghasilkan nilai tahun dari tanggal yang telah ditentukan.
Contohnya :
Dim strYear
strYear = Year(#31/01/2012#)
Akan menghasilkan 2012

Fungsi Weekday

Untuk mendapatkan nilai hari dari tanggal yang telah ditentukan
Strukturnya Weekday(Tanggal, Hari pertama(Opsional, Jika tidak ditentukan maka hari pertama adalah Minggu)).
Contohnya :
Dim strHari
strHari = Weekday("31/12/2011")
Akan menghasilkan 7
Karena 31/12/2011 adalah hari sabtu, dan Hari pertama adalah Minggu.
Contoh lainnya :
strHari = Weekday("31/12/2011", vbMonday) atau Weekday("31/12/2011", 2)
Akan menghasilkan 6, karena 31/12/2011 adalah hari sabtu, dan Hari pertama adalah Senin.

Fungsi WeekdayName

Untuk mendapatkan nama hari, nama hari yang dihasilkan bisa berupa nama hari penuh atau singkatan.
Strukturnya WeekdayName(Nilai hari yang mau ditampilkan, Disingkat/Tidak(Opsional), Hari Pertama(Opsional, jika tidak ditentukan maka Hari pertama adalah Minggu))
Contohnya :
> Untuk nama hari penuh
Dim strNamaHari
strNamaHari= WeekdayName(1) atau WeekdayName(1, 0, 0) atau WeekdayName(1, False, vbSunday)
Akan menghasilkan Minggu/Sunday (Untuk WeekdayName(1, 0, 0) Jika hari pertama dalam settingan Komputer adalah Minggu)
Karena Nilai Hari yang mau ditampilkan adalah 1 yang berarti hari pertama dari Minggu.
contoh lainnya :
strNamaHari = WeekdayName(1, 0, 1) atau WeekdayName(1. False, vbMonday)
Akan menghasilkan Senin/Monday
Karena Nilai hari yang mau ditampilkan adalah 1 yang berarti hari pertama dari Senin.

> Untuk nama hari yang disingkat
Dim strNamaHari
strNamaHari = WeekdayName(1, True, vbMonday) atau WeekdayName(1, 0, 1)
Akan menghasilkan Sen/Mon
Karena Nilai hari yang mau ditampilkan adalah 1 yang berarti hari pertama dari Senin.

Fungsi MonthName

Untuk mendapatkan nama bulan, nama bulan yang dihasilkan bisa berupa nama bulan penuh atau singkatan.
Contohnya :
> Untuk nama bulan penuh
Dim strNamaBulan
strNamaBulan = MonthName(1)
Akan menghasilkan Januari

> Untuk nama bulan yang disingkat
Dim strNamaBulan
strNamaBulan = MonthName(1, True)
Akan menghasilkan Jan

Fungsi Left

Untuk mengambil karakter dari sebelah kiri sebuah Field.
Strukturnya Left(String/Field sumber, Jumlah karakter yang diinginkan)
Contohnya :
Dim strKiri as string
strKiri = Left(“Belajar Access”, 7)
Akan menghasilkan Belajar

Fungsi Right

Untuk mengambil karakter dari sebelah kanan sebuah Field.
Strukturnya Right(String/Field sumber, Jumlah karakter yang diinginkan)
Contohnya :
Dim strKanan as string
strKanan = Right(“Belajar Access”, 6)
Akan menghasilkan Access

Fungsi Len

Untuk mendapatkan jumlah karakter termasuk spasi.
Contohnya :
Dim strKarakter
strKarakter = Len(“Belajar Access”)
Akan menghasilkan 14

Fungsi Trim

Untuk menghilangkan karakter spasi diawal dan diakhir text/string.
Contohnya :
Dim strKarakter
strKarakter = Trim(“ BelajarAccess “)
Akan menghasilkan “BelajarAccess”

Fungsi LTrim

Untuk menghilangkan karakter spasi disebelah kiri text/string.
Contohnya :
Dim strKiri
strKiri = LTrim(“ BelajarAccess “)
Akan menghasilkan “BelajarAccess “

Fungsi RTrim

Untuk menghilangkan karakter spasi disebelah kanan text/string.
Contohnya :
Dim strKanan
strKanan = RTrim(“ BelajarAccess “)
Akan menghasilkan “ BelajarAccess”

Fungsi Mid

Untuk mendapatkan string dari karakter sebelah kiri text/string.
Strukturnya Mid(String/Field sumber, Karakter mulai, Jumlah karakter yang diinginkan(Opsional))
Contohnya :
> Tanpa Jumlah karakter yang diinginkan
Dim strKarakter
strKarakter = Mid(“Belajar Access”, 4)
Akan menghasilkan “ajar Access”, karena “Karakter mulai” ditentukan dari karakter keempat.

> Dengan jumlah karakter yang diinginkan
Dim strKarakter
strKarakter = Mid(“Belajar Access”, 4, 4)
Akan menghasilkan “ajar”
karena “Karakter mulai” ditentukan dari karakter keempat dengan hasil yang diinginkan sebanyak 4 karakter dari “Karakter mulai”.

Fungsi Replace

Untuk mengganti karakter dengan karakter lain dalam suatu string/field.
Contohnya :
Dim strUtama, strSumber, strTarget, strHasil
strUtama = "Belajar Access"
strSumber = "Belajar"
strTarget = "Mengajar"
strHasil = Replace(strUtama, strSumber, strTarget)
Akan menghasilkan “Mengajar Access”.

Fungsi DFirst

Untuk mendapatkan record pertama dari sebuah table.
Strukturnya DFirst(Field yang dicari, Nama Tabel, Kriteria(Opsional))
Contohnya :
DFirst(“NamaUser”, “tblUser”)

Fungsi DLast

Untuk mendapatkan record terakhir dari sebuah table.
Strukturnya DLast(Field yang dicari, Nama Tabel, Kriteria(Opsional))
Contohnya :
DLast(“NamaUser”, “tblUser”)

Fungsi DMin

Untuk mendapatkan record dengan nilai terendah dalam sebuah table.
Strukturnya DMin(Field yang dicari, Nama Tabel, Kriteria (Opsional))
Contohnya :
DMin(“LoginTerakhir”, ”tblUser”)

Fungsi DMax

Untuk mendapatkan record dengan nilai tertinggi dalam sebuah table.
Strukturnya DMax(Field yang dicari, Nama Tabel, Kriteria (Opsional))
Contohnya :
DMax(“LoginTerakhir”, ”tblUser”)

Fungsi DateDiff

Untuk mendapatkan selisih dari dua tanggal.
Strukturnya DateDiff(Jenis selisih yang diinginkan (Tanggal/Bulan/Tahun), Tanggal Pertama, Tanggal Kedua)
Untuk mendapatkan selisih dalam jumlah Tanggal gunakan “d”, untuk Bulan gunakan “m”, untuk Tahun gunakan “yyyy”.
Contohnya :
DateDiff(“d”, “25/01/2011”, “25/02/2011”) Akan menghasilkan 31
DateDiff(“m”, “25/01/2011”, “25/02/2011”) Akan menghasilkan 1
DateDiff(“yyyy”, “25/01/2011”, “25/02/2011”) Akan menghasilkan 0

Fungsi DateAdd

Untuk menambahkan tanggal/bulan/tahun dari tanggal yang telah ditentukan.
Strukturnya DateAdd(Jenis penambahan yang diinginkan (Tanggal/Bulan/Tahun), Jumlah penambahannya, Tanggal acuan penambahan)
Untuk mendapatkan penambahan Tanggal gunakan “d”, untuk Bulan gunakan “m”, untuk Tahun gunakan “yyyy”.
Contohnya :
DateAdd(“d”, 2, “25/02/2011”) Akan menghasilkan 27/02/2011
DateAdd(“m”, 2, “25/02/2011”) Akan menghasilkan 25/04/2011
DateAdd(“yyyy”, 2, “25/02/2011”) Akan menghasilkan 25/02/2013

Fungsi IIf

IIf (Immediate If) adalah fungsi If yang akan menghasilkan satu nilai berdasarkan kriteria dari nilai tersebut(bersifat True dan False).
Strukturnya IIF(Kriteria, “Hasil jika Kriteria bernilai True”, “Hasil jika Kriteria bernilai False”)
Contohnya :
IIf(Text0 <= 1000, "Kurang dari sama dengan seribu", "Lebih dari seribu")
Akan menghasilkan “Kurang dari sama dengan seribu” jika Text0 berisi angka 0-1000
Akan menghasilkan “Lebih dari seribu” jika Text0 berisi selain dari 0-1000 atau Null
Anda harus berhati-hati menggunakan Fungsi ini, karena bisa saja terjadi hasil yang diluar dugaan ataupun terjadi Error.

Semoga bermanfaat...

Posted in: belajar access 2003