MS ACCESS MAILING LIST: {Disarmed} Re: [belajar-access] Re: (Tanya) no registrasi

Tuesday, December 13, 2011

{Disarmed} Re: [belajar-access] Re: (Tanya) no registrasi

baik mas edy saya coba dulu...

makasih banyak
afrizal

--- On Tue, 10/1/12, Edy <murid.belajaraccess@yahoo.co.id> wrote:

From: Edy <murid.belajaraccess@yahoo.co.id>
Subject: [belajar-access] Re: (Tanya) no registrasi
To: belajar-access@yahoogroups.com
Date: Tuesday, 10 January, 2012, 9:04 AM

Coba mas Afrizal pakai fungsi ini.

Public Function GetNo(TGL As Date) As String
Kriteria = Format(TGL, "ddmmyyyy")
jNo = DCount("No", "TInput", "[No] Like '" & Kriteria & "*'")

If jNo = 0 Then
Num = 1
Else
Num = DMax("CInt(Right([No],4))", "TInput", "[No] Like '" & Kriteria & "*'") + 1
End If

GetNo = Kriteria & Format(Num, "0000")
End Function

--- In belajar-access@yahoogroups.com, Afrizal <aflazio7@...> wrote:
>
>
> para master access
>
> saya ada masalah untuk membuat no registrasi. saya mendapat contoh dr milis ini. tp pada saat saya praktek dalam form sy no registrasi ya selalu di satu nomor aja tidak berganti.
> contoh no ya.
> 080120120001
> seharusnya akan berlanjut ke 080120120002. tp yg tampil tetap no 080120120001.
>
>
> mohon solusi ya.... (file terlampir)
>
> terima kasih banyak
>
> Afrizal
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

New Members 11

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

if(window.yzq_d==null)window.yzq_d=new Object(); window.yzq_d['Wu4EAUoGYvc-']='&U=13cs1numb%2fN%3dWu4EAUoGYvc-%2fC%3d493064.14543979.14562481.13298430%2fD%3dMKP1%2fB%3d6060255%2fV%3d1';