Rabu, 20 Juli 2011

Re: [belajar-access] Data Type

 

Ok mas hariyanto, akan saya coba dan saya explore dl.

terima kasih

----- Original Message -----
From: "hari yanto" <har_i20002000@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 20, 2011 4:19 PM
Subject: Re: [belajar-access] Data Type [1 Attachment]

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

[Attachment(s) from Mansur Widayat included below]
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.

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar