Teman2... tlg minta link ..
untuk keluar dari milist M. Access .
Terima kasih Sebelum y
"Edy.WIYONO" <[EMAIL PROTECTED]> wrote:
Asumsi:
NamaTabel : Table1
NamaFieldBerisiNoUrut : NoUrut
Kalo saya lihat tipe datanya NUMBER, dan
karena udah ada data langsung aja gunakan
Function fNoUrut() As Integer
fNoUrut=DMax("NoUrut", "Table1") +1
End Function
On 4/16/08, Steve Hanz <[EMAIL PROTECTED]> wrote: 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] or [EMAIL PROTECTED]
"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"
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
