Textbox otomatis terisi

  1. 7 tahun lalu

    Baru belajar,,numpang tanya gan
    Pada userform, Gmn caranya ketika dientry kode barang pd textbix1, textbox2 & 3, otomatis terisi...
    Trims...

  2. Caton

    27 Agu 2017 Terverifikasi Indonesia + 20.101 Poin

    File terlampir sebagai bahan latihan mas @Fatkur... pada sheet DATA dan sheet TRANSAKSI. Maaf, saya modifikasi bentuknya dan mohon maklum karena belum sempat dikasih penjelasan baris kodenya. Dipelajari saja dulu ya. Kalau ada yang ingin ditanyakan, silahkan didiskusikan kembali... ;)

  3. 6 tahun lalu

    kalau saya yang ingin bertanya boleh kah master ?

  4. Caton

    3 Agu 2018 Terverifikasi Indonesia + 20.101 Poin

    @Felix ... kalau saya yang ingin bertanya boleh kah master ...

    Tentu boleh mas @Felix... Asal berhubungan dengan Excel. Forum ini khan memang untuk berdiskusi atau tanya jawab tentang Excel... :) Mungkin yang perlu diperhatikan, jika ingin bertanya untuk topik atau bahasan yang berbeda dengan diskusi yang sudah ada, sebaiknya buat diskusi baru, agar lebih fokus dan tidak out of topic...

    Demikian.

  5. dalam form transaksi, ketika kita pilih kode dan nama barang, secara otomatis TXTSatuan muncul harga, itu scripnya yang mana ya master? karena kebetulan saya mau buat seperti itu. ketika TXTid di input, TXTname otomatis terisi dari data sheet lain.

  6. Caton

    3 Agu 2018 Terverifikasi Indonesia + 20.101 Poin
    Di sunting 6 tahun lalu oleh Caton

    Cara mengetahuinya sangat mudah mas @Felix... Klik kanan pada kontrol yang dimaksud, dan pilih menu View Code. Pada form frmTranskasi tersebut, saat item pada kontrol cboBarang diklik, otomatis script pada Event Procedure berikut dipicu:

    Private Sub cboBarang_Change()
        txtSatuan = Format$(m_vHargaBarang(cboBarang.ListIndex), "##,##0.00")
    End Sub

    Oleh karena pada script tersebut terjadi perubahan pada properti Text dari kontrol txtSatuan, Event Procedure terkait pun ikut terpicu:

    Private Sub txtSatuan_Change()
        txtTotal.Text = Format$(CDbl(txtSatuan.Text) * CLng(txtJumlah.Text), "##,##0.00")
    End Sub

    Demikian... ;)

 

atau Mendaftar untuk ikut berdiskusi!