Memanggil Data dari database dan ditampilkan kedalam listbox

  1. tahun lalu

    dear all suhu dan master disini mohon bantuannya atas kesulitan saya..
    saya mempunyai sheet yang berisi data (sheet database ) dan ingin saya panggil dengan menggunakan textbox di form ( yang tanoil hanya nomor inovice ) dan ditampilkan dalam secara urut di listbox dan ketika datanya selesai dipanggil akan tersimpan ketika saya menekan tombol SIMPAN dan otomatis pula terisi dalam kolom tanggal diterima dengan tanggal pada saat sebuah data itu di panggil. metode pemanggilan datanya saya menggunakan barcode scanner. ( data terlampir)
    mohon pencerahannya suhu dan master disini..terima kasih sebelumnya jika bisa membantu

    Sama-sama mas ... Silahkan dibongkar-bongkar lagi, karena tujuannya khan memang untuk dipelajari dan dimodifikasi kembali... :)

    Namun, sebenarnya berhasil atau tidak sih kode VBA yang saya buat... :D Saya sih masih penasaran, karena sebagaimana yang telah saya sampaikan sebelumnya, mas @Ache coba dahulu kode VBA yang saya susun tersebut, dan kemudian berikan masukan-masukan kepada saya berhasil atau tidak, apa kendala atau masalah yang ditemui dan sebagainya.

    ... walaupun tidak otomatis membaca data ...

    Pertanyaan saya, apakah teks dari Barcode Scanner masuk ke kontrol TextBox pada UserForm yang telah dijalankan? Karena jika ternyata teks dari perangkat bisa masuk ke kontrol TextBoxnya, namun tidak terjadi proses otomatis selanjutnya (jadi harus ditekan tombol Enter secara manual dahulu), maka akan saya coba carikan solusinya. Idenya sih ada, hanya saja belum saya coba terapkan dalam kode VBA-nya. Namun jika teks hasil pemindaian tidak masuk ke kontrol TextBox, itu sih lain lagi masalahnya... :)

    Jika memang mas @Ache tidak menemukan pengaturan tambahan seperti yang saya maksudkan, mungkin mas @Ache bisa kasih tahu merk atau seri dari perangkat Barcode Scanner-nya?! Karena pada pengujian yang saya lakukan, dengan menggunakan Android Phone dan aplikasi Wifi Barcode Reader, ada tambahan pengaturan yang saya maksudkan terbeut (lihat gambar).

    [attachment:5a020203192c8]

    Bagaimanapun, informasi dari mas @Ache akan sangat membantu saya memperbaiki baris kode VBA-nya. Tentunya jika mas @Ache bisa dan bersedia... hehe... :D

  2. Caton

    3 Nov 2017 Terverifikasi Indonesia + 12.596 Poin

    Maaf mas @Ache... saya pengen mencoba membantu, namun masih belum paham apa dan bagaimana proses yang dimaksud dalam penjelasan di atas. Sejauh ini, asumsi saya proses yang akan dilakukan adalah:

    [1] Teks Nomor Invoce dibaca menggunakan Barcode Scanner, dan teks hasil pemindaian tersebut kemudian ditampilkan pada kontrol Textbox dalam UserForm.

    [2] Kemudian teks Nomor Invoce yang telah masuk ke kontrol Textbox akan dicari pada sheet Database untuk mendapatkan data lengkapnya (asumsinya, proses pencarian dilakukan dengan menekan tombol Find pada Userform). Lihat gambar.

    [3] Jika data ditemukan, tambahkan Nomor Invoce ke dalam kontrol ListBox. Jika tidak, abaikan data (atau simpan daftar Nomor Invoice yang tidak ditemukan)?

    [4] Setelah proses pemindaian dan pencarian data Nomor Invoice selesai, simpan (tambahkan baris) data ke sheet tujuan.

    Shoot001.png

    Yang saya tidak tahu adalah bagaimana teks hasil pemindaian akan masuk ke Excel dan bagaimana bentuk teks yang diambil. Karena yang saya bisa saat ini hanyalah memproses teksnya apabila proses pemindaian teksnya serupa dengan proses pada video ini . Dengan memanfaatkan Worksheet Change event, teks bisa ambil dan kemudian diproses kembali. Proses nomor 2 di atas bahkan tidak diperlukan karena setelah proses nomor 1 dapat langsung dilakukan proses pencarian data.

    Coba mas @Ache koreksi dahulu asumsi proses di atas, kalau bisa tambahkan informasi tahapan proses yang diinginkan, bentuk teks hasil pemindaian (jika teksnya terdiri dari beberapa kata) dan bentuk tabel data sebagai acuan pencariannya teks hasil pemindaian... :)

  3. @Caton Maaf mas @Ache... saya pengen mencoba membantu, namun masih belum paham apa dan bagaimana proses yang dimaksud dalam penjelasan di atas. Sejauh ini, asumsi saya proses yang akan dilakukan adalah:

    [1] Teks Nomor Invoce dibaca menggunakan Barcode Scanner, dan teks hasil pemindaian tersebut kemudian ditampilkan pada kontrol Textbox dalam UserForm.

    [2] Kemudian teks Nomor Invoce yang telah masuk ke kontrol Textbox akan dicari pada sheet Database untuk mendapatkan data lengkapnya (asumsinya, proses pencarian dilakukan dengan menekan tombol Find pada Userform). Lihat gambar.

    [3] Jika data ditemukan, tambahkan Nomor Invoce ke dalam kontrol ListBox. Jika tidak, abaikan data (atau simpan daftar Nomor Invoice yang tidak ditemukan)?

    [4] Setelah proses pemindaian dan pencarian data Nomor Invoice selesai, simpan (tambahkan baris) data ke sheet tujuan.

    [attachment:59fcb59cbe19c]

    Yang saya tidak tahu adalah bagaimana teks hasil pemindaian akan masuk ke Excel dan bagaimana bentuk teks yang diambil. Karena yang saya bisa saat ini hanyalah memproses teksnya apabila proses pemindaian teksnya serupa dengan proses pada video ini . Dengan memanfaatkan Worksheet Change event, teks bisa ambil dan kemudian diproses kembali. Proses nomor 2 di atas bahkan tidak diperlukan karena setelah proses nomor 1 dapat langsung dilakukan proses pencarian data.

    Coba mas @Ache koreksi dahulu asumsi proses di atas, kalau bisa tambahkan informasi tahapan proses yang diinginkan, bentuk teks hasil pemindaian (jika teksnya terdiri dari beberapa kata) dan bentuk tabel data sebagai acuan pencariannya teks hasil pemindaian... :)

    @mas caton...terima kasih sudah membantu dalam kesulitan saya..mungkin apa yang saya jelaskan sulit untuk di mengerti ya mas...tapi apa yang mas caton jelaskan itu benar dari urutan nomor 1 sampai dengan 4 hanya saja di urutan nomor 2 bisakah tanpa kita tekan tombol find akan tampil dengan sendirinya data detailnya nomor invoice tersebut di listbox dan untuk urutan nomor 3 jika tidak ditemukan abaikan saja. urutan nomor 4 akan tersimpan di sheet tujuan ( invoice yang sudah diterima )
    dan bisakah secara otomatis tersimpan tanggal ketika kita membarcode inovice tersebut dan terisi pada kolom tanggal diterima..
    terima kasih banyak atas pencerahannya mas caton

  4. @Caton Maaf mas @Ache... saya pengen mencoba membantu, namun masih belum paham apa dan bagaimana proses yang dimaksud dalam penjelasan di atas. Sejauh ini, asumsi saya proses yang akan dilakukan adalah:

    [1] Teks Nomor Invoce dibaca menggunakan Barcode Scanner, dan teks hasil pemindaian tersebut kemudian ditampilkan pada kontrol Textbox dalam UserForm.

    [2] Kemudian teks Nomor Invoce yang telah masuk ke kontrol Textbox akan dicari pada sheet Database untuk mendapatkan data lengkapnya (asumsinya, proses pencarian dilakukan dengan menekan tombol Find pada Userform). Lihat gambar.

    [3] Jika data ditemukan, tambahkan Nomor Invoce ke dalam kontrol ListBox. Jika tidak, abaikan data (atau simpan daftar Nomor Invoice yang tidak ditemukan)?

    [4] Setelah proses pemindaian dan pencarian data Nomor Invoice selesai, simpan (tambahkan baris) data ke sheet tujuan.

    [attachment:59fcb59cbe19c]

    Yang saya tidak tahu adalah bagaimana teks hasil pemindaian akan masuk ke Excel dan bagaimana bentuk teks yang diambil. Karena yang saya bisa saat ini hanyalah memproses teksnya apabila proses pemindaian teksnya serupa dengan proses pada video ini . Dengan memanfaatkan Worksheet Change event, teks bisa ambil dan kemudian diproses kembali. Proses nomor 2 di atas bahkan tidak diperlukan karena setelah proses nomor 1 dapat langsung dilakukan proses pencarian data.

    Coba mas @Ache koreksi dahulu asumsi proses di atas, kalau bisa tambahkan informasi tahapan proses yang diinginkan, bentuk teks hasil pemindaian (jika teksnya terdiri dari beberapa kata) dan bentuk tabel data sebagai acuan pencariannya teks hasil pemindaian... :)

    atau ada proses yang lebih mudah lagi menurut mas caton ?
    intinya proses tersebut agar memudahkan saya sebagai bukti serah terima invoice dari orang lain ke saya karena selama ini manual jd sering terlewat invoice yang masuk

  5. Caton

    6 Nov 2017 Terverifikasi Indonesia + 12.596 Poin

    Silahkan mas @Ache coba dahulu file terlampir. Kode VBA-nya belum selesai benar, masih perlu perbaikan-perbaikan lebih lanjut. Dalam hal ini, saya perlu masukan dahulu bagaimana hasil prosesnya ketika digunakan oleh mas @Ache. Hal-hal yang perlu diperhatikan:

    [1]. Oleh karena saya tidak punya perangkat Barcode Scanner dan item barang yang akan dipindai, maka dalam hal ini saya tidak tahu pasti bagaimana proses kerja perangkat Barcode Scanner yang akan digunakan. Pengujian saya lakukan dengan menggunakan Android Phone dan aplikasi Wifi Barcode Scanner (saya mencoba aplikasi dari situs ini ). Pengaturan utama yang paling penting pada aplikasi yang saya gunakan tersebut adalah penambahan karakter Enter untuk setiap teks yang dipindai. Saya katakan penting oleh karena kontrol TextBox pada UserForm yang akan digunakan sebagai jendela penerima masukan teks Barcode memanfaatkan prosedur KeyDown dengan argumen KeyCode = vbKeyReturn (karakter Enter, ASCII Code = 13) untuk memproses teks hasil pemindaian. Jadi pastikan ada pengaturan seperti di atas agar prosesnya bisa otomatis. Kalau tidak, maka mas @Ache harus menekan tombol Enter secara manual agar teks diproses... ^_^; Dari beberapa kali percobaan metode input, saya rasa metode tersebut lebih menguntungkan karena UserForm nantinya masih bisa digunakan untuk proses input manual, atau untuk melakukan koreksi masukan.

    [2]. Saya tidak tahu pasti apa tujuan penggunaan kontrol ListBox sebagaimana yang diinginkan... :) Dalam hal ini, saya tambahkan proses agar teks hasil pindaian tersimpan pada sheet (sheet SCANNED) sehingga dapat digunakan untuk mengetahui mana yang ada datanya dan mana yang tidak ada.

    [3]. Dicoba dahulu deh mas @Ache... nanti kasih tahu apa saja masalah atau kendala yang terjadi... :D

  6. terima kasih banyak mas @Caton..untuk bantuannya yang sangat bermanfaat sekali buat saya..over all semua bantuan mas @Caton sudah mewakili banyak masalah yang saya hadapi

    [1] untuk masalah ini tidak apa-apa mas..walaupun tidak otomatis membaca data dan masuk kedalam listbox cukup mewakili.

    [2] untuk penggunaan listbox saya hanya menyakinkan kembali data yang masukkan sudah benar atau belum..dan terima kasih sudah menambahkan 1 sheet ( SCANNED ) agar saya bisa koreksi apakah data ini sudah masuk atau belum ke database.

    saya lagi coba-coba dulu ya mas dan sedikit modifikasi...dan mohon bantuannya lg jika saya menemukan kendala ya mas..terima kasih banyak sekali lagi mas atas pencerahannya

  7. Caton

    7 Nov 2017 Terverifikasi Jawaban Terpilih Indonesia + 12.596 Poin

    Sama-sama mas ... Silahkan dibongkar-bongkar lagi, karena tujuannya khan memang untuk dipelajari dan dimodifikasi kembali... :)

    Namun, sebenarnya berhasil atau tidak sih kode VBA yang saya buat... :D Saya sih masih penasaran, karena sebagaimana yang telah saya sampaikan sebelumnya, mas @Ache coba dahulu kode VBA yang saya susun tersebut, dan kemudian berikan masukan-masukan kepada saya berhasil atau tidak, apa kendala atau masalah yang ditemui dan sebagainya.

    ... walaupun tidak otomatis membaca data ...

    Pertanyaan saya, apakah teks dari Barcode Scanner masuk ke kontrol TextBox pada UserForm yang telah dijalankan? Karena jika ternyata teks dari perangkat bisa masuk ke kontrol TextBoxnya, namun tidak terjadi proses otomatis selanjutnya (jadi harus ditekan tombol Enter secara manual dahulu), maka akan saya coba carikan solusinya. Idenya sih ada, hanya saja belum saya coba terapkan dalam kode VBA-nya. Namun jika teks hasil pemindaian tidak masuk ke kontrol TextBox, itu sih lain lagi masalahnya... :)

    Jika memang mas @Ache tidak menemukan pengaturan tambahan seperti yang saya maksudkan, mungkin mas @Ache bisa kasih tahu merk atau seri dari perangkat Barcode Scanner-nya?! Karena pada pengujian yang saya lakukan, dengan menggunakan Android Phone dan aplikasi Wifi Barcode Reader, ada tambahan pengaturan yang saya maksudkan terbeut (lihat gambar).

    Shoot001.png

    Bagaimanapun, informasi dari mas @Ache akan sangat membantu saya memperbaiki baris kode VBA-nya. Tentunya jika mas @Ache bisa dan bersedia... hehe... :D

  8. 11 bulan yang lalu

    dear mas caton..sebelumnya terima kasih banyak atas pencerahannya dan waktunya untuk bisa membantu permasalahan saya..dan mohon maaf baru bisa kasih jawaban setelah sekian lama..

    pada dasarnya apa yang mas caton berikan pencerahan kepada saya atas permasalahan yang saya hadapi sangat membantu, dan untuk teks dari barcode scanner itu berhasil terbaca dan datanya pun bisa langsung terbaca di list box.

 

atau Mendaftar untuk ikut berdiskusi!