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]> 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
>
>
>
>
