terimakasih mas/pa, saya dah coba tapi knp ya msh ga bs eror >>>type mistmatch pa nya yg salah ya??? maaf pa saya baru belajar nih jadi saya kurang paham...
terima kasih... ________________________________ Dari: "[email protected]" <[email protected]> Kepada: [email protected] Terkirim: Kamis, 5 Februari, 2009 10:22:13 Topik: Re: [belajar-access] Mohon bantuan tentang kode otomatis No_Pembelian = String(3 - Len(rcdCount) , "0") & rcdCount & kode Dept & Bulan & tahun dan yang lainnya tinggal tambah spt diatas Salam Nurhasim "hasimnurhsm@ yahoo.com" <hasimnurhsm@ yahoo.com> wrote: kl masalah di no pemebelian tidak mau nambah coba pake code ini: ini saya asumsikan anda menggunakan AddNew untuk menambah data Private Sub AddNew_Click( ) DoCmd.GoToRecord , , acNewRec If Me.NewRecord = True Then Dim rs As Recordset, rcdCount Set rs = Me.Recordset rcdCount = rs.RecordCount + 1 No_Pembelian = String(3 - Len(rcdCount) , "0") & rcdCount End If Lisma Wulansari <lisma_w...@yahoo. com> wrote: Kepada suhu2 access saya kebetulan baru join nih mohon bantuannya ya suhu2 Saya sedang mencoba bikin program pembelian, penerimaan & pengeluaran barang Nah ada sedikit masalah dlm pembuatan program tersebut, saya mencoba membuat kode otomatis waktu pembelian barang dengan format: Kode otomatis : 001/RD/II/09 001 = no pembelian RD = kode departemen II = bulan 09 = tahun Setelah saya coba ternyata masih ada debug dan no pembelian tdk mau bertambah mohon masukannya Bagaimana ya coding program di even procedurenya untuk membuat kode otomatis dengan format diatas????? Terima kasih.. ________________________________ Firefox 3: Lebih Cepat, Lebih Aman, Dapat Disesuaikan dan Gratis. ___________________________________________________________________________ Yahoo! sekarang memiliki alamat Email baru. Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain! http://mail.promotions.yahoo.com/newdomains/id/
