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

 

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 (3)

Recent Activity:

• New Members 9

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['1ubnANBDRsk-']='&U=13c3fhq34%2fN%3d1ubnANBDRsk-%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.