Cara Membuat Dan Memanfaatkan Combo Box Pada Visual Basic Atau Microsoft Access - Part 5 (Auto Update Text Box Lewat Combo Box)

Niguru.com | Senin, 3 Juni 2019 | Posting ini merupakan bagian terakhir dari posting dari artikel yang membahas cara membuat dan memanfaatkan combo box pada form aplikasi.

Pada posting kali ini Niguru.com akan membahas cara untuk melakukan auto update (perubahan nilai secara otomatis) pada text box, dengan memanfaatkan combo box.



Teknik ini dapat memudahkan user dalam melakukan pengisian form, atau pengisian daftar item pada suatu datasheet.

Berikut ini langkah-langkahnya:
Membuat Combo Box Yang Dapat Melalukan Auto Update Pada Kolom Lain Yang Masih Berkaitan:

Buat tabel dengan nama t_warga (boleh menggunakan nama lain), dengan field: IDWarga, Nama, Alamat, Phone, Email

Hasilnya setelah diisi dengan data:

Buat form dengan nama f_warga (boleh menggunakan nama lain), dan tempatkan 1 buah combo box dan 3 buah text box dengan nama: Nama (combo box), Alamat, Phone, Email:

Pada combo box Nama, atur setting sebagai berikut:
Row Source Type = Table /Query
Row Source = t_warga
Column Count = 5
Column Widths = 0;2;2;2;4 (aplikasi akan otomatis menambahkan satuan “cm” dibelakang angka)
List Width = 10 (aplikasi akan otomatis menambahkan satuan “cm” dibelakang angka)

Note:
Nilai 10 pada list widht adalah hasil dari penjumlahan seluruh nilai pada Column Widths (= 0 + 2 +2 +2 +4)

Akfitkan Event Procedure pada event after update pada combo box Nama:

Masuk ke VBA Editor untuk menuliskan script:

Ketikkan script:
Alamat = Nama.Column(2)
Phone = Nama.Column(3)
Email = Nama.Column(4)

Hasilnya:

Setiap kali nama dipilih, secara otomatis kolom Alamat, Phone dan Email akan ter-update, dengan data yang sesuai dengan Nama (meskipun form tidak terhubung dengan tabel manapun sebagai data source-nya):

Demikianlah langkah-langkah untuk melakukan auto update pada field-field tertentu yang ada pada form, dengan memanfaatkan combo box.
File latihan dapat di-download di: http://evassmat.com/U5N9
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)