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

 

Sedikit tambahan, usahakan untuk menghindari penggunaan nama field yang mungkin digunakan dalam sebuah fungsi (no, date, year, month, day, dsb...) ini akan menjadikan kepala kita pusing. Sebenernya kalo diganti nama fieldnya jadi noID dan sedikit perubahan

strDummy = Nz(DMax("RIGHT(noid,4)", "Tinput", "noid Like '" & Format(TGL, "dd") & Format(TGL, "mm") & Format(TGL, "yyyy") & "*'"), "")

kemudian gunakan
If strDummy = "0" Then
daripada
If strDummy = "" Then
karena sudah di NZ

sudah bisa jalan.

silakan dicoba...

--- In belajar-access@yahoogroups.com, Afrizal <aflazio7@...> wrote:
>
> terima kasih masukannya mas...
> saya coba dulu ya
>
> thank
> Afrizal
>
> --- On Tue, 10/1/12, Coyev <coyev@...> wrote:
>
> From: Coyev <coyev@...>
> Subject: [belajar-access] Re: (Tanya) no registrasi
> To: belajar-access@yahoogroups.com
> Date: Tuesday, 10 January, 2012, 9:10 AM
>
>
>
>
>
>
>
>
>  
>
>
>
>
>
>
>
>
>
> Coba kl fungsinya jadi begini:
>
>
>
> Public Function GetNo(pTGL As Date) As String
>
> Dim strDummy As String
>
> strDummy = Nz(DMax("right([no],4)", "Tinput", "left([no],8)='" & Format(pTGL, "ddmmyyyy") & "'"))
>
> If strDummy = "" Then
>
> GetNo = Format(pTGL, "dd") & Format(pTGL, "mm") & Format(pTGL, "yyyy") & "0001"
>
> Else
>
> GetNo = Format(pTGL, "dd") & Format(pTGL, "mm") & Format(pTGL, "yyyy") & Format(Val(strDummy) + 1, "0000")
>
> End If
>
> End Function
>
>
>
> Smoga bermanfaat.
>
>
>
> Salam,
>
> Coyev
>
>
>
> --- 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 (6)

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['E6wTAdGDJGs-']='&U=13cnlvk6r%2fN%3dE6wTAdGDJGs-%2fC%3d493064.14543979.14562481.13298430%2fD%3dMKP1%2fB%3d6060255%2fV%3d1';

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___

--
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.