Re: ]] XL-mania [[ PO_automatic

 

masalah: mengentry data ke Tabel / List dengan FORM, ( baik FORM yg dibuat dari Sheet maupun dari UserForm ) sudah sering ditayangkan di milis ini.

khusus untuk kasus yg diajukan pak puji laso ini, menurut fendafatku ada beberapa hal yg dipersulit sendiri;  misal :

1.
ASLI Nomor PO (sebagai field kunci tabel database nya) tidak pernah dimasukkan ke TABEL.
Ada juga Nomor yg mirip dimasukkan ke tabel berupa No PO yang diUBAH-UBAH (ditambah nomor Sub; misal  Bilangan 542  menjadi  teks "0542-01", "0542-02"  dst.
Hal ini akan memperpanjang trick pencariannya kembali

2.
FORM ENTRY data juga diinginkan menjadi form DISPLAY data
sedangkan jumlah barisnya terbatas
Harus ada jaminan dari pak laso, bahwa semua PO pasti berisi pembelian
maksimal 4 item.

Sedangkan pertanyaan utama: Bgmn Mengubah No PO selalu NAIK (bertambah + 1)
perintahnya tidaklah terlalu sulit
karena hanya seperti ini
Range("C1") = Range("C1") + 1

Sebetulnya penanganan data spt ini lebih gampang dengan 2 tabel: tabel Induk dan Tabel Anak.
Semantara tabel induk mencatat setiap PO sebagai 1 record yg hanya berisi "headernya" saja
(Nomor PO, Tgl, CUst, Total, Jumlah Item), si Tabel anak mencatat detail dari item yg dibeli, jumlah barisnya per PO bebas, mau berapa saja.
Dlm tabel anak akan ada Kolom-Kolom
No PO (sbg kunci penghubung dua tabel tsb), dan item secara detail (CodeItem, NamaItem, Qty, Harga dst) seperti 4 baris yg ada di form PO contoh dari pak laso)

Workbook terlampir belum menggunakan teknik spt itu, tetapi tetap tidak jauh dari contoh yg diajukan pak laso, supaya tidak terlalu jauh dari pembayangan pak laso)

Di  VBAProject nya memang ada UserForm, tetapi tugasnya hanya berisi SpinButton untuk mencari Nomor Records dan No. PO ( yg sudah terrekam di  dbTabel)  yg ingin di displaykan.

Prosedur untuk memasukkan data dari sheet FORM ke sheet  dbTABEL ditulis di Module 1
kita kutip BAGIAN INTI-nya saja seperti ini

   For n = 1 To FrmRows
      dBTabel(NewRow + n, 15).NumberFormat = "@"
      dBTabel(NewRow + n, 15) = Format(HeadFrm(1, 1), "0000")
      For r = 1 To HeadFrm.Rows.Count
         If r = 1 Then
            dBTabel(NewRow + n, r) = _
            Format(HeadFrm(r, 1), "0000") & "-" & Format(n, "00")
         Else
            dBTabel(NewRow + n, r) = HeadFrm(r, 1)
         End If
      Next r
      For c = 1 To FrmCols
         dBTabel(NewRow + n, r - 1 + c) = DatForm(n, c)
      Next c
   Next n
'--------------------------

2010/12/28 Puji Lasono <laso.area@yahoo.co.id>

Agan agan yang terhormat mohon bantuan untuk makro atau modulnya untuk file PO saya, karena slama ini saya imput manual, Jadi harapanya cukup dengan tombol clear secara otomatis nomor PO bertabah satu dan cel yang berwarna biru kosong, dan kita bisa input pada cel  warna biru yang kita inginkan, dan jika kita klik tombol save & preview, otomatis cel yang yang berwarna biru akan ter simpan dalam tabel di sheet no 2 secara berurutan dan di akhiri tampilan print preview dari sheet no 1, dan jika di tekan tombol edit cukup kita masukan no PO maka cel C1, maka cel -cel  warna biru bisa terisi data seuai PO yang tersimpan di sheet no 2,

Demikian mohon bantuan agan agan terhormat, slama ini sudah saya coba utak atik tapi gak ada hasil , karena pengetahuan saya minim.

saya bingung cara melampirkan gan

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 75
• New Polls 1

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| "if you are the most valuable assets, you will show up on the     |
| balance sheet..." - oNo Wiqe                                      |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___