Access >> Manipulasi Tabel dengan VBScript

Menambah Data

Menambah data pada sebuah tabel MS-Access, pada dasarnya adalah rangkaian proses :

1. Membuka database
2. Membuka tabel
3. Menambahkan baris kosong untuk record baru
4. Mengisi baris/record baru dengan data
5. Menyimpan data record baru

Private Sub cmdsimpan_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb() ' buka dtabase dan simpan di variabel db
Set rs = db.OpenRecordset("TNama") 'buka tabel TNama n simpan record di variabel rs
rs.AddNew 'menambah record kosong
rs!nama = txtnama 'mengisi record dengan nilai textbox
'tambahkan field-field yang lain disini, jika ada.............
rs.Update 'konfirmasi penyimpanan secara tetap
pesan = MsgBox("Data tersimpan", vbOKOnly, "Simpan")
rs.Close 'tutup recordset
db.Close 'tutup database
End Sub

contoh bisa di-download disin :
http://aburizki.multiply.com/journal/item/25/Manipulasi_Tabel_dengan_VBScript

Selengkapnya......

Access >> Membuat Form LogIn

Walaupun tidak semua aplikasi memerlukan proteksi, tetapi ada baiknya dilengkapi dengan form untuk login. Minimal bisa dicatat siapa saja yang menjalankan aplikasi, sehingga jika terjadi masalah dengan aplikasi bisa diketahui siapa pemakai terakhir.

Untuk membuat form login, langkah-langkahnya sebagai berikut :

1. Buat tabel baru dengan nama Tuser dan definisikan field dengan
nama userid dan pword, keduanya bertipe text.

2. Buat form baru dan tempatkan dua buah textbox. Namakan textbox dengan
txtuser dan txtpword. Tambahkan sebuah button dan beri nama cmdlogin.



3. Untuk textbox txtpword ubah properties untuk Data-Input Mask menjadi Password.




4. Tambahlan script untuk event click button cmdlogin :

Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tuser where userid ='" & txtuser & _
"' and pword ='" & txtpword & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
‘proses selanjutnya tulis disini……
Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
End If
End Sub

File .mdb download disini

Selengkapnya......

Excel >> Membuat DropDown List (Combo Box)

Mengisi data yang sama secara berulang secara manual berpotensi tidak konsistennya cara penulisan huruf. Walaupun dapat dilakukan dengan proses Copy-Paste, jika posisi data berselang-seling tentunya tidak efisien lagi. Untuk mengatasi hal tersebut dapat digunakan Dropdown List (Combo Box).

Langkah-langkah pembuatan Drop Down List :

1. Ketik nama-nama berikut pada sel E2-E6, sebagai sumber data:
Aman, Amin, Iman, Emon, Imin

2. Pilih sel A2

3. Pilih menu Data – Validation

4. Validation Criteria, pilih List

5. Untuk mendefinisikan sumber data (Source), klik tanda merah :

6. Pilih/blok sel E2-E6

7. Tutup Data Validation box dengan memilih tanda silang

8. Klik OK, akan terlihat tanda segitiga terbalik pada sel A2

9. Klik tanda segitiga terbalik untuk menampilkan pilihan

10. Format pada sel A2 bisa disalin ke sel dibawahnya dengan
proses Copy-Paste

Selengkapnya......

Excel >> Nilai Warna Pada Excel

Melakukan format pada sebuah sel pada MS-Excel berdasarkan nilai tertentu bisa dilakukan dengan menggunakan Conditional Format. Tetapi sebaliknya, bagaimana cara memberi nilai pada sebuah sel berdasarkan format yang ada pada sel lain? Misalnya, sel B2 akan terisi nilai 60 jika cell A2 berlatar belakang merah.

Cara yang dapat dilakukan adalah dengan membaca nilai warna yang menjadi latar belakang sel tersebut, kemudian menjadikan nilai tersebut sebagai kondisi untuk menentukan nilai. Hal ini dapat dilakukan dengan memanfaatkan kemampuan MS-Excel mengelola VBA script. Langkah–langkahnya adalah sebagai berikut :

- Buka worksheet baru atau worksheet yang sudah dibuat
- Pilih Tools-Macro-Visual Basic Editor
- Pada panel Project, klik kanan pada pilihan Microsoft Excel Project
- Pilih Insert-Modul
- Ketik script berikut :

Public Function nilaiwarna(ByVal Target As Range) As Integer
Dim nwarna As Integer
nwarna = Target.Interior.ColorIndex
nilaiwarna = nwarna
End Function

