Trims mas, saya coba dulu
_____ From: Edy.WIYONO [mailto:[EMAIL PROTECTED] Sent: Wednesday, April 16, 2008 1:17 PM To: [email protected] Subject: Re: [belajar-access] autonumber Ini udah beberapa kali dibahas di milis ini. Tabel: Table1 Column: NoUrut Pasang di event FORM Before Update Selamat mencoba. Function fNoUrut() As String x = DCount("NoUrut", "Table1", "[NoUrut] Like '" & Format(Date, "ddmmyy") & "*'") If x = 0 Then fNoUrut = Format(Date, "ddmmyy") & 1 Else y = DMax("NoUrut", "Table1", "[NoUrut] Like '" & Format(Date, "ddmmyy") & "*'") fNoUrut = y + 1 End If End Function On 4/16/08, M. Taufan Kusuma AW. <[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> -com> wrote: Saya mau minta tolong niy, bagaimana membuat No.ID yang formatnya 6 gigit pertama adalah sekarang dan digit selanjutnya Adalah no urut contoh 1604081. mohon bantuannya. Terima kasih ---
