MS ACCESS MAILING LIST: Re: [belajar-access] Data Type

Thursday, July 28, 2011

Re: [belajar-access] Data Type

Coba gunakan VBA ini:

Dim rst As Recordset
Dim akh As Variant

    Set rst = CurrentDb.OpenRecordset("select max(id)" _
    & " from tabel")
        akh = Nz(rst.Fields(0), 0) + 1
    rst.Close
    Set rst = Nothing

    MsgBox Format(Date, "YYYY") _
    & Format(Date, "MM") _
    & Format(Date, "DD") _
    & Format(akh, "0000")

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

--- On Tue, 19/7/11, Mansur Widayat <w-mansur@notes.npr.co.jp> wrote:

From: Mansur Widayat <w-mansur@notes.npr.co.jp>
Subject: [belajar-access] Data Type
To: belajar-access@yahoogroups.com
Date: Tuesday, 19 July, 2011, 4:35 PM

Dear para Master

saya mau tanya gimana caranya membuat data type (Auto Number) pada table
berbentuk format tanggal seperti berikut :

contoh : 201107190001
2011 = tahun
07 = bulan
19 = hari
0001 = no urut

terima kasih.