Dear Mr. Haer Thalib Saya membaca artikel anda ti rumah access tentang Membuat Nomor Otomatis and hanya mencantumkan : Nama tabel, datatype dan field size
Asumsi: Table bernama: tbl_SuratJalan Field nomor bernama: NoSuratJalan, type: Text, Size: 10 chars. Script sbb : Function NoBaru() 'Originally created by Haer Talib for RumahAccess.com Prefiks = "AAbb" NoBaru = Prefiks & "000000" tSQL = "SELECT Max(NoSuratJalan) AS LastNo FROM [tbl_SuratJalan] " & _ "WHERE NoSuratJalan > '" & Prefiks & "000000' And NoSuratJalan <= '" & Prefiks & "999999'" Dim rs1 As Object Set rs1 = CurrentDb.OpenRecordset(tSQL, dbOpenDynaset, dbSeeChanges) If Not rs1.EOF Then LastNo = Val(Right(Nz(rs1!LastNo, "0"), 6)) Else LastNo = 0 End If rs1.Close Set rs1 = Nothing NoBaru = Prefiks & Format(LastNo + 1, "000000") End Function Dimana saya menulis script ini. Setahu saya kalau menulis script umumnya di form bukan ditable. Mohon pencerahan (maklum masih awam) Thank you master! [email protected] --- On Tue, 1/6/09, Haer Talib <[email protected]> wrote: > From: Haer Talib <[email protected]> > Subject: Re: [belajar-access] Mencari buku > To: [email protected] > Date: Tuesday, January 6, 2009, 10:04 PM > Hallo Sodikin, > > Ralat sedikit ya, komunitas ini buka punya saya, tapi > komunitas bersama > pemakai Access di Indonesia. > Untuk buku memang pihak penerbit sudah tidak melakukan > cetak ulang, karena > kebijakan cetak mereka dipengaruhi tahun terbit. > > Sebagai penggantinya, silahkan anda ikut training Access > Project yang > diadakan RumahAccess Indonesia. > lihat di www.rumahaccess.com > > Salam, > Haer > > > 2009/1/7 sodikin vk <[email protected]> > > > Hallo access mania yang terhormat > > Salam kenal nih dari pendatang baru > > Saya sedang mencari buku karya Bp.Haer Talib (Pemilik > komunitas ini) yang > > berjudul MEMBUAT ACCESS PROJECT dengan DATABASE SQL > SERVER > > Saya sudah mencari kemana2 tapi sampai sekarang belum > dapat, katanya sudah > > tidak di cetak lagi. > > Posisi saya ada di Mojokerto > > Tolong dong > > Terima kasih > > > > Sodikin > > > > ------------------------------ > > Get your preferred Email name! > > > <http://sg.rd.yahoo.com/aa/mail/domainchoice/mail/signature/*http://mail.promotions.yahoo.com/newdomains/aa/> > > Now you can @ymail.com and @rocketmail.com. > > > > > > -- > [Haer Talib] > MVP Office Access > Meet me at www.RumahAccess.com > > =>
