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

Thursday, July 28, 2011

Re: [belajar-access] Data Type [1 Attachment]

[Attachment(s) from hari yanto included below]

Dari file yang Sampeyan kirim, error terjadi karena script VBA tidak diletakkan pada suatu fungsi atau sub.

Akan lebih baik bila memberi nama field dengan nama-nama selain yang ada di sistem (date, day, old, dlsb). Agar memudahkan ketika kita akan mengolah data melalui piranti VBA.

Karena nilai 20110720001 merupakan gabungan dari field, lebih baik tidak disimpan pada field tertentu. Kalau kita butuh untuk menayangkan, kita tinggal menggabungkan field-field tersebut.

Terlampir adalah penyelesaiannya...

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

http://110.139.57.19

--- 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 [1 Attachment]
To: belajar-access@yahoogroups.com
Date: Wednesday, 20 July, 2011, 12:56 PM

File terlampir

----- Original Message -----
From: "hari yanto" <har_i20002000@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 20, 2011 11:38 AM
Subject: 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.