Saya mau minta tolong niy, bagaimana membuat No.ID yang formatnya 6 gigit
pertama adalah sekarang dan digit selanjutnya 

Adalah no urut contoh 1604081. mohon bantuannya. Terima kasih

 

   _____  

From: Edy.WIYONO [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, April 16, 2008 12:38 PM
To: [email protected]
Subject: Re: [belajar-access] autonumber

 

Gunakan pernyataan SQL

 

Misalnya dari module saya buat ini.

 

Function CreateT()
'1. Autonumber start di nomor 4, naiknya 2     

     strSQL = "CREATE TABLE test1 (No COUNTER (4,2) CONSTRAINT MyNo PRIMARY
KEY, Test Text(50), Umur DateTime);"

     Call RunSQL(strSQL)
 

'2. Autonumber start di nomor 1, naiknya 1    

     strSQL = "CREATE TABLE test2 (No COUNTER  CONSTRAINT MyNo PRIMARY KEY,
Test Text(50), Umur DateTime);"


    Call RunSQL(strSQL)
End Function
 

 

 

Function RunSQL(ByVal strSQL As String)
    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL, True
    DoCmd.SetWarnings True
End Function
 

Salam,

 

Edy WIYONO

 

On 4/16/08, Steve Hanz <[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> -com>
wrote: 

Minta tolong donk, bagaimana membuat autonumber dengan VBA tanpa memakai
autonumber access.

trims

 

Steve Hanz

Information Technology Department

Bumimulia Indah Lestari, PT

Jl. Jababeka XVI Kav. V No. 65 A  Cikarang Bekasi

Office Phone : +62 21 8936478 Ext. 251

Faximile : +62 21 8936480

Mobile : 62 815 7863 3583 or 62 818 0270 6485

Email : [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> -com or
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> -com

 

 <http://www.bumimulia.com/> 

"This e-mail (including any attachments) is intended solely for the
addressee and could contain information that is confidential; If you are not
the intended recipient, you are hereby notified that any use, disclosure,
copying or dissemination of this e-mail and any attachment is strictly
prohibited and you should immediately delete it. This message does not
necessarily reflect the views of Bumimulia Indah Lestari. Although this
e-mail has been checked for computer viruses, Bumimulia Indah Lestari
accepts no liability for any damage caused by any virus and any malicious
code transmitted by this e-mail. Therefore, the recipient should check again
for the risk of viruses, malicious codes, etc as a result of e-mail
transmission through Internet" 

 

 

 



--- 


Kirim email ke