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.
