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.OpenRecordset(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
