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

Saturday, December 17, 2011

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

mas edy terima kasih atas bantuannya....
saya sudah praktek caranya mas edy dan berhasil dengan mulus...

terima kasih banyak

afrizal

--- On Tue, 10/1/12, Afrizal <aflazio7@yahoo.com> wrote:

From: Afrizal <aflazio7@yahoo.com>
Subject: Re: [belajar-access] Re: (Tanya) no registrasi
To: belajar-access@yahoogroups.com
Date: Tuesday, 10 January, 2012, 12:44 PM

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
>