- Buka Ms. Access anda
- Klik tab Create, pilih Form Design
- Setelah itu, di tab Design, klik Text Box
- buat 3 buah dengan ukuran sesuai keinginan
- klik kotak yang bertuliskan Text0 (atau Text1, dst) yang terletak di kotak yang kiri pada textbox tersebut
- klik property sheet pada tab Design
- pada kotak property sheet, cari kata "Caption". setelah ketemu, ganti kata-kata yang ada di kotak caption tersebut menjadi "Nominal 1" atau sesuai keinginaan. dan di kotak yang lainnya, ganti namanya dengan Nominal 2 dan Hasil
- klik kotak unbound di sebelah kotak Nominal 1, di kotak property sheet, ganti Namenya menjadi TxtNominal1 (jangan di spasi, karena program tidak akan dapat berjalan jika nama dari unbound tersebut terdapat spasi)
- lakukan kembali cara di atas untuk kotak Nominal 2 (TxtNominal2) dan Hasil (TxtHasil)
- setelah membuat text box, kita akan membuat button atau tombol perintah. di tab design, klik button, dan buat button tersebut sebanyak 4 buah
- namai captionnya pada property sheet yang masing-masing : - , + , X, / dan namai namenya(terletak di atas kotak caption) dengan : CmdKurang( - ), CmdTambah( + ), CmdKali( X ), CmdBagi( / )
- setelah itu kita akan masuk ke perumusan VBA
Buka VBA anda ( cara membuka VBA terletak di sebelah kanan atas tombol Property Sheet, lihat gambar )
Gambar :
Copy-Paste kata-kata di bawah ini :
pada kotak General , pilih :
1. CmdTambah
TxtHasil = TxtNominal1 + TxtNominal22. CmdKurang
TxtHasil = TxtNominal1 - TxtNominal2
3. CmdKali
TxtHasil = TxtNominal1 * TxtNominal24. CmdBagi
TxtHasil = TxtNominal1 / TxtNominal2
Maka Hasilnya akan seperti ini :
