No_Pembelian = String(3 - Len(rcdCount), "0") & rcdCount & kode Dept & Bulan & tahun
dan yang lainnya tinggal tambah spt diatas Salam Nurhasim "[email protected]" <[email protected]> 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 <[email protected]> wrote: Normal 0 false false false MicrosoftInternetExplorer4 /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman"; mso-ansi-language:#0400; mso-fareast-language:#0400; mso-bidi-language:#0400;} 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.
