khan sample aja mas, jadi kita tinggal modif aja sesuai dengan aplikasi kita misalnya :
Function NoBaru(tambahkan paramater2 br disini, mis: cust id, prsh dsb) 'Originally created by Haer Talib for RumahAccess.com Prefiks = "AAbb" *'sesuaikan dengan parameter yang ada* NoBaru = Prefiks & "000000"*'* *'format tsql khan bisa ditambahi/dubah kriterianya, seusaikan aja dengan tabelnya (dicontoh kan cuman NosuratJalan, tambahi aja dgn custid /prsh) * 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 *'dst .. dst (maaf mas, pcnya pas nggak ada ms access)*
