Kalo misalnya nomor urut di tabel saya terakhir 2682, untuk meneruskan nya
bagaimana ?
Karena saya buat autonumber dengan access malah kacau.
Dari formula mas edy sudah say acoba dengan menghilangkan datenya, tapi kok
kacau hehehe...
Maaf yaa...
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
Steve Hanz
Bumimulia Indah Lestari, PT
Jl. Jababeka XVI Kav. V No. 65 A Cikarang Bekasi
Office Phone : +62 21 8936478 Ext. 251
Faximile : +62 21 8936480
Mobile : 62 815 7863 3583 or 62 818 0270 6485
Email : [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> or
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
<http://www.bumimulia.com/>
"This e-mail (including any attachments) is intended solely for the
addressee and could contain information that is confidential; If you are not
the intended recipient, you are hereby notified that any use, disclosure,
copying or dissemination of this e-mail and any attachment is strictly
prohibited and you should immediately delete it. This message does not
necessarily reflect the views of Bumimulia Indah Lestari. Although this
e-mail has been checked for computer viruses, Bumimulia Indah Lestari
accepts no liability for any damage caused by any virus and any malicious
code transmitted by this e-mail. Therefore, the recipient should check again
for the risk of viruses, malicious codes, etc as a result of e-mail
transmission through Internet"
