function nya saya taruh di afterupdate event field1 mohon koreksi atau pencerahan , mungkin aja ada cara lbh simple 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 (8) |
Tidak ada komentar:
Posting Komentar