kuncinya di ada di kata ini:
running number minimal 5 digit (00000)
maksimalnya tidak terhingga,
asumsinya:
1. semua angka dari 1 s.d 4 digit diformat dgn bentuk : 00000
2. dari digit 5 dst mengikuti saja angka tsb.
3. field untuk menampung nomor tsb bernama No bertipe TEXT
4. Tabel bernama Tabel A
5. Buat form dgn autoform trus diberi nama misalnya FORM1
PENYELESAIAN :
Cara 1:
Dgn 1 Query dan Class Module
Cara 2:
Kolom No dibuat bertipe LONG INTEGER
Format dibuat di Query / Report
Adds- Cara1
'buat command button dengan wizard
'pilih Categories : Record Operation
'pilih Action : Add New Record
'klik Next
'pilih option Text : Add New Record
'klik Next
'ganti kata di situ dengan cmdAddNew
'klik finish
'dlm mode design view
'klik kanan
'pilih properties
'pindah ke Tab Event
'terlihat di On Click ada tulisan [Event Procedure]
'taruh kursor di situ
'klik aja maka langsung di bawa ke class module sbb:
'tambahkan kode ini ke dalam event tsb.
'------------start-----------------------
Counter = DMax("[Noz]", "QueryCounter") + 1
If Len(Counter) <= 5 Then
No.Value = Format(Counter, "00000")
Else
No.Value = Counter
End If
'---------------------------end-----------------
jangan lupa membuat query bernama QueryCounter dengan SQL sbb:
SELECT Int([No]) AS Noz, [Tabel A].ID, [Tabel A].[No] FROM [Tabel A] ORDER BY
Int([No]) ;
Adds - Cara 2
DoCmd.GoToRecord , , acNewRec
Counter = Nz(DMax("[No]", "[Tabel A]"), 0) + 1
If Len(Counter) <= 5 Then
No.Value = Format(Counter, "00000")
Else
No.Value = Counter
End If
Nantinya di Query bisa dituliskan rumusnya sbb:
NOZ:IIF(Len(No)<=5,Format(No,"00000"),No)
Selamat mencoba.
----- Original Message -----
From: ms.ac07
To: [email protected]
Sent: Tuesday, October 23, 2007 09:52
Subject: [belajar-access] Ginama nich automatic running number 5 digit
Dera All,
Mohon Maaf Zahir dan bathin buat semua yg merayakan Aidil Fitri 1428H,
Langsung saja nich, saya ada masalah sedikit ketika memproses inputan
automatik number:
Contoh Tabel A : dengan field :
No Tgl desc
00001 07/07/2007 test
Bagaimana ya memproses running number minimal 5 digit (00000)
maksimalnya tidak terhingga, jadi ketika berada diform input data/Add
Number tsb tampa harus di input akan secara otomatis bertambah: contoh
00001 input pertama, 00002 input kedua dst,
dan bagaimana pula memfilter jika user menginput kurang dari 5 digit,
Mohon pencarahannya dari senior2 acceser..
Terimakasih,
Salam,
Ad
