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

Minggu, 24 Maret 2013

Re: Bls: [belajar-access] Coding ID

Terimakasih pak atas ilmunya
Saya coba tar di kantor :D

Sent from Yahoo! Mail on Android

From: Farhan Holizain <farhanholizain@yahoo.com>;
To: belajar-access@yahoogroups.com <belajar-access@yahoogroups.com>;
Subject: Bls: [belajar-access] Coding ID
Sent: Sun, Mar 24, 2013 4:51:29 PM

untuk Romawi saya lebih suka pake fungsi =choose(Month(Tanggal),"I","II","III","IV","V","VI","VII", "VIII", "IX","X","XI","XII")

Tapi apakah Choose bisa dipake di VBA ya?

Farhan Holizain

Dari: monas monas <jaken_05@yahoo.co.id>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>; "rainusa.indo@gmail.com" <rainusa.indo@gmail.com>
Dikirim: Minggu, 24 Maret 2013 19:11
Judul: 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