ul.menu {list-style-type:none;width:auto;position:relative;display:block;height:33px;font-size:.6em;background:url("http://3.bp.blogspot.com/-yfjleaT_byo/T5ewxWcfQ_I/AAAAAAAAAG4/RhzPFsTy0B0/s1600/bg.png") repeat-x top left;font-family:Verdana,Helvetica,Arial,sans-serif;border:1px solid #000;margin:0;padding:0;}ul.menu li {display:block;float:left;margin:0;padding:0;}ul.menu li a {float:left;color:#A79787;text-decoration:none;height:24px;padding:9px 15px 0;font-weight:normal;}ul.menu li a:hover,.current {color:#fff;background:url("http://3.bp.blogspot.com/-yfjleaT_byo/T5ewxWcfQ_I/AAAAAAAAAG4/RhzPFsTy0B0/s1600/bg.png") repeat-x top left;text-decoration:none;}ul.menu .current a {color:#fff;font-weight:700;}/*Garis Merah*/ul.menu.red{background-color:#B11718;}ul.menu.red li a:hover, .menu.red li.current {background-color:#DE3330;}

Jumat, 18 Januari 2013

Membuat Kalkulator di Ms. Access

Hai!

akhirnya saya mengepost lagi tentang Ms. Acces!
pada post saya kali ini, saya akan memberi tahu anda cara membuat kalkulator di Ms. access



oke langsung mulai aja ya!

Cara :
  • Buka Ms. Access anda
  • Klik tab Create, pilih Form Design
 maka akan muncul seperti ini :
  • 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
Screen Shot :
  • 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
    

     2. CmdKurang


     3. CmdKali


     4. CmdBagi  
     


Maka Hasilnya akan seperti ini :













 Sekian pada postku yang kali ini! Thanks for visiting!!

Tidak ada komentar:

Posting Komentar