Textbox otomatis terisi

  1. 12 bulan yang 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 + 10.447 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. 3 minggu lalu

    kalau saya yang ingin bertanya boleh kah master ?

  4. Caton

    Agu 3 Terverifikasi Indonesia + 10.447 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

    Agu 3 Terverifikasi Indonesia + 10.447 Poin
    Di sunting 3 minggu 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!