ACCESS FEED: Re: [belajar-access] Coding ID

Minggu, 24 Maret 2013

Re: [belajar-access] Coding ID

Monggo pak
Sebenarnya saya sudah buat file contoh nya
Cuman karena saya sudah gak di kantor saya gak bisa kirim
Maklum gak punya laptop alias nebeng.com :D
Semoga bermanfaat
Salam

Sent from Yahoo! Mail on Android

From: Rainusa <rainusa.indo@gmail.com>;
To: monas monas <jaken_05@yahoo.co.id>; belajar-access@yahoogroups.com <belajar-access@yahoogroups.com>;
Subject: Re: [belajar-access] Coding ID
Sent: Sun, Mar 24, 2013 12:33:50 PM

Wah terima kasih Mas Monas, tak cuba dulu ya codenya ya ...

Salam
Rainusa

From: monas monas <jaken_05@yahoo.co.id>

Date: Sun, 24 Mar 2013 20:11:06 +0800 (SGT)

To: belajar-access@yahoogroups.com<belajar-access@yahoogroups.com>; rainusa.indo@gmail.com<rainusa.indo@gmail.com>

Subject: Re: [belajar-access] Coding ID

function nya saya taruh di afterupdate event field1

mohon koreksi atau pencerahan , mungkin aja ada cara lbh simple
salam

Public Function IDBaru() As String Dim NextNum As String Dim GetRomawi As String, Bln As Integer Dim Tahun As Integer

NextNum = Right((Nz(DCount("No", "T1") + 1) + 1000), 3)

Bln = Month(Date) Select Case Bln Case Is = 1 GetRomawi = "I" Case Is = 2 GetRomawi = "II" Case Is = 3 GetRomawi = "III" Case Is = 4 GetRomawi = "IV" Case Is = 5 GetRomawi = "V" Case Is = 6 GetRomawi = "VI" Case Is = 7 GetRomawi = "VII" Case Is = 8 GetRomawi = "VIII" Case Is = 9 GetRomawi = "IX" Case Is = 10 GetRomawi = "X" Case Is = 11 GetRomawi = "XI" Case Is = 12 GetRomawi = "XII"

End Select

Tahun = Year(Date)

IDBaru = "RTC-" IDBaru = IDBaru & NextNum IDBaru = IDBaru & "-" & GetRomawi & "-" IDBaru = IDBaru & Tahun

End Function

Sent from Yahoo! Mail on Android

From: Rainusa Indo <rainusa.indo@gmail.com>;
To: <belajar-access@yahoogroups.com>;
Subject: [belajar-access] Coding ID
Sent: Sun, Mar 24, 2013 8:54:43 AM

Dear rekan-rekan,

Mohon izin untuk bertanya dan pencerahan.

Bagaimana kira-kira codingnya ya kalau saya punya ID RTC-001-III-2013 yang bisa dicreate automatis.

Dimana RTC adalah tetap, 001 serial number, III bulan dalam romawi-2013 adalah tahun, kalau ID diatas sedikit ribet atau mungkin ada ide lain berikut codingnya untuk membuat ID

Terima kasih atas pencerahannya.

Maaf kalau ada yang salah,

Best regars,

Rainusa Training

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (10)

Recent Activity: