@Jemmy, Error messagenya ga disertakan?
BTW nulis sms dan nulis email punya style yang berbeda, jadi please tulisan emailnya jangan terlampau banyak disingkat. On Fri, Feb 6, 2009 at 11:50 AM, Jemmy Last <[email protected]> wrote: > guys g mo tny neh > > g kan pny tbl_ao isinya no_ao , no_so .G mo autonumberin no_ao dgn format > angka biasa > mslnya 1,2,....dst > > n codenya spt ini > > Public Function GenerateKode() As Integer > Dim n As Integer > Adodc1.RecordSource = "select isnull(max(cast NO_AO as int)),0) from > tbl_ao" > Adodc1.Refresh > > n = Adodc1.Recordset.Fields(0) + 1 > > Return n > > End Function > > cr krjnya stp g klik tmbl add text9.text yg diwakili no_ao tmbh trus > ......jd pas di tmbladd_click() > > g tmbh text9.text=generate kode() > > tp npe y errornya d return n tulisannya merah > > mnt tolong y > > [Non-text portions of this message have been removed] > > > [Non-text portions of this message have been removed]
