Coba deh embak dikirim sample programnya, agar mudah di koreksi..
--- Pada Rab, 4/2/09, Lisma Wulansari <[email protected]> menulis:
Dari: Lisma Wulansari <[email protected]>
Topik: Bls: [belajar-access] Mohon bantuan tentang kode otomatis
Kepada: [email protected]
Tanggal: Rabu, 4 Februari, 2009, 9:43 PM
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: "hasimnurhsm@ yahoo.com" <hasimnurhsm@ yahoo.com>
Kepada: belajar-access@ yahoogroups. com
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.
br>
Cepat sebelum diambil orang lain!
Mulai chatting dengan teman di Yahoo! Pingbox baru sekarang!! Membuat
tempat chat pribadi di blog Anda sekarang sangatlah mudah.
http://id.messenger.yahoo.com/pingbox/