Fungsi diatas bisa digunakan untuk mengetahui nilai warna latar belakang sebuah sel. Caranya cukup dengan menuliskan fungsi nilaiwarna(celladdress) atau pada kasus dibawah :
. Sel B2 diisi dengan fungsi : =nilaiwarna(A2)
· Sel B3 diisi dengan fungsi : =nilaiwarna(A3)
· Sel B4 diisi dengan fungsi : =nilaiwarna(A4)
· Sel B5 diisi dengan fungsi : =nilaiwarna(A5)

Misalkan akan diisikan skor 60 pada kolom B jika sel A berlatar belakang biru (nilai warna = 5) :
· Sel B2 diisi dengan fungsi : if(nilaiwarna(A2)=5,60,0), kemudian copy ke sel dibawahnya. Hasilnya :

Selengkapnya......

Excel >> Pengolahan Data Tanggal (Function & Add-Ins)

Pengolahan untuk melakukan konversi data string menjadi tanggal dengan menggunakan formula dan fungsi bawaan MS-Excel, akan dirasakan cukup rumit untuk pemula. Jika anda bertanggung jawab untuk mambantu user dalam hal pengolahan data seperti ini, maka akan dibutuhkan satu tools yang akan membuat anda bisa berisitirahat dari rutinitas melayani user. Begitu juga dengan user yang akan mengurangi ketergantungannya dengan anda. Kemampuan MS-Excel mengelola VBA script akan sangat membantu.

1. Membuat Fungsi
- Buka worksheet baru
- Pilih menu Tools-Macro-Visual Basic Editor
- Pada panel sebelah kiri Klik kanan VBA Project(sheet1)
- Pilih Insert-Module
- Pada panel sebelah kanan ketik script berikut :

Function weekdmy(ByVal tanggal As Range) As Variant
Dim vtanggal As String
Dim vweeknum As Date
vtanggal = tanggal.Value
vweeknum = DateSerial(2000 + Val(Right(vtanggal, 2)), Mid(vtanggal, Len(tanggal.Value) - 6 + 3, 2), Left(vtanggal, Len(tanggal.Value) - 6 + 2))
weekdmy = ISOWeeknum(vweeknum)
End Function

Function weekymd(ByVal tanggal As Range) As Variant
Dim vtanggal As String
Dim vweeknum As Date
vtanggal = tanggal.Value
vweeknum = DateSerial(Left(vtanggal, 4), Mid(vtanggal, 5, 2), Right(vtanggal, 2))
weekymd = ISOWeeknum(vweeknum)
End Function

Function weekmdy(ByVal tanggal As Range) As Variant
Dim vtanggal As String
Dim vweeknum As Date
vtanggal = tanggal.Value
vweeknum = DateSerial(Right(vtanggal, 2), Left(vtanggal, Len(tanggal.Value) - 6 + 2), Mid(vtanggal, Len(tanggal.Value) - 6 + 3, 2))
weekmdy = ISOWeeknum(vweeknum)
End Function

Function ISOWeeknum(dt As Date) As Integer
ISOWeeknum = DatePart("ww", dt + (Weekday(dt, vbMonday) <> 1), vbMonday, vbFirstFourDays)
If DatePart("ww", dt + 7, vbMonday, vbFirstFourDays) = 2 Then ISOWeeknum = 1
End Function

2. Menyimpan Worksheet sebagai Add-Ins
- Pilih Menu File-Save as
- Expand pilihan save in dan pilih folder :
C:\Program Files\Microsoft Office\OFFICE11\ADDINS\
- Expand pilihan Save as type
- Pilih Microsoft Office Excel Add-In (*.xla)
- Ketik file name weeknumnya
- Pilih Save

3. Menyisipkan sebagai Add-Ins
- Buka atau buat sembarang worksheet
- Pilih menu Tools-Add Ins
- Pilih Browse
- Buka folder : C:\Program Files\Microsoft Office\OFFICE11\ADDINS\
- Pilih file weeknumnya.xla
- Pilih OK, kemudian pilih OK
- Fungsi siap digunakan

4. Cara pemakaian
Pemakaian fungsi buatan yang sudah kita sisipkan sebagai AddIn sama seperti halnya kalau menggunakan fungsi bawaan MS-Excel. Ada tiga buah fungsi yang bisa kita gunakan :
=weekdmy(cell), digunakan untuk mendapatkan week number dengan format data input ddmmyy, mis. “200808” untuk 20 Agustus 2008.
=weekmdy(cell), digunakan untuk mendapatkan week number dengan format data input mmddyy, mis. “082008” untuk 20 Agustus 2008.
=weekymd(cell), digunakan untuk mendapatkan week number dengan format data input yyyymmdd, mis. “20080820” untuk 20 Agustus 2008.


Note :
Function ISOWeeknum dikutip dari :
http://www.tech-archive.net/Archive/Excel/microsoft.public.excel.misc/2007-08/msg00593.html

Selengkapnya......