Terima kasih p Hariyanto atas dukungannya agar semangat belajar access ...
Ada beberapa pertanyaan selanjutnya (heheehhe moga2x tdk bosan) ...
1. Rencananya ID card pegawai dilengkapi dengan barcode sehingga
inputnya tdk memakai keyboard
Itu bagus.. Source datanya bisa gabungan. Misalnya NIK+TglLahir. Terus dicetak memakai model barcode. Saya pernah upload cetak model barcode di mailing list ini.. Tapi sudah lupa kapan.
2. Apa keuntungannya memakai VBA dibanding tanpa VBA?
Memakai VBA, memungkinkan kita membuat sesuatu secara custimized. Agak berliku-liku memang. Malah banyak yang menyebut VBA ribet. Coding ruwet.
itulah Tantangan. Menurut saya, lebih baik bersusah-susah dulu. Senang kemudian.
Terus, kalau kita ingin beralih ke bahasa pemograman lain, dasar pemahaman VBA amat membantu. Ada saatnya, kita memakai Ms Access, ada saatnya pula kita memakai yang lainnya.
Kalau tidak pakai VBA, lebih gampang. Dan mudah memang. Namun untuk memenuhi kebutuhan yang customized, seringkali tidak bisa terpenuhi. Contoh kongkretnya, beberapa hari lalu waktu ada yang menanyakan soal broswe file > import xls > mdb.
Tanpa VBA, juga memberatkan loading, kalau data sudah semakin banyak.
salam access
ndaru
hari yanto wrote:
>
>
> Untuk merubah digit NIK tampilan bisa dicoba-coba di script form
> "absen masuk" line 29:
>
> NIK_tam = Format(NIK, "000")
>
> Untuk merubah menjadi 4 digit tinggal diganti 0-nya menjadi empat.
> Sehingga menjadi seperti ini:
>
> NIK_tam = Format(NIK, "*_0000_*")
>
> Yang perlu disimpan adalah NIK yang type datanya berbentuk number.
> Mengapa number, karena dalam proses pencarian (nantinya) memiliki
> kecepatan lebih tinggi dibandingkan dengan text.
>
> Sedangkan keperluan tampilan, baik di form maupun di report, formatnya
> di ubah menjadi 4 digit. Agar tidak selalu menulis NIK_TAM, bisa
> memanfaatkan module (karena bisa diakses dari berbagai form/report.
>
> 1. Klik module
> 2. Klik New
> 3. isi ini:
>
> Function UbahNik(NIK)
> UbahNik = Format(NIK, "0000")
> End Function
>
> Cara penggunaannya, masuk ke script form "absen masuk" pada line 29.
> Ubah menjadi ini:
> NIK_tam = UbahNik(NIK)
> 'fungsi NIK sebelumnya > NIK_tam = Format(NIK, "000")
>
> Semoga bisa membantu dan memberi semangat.
>
> Hariyanto (Surabaya)
>
>
> -
>
No comments:
Post a Comment