Maaf teman2 accesser.....barusan aja jawabannya sudah ketemu. Maaf ya dah ngerepotin.
----- Original Message ---- From: buday uhuy <[EMAIL PROTECTED]> To: [email protected] Sent: Tuesday, August 19, 2008 10:38:59 Subject: [belajar-access] Membuat nomor otomatis Dear Accesserr... ..Assalamu' alaikum.. Saya coba mengambil contoh dari websitenya mas haer untuk membuat nomor otomatis di project adp saya, tapi ada error "object variable or with block variable not set " di code yg saya tebalkan. Teman2 ada yang tahu dimana letak kesalahannya ? Function NoBaru() Prefiks = "P" NoBaru = Prefiks & "00000000" tSQL = "SELECT Max(kodepart) AS kode FROM [TBLPart] " & _ "WHERE kodepart > '" & Prefiks & "00000000' And kodepart <= '" & Prefiks & "99999999'" Dim rs1 As Object Set rs1 = CurrentDb.OpenRecor dset(tSQL, dbOpenDynaset, dbSeeChanges) If Not rs1.EOF Then kode = Val(Right(Nz( rs1!kode, "0"), 8)) Else kode = 0 End If rs1.Close Set rs1 = Nothing NoBaru = Prefiks & Format(kode + 1, "00000000") End Function Send instant messages to your online friends http://uk.messenger .yahoo.com Send instant messages to your online friends http://uk.messenger.yahoo.com
