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

Thursday, July 28, 2011

Re: [belajar-access] Data Type

Coba dikirim mdbnya dengan sedikit data...

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

From: Mansur Widayat <w-mansur@notes.npr.co.jp>
Subject: Re: [belajar-access] Data Type
To: belajar-access@yahoogroups.com
Date: Wednesday, 20 July, 2011, 10:53 AM

Sudah saya coba mas, tp muncul pesan gini " Compile error : Invalid outside procedur "

----- Original Message -----
From: "hari yanto" <har_i20002000@yahoo.com>

To: <belajar-access@yahoogroups.com>

Sent: Tuesday, July 19, 2011 6:42 PM

Subject: 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.