Saya coba juga fungsi ini kenapa tampil debug dimana letak salahnya ya mas apa yang harus kita benarin
--- In [email protected], buday uhuy <[EMAIL PROTECTED]> wrote: > > 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 >
