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

 

Coba kl functionnya seperti ini:

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

semoga bermanfaat.

Salam hangat,

Coyev.

__._,_.___

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

Messages in this topic (2)

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['aX_FAEoGYm0-']='&U=13cloqr3q%2fN%3daX_FAEoGYm0-%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.