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