Untuk buat kode saya pake prosedure ini : (sorry kalao salah persepsi)
Public Function BuatKode(ByVal Inisial As String) As String
Dim rsBuatNo As New ADODB.Recordset
Dim noPLG As String
Dim Hari As String
Dim Bulan As String
Dim Tahun As String
Dim Jam As String
Dim Menit As String
Dim Detik As String
Dim JumlahData As String
Dim NomorTerakhir As String
On Error GoTo BuatKode_Error
Hari = Format(Now(), "dd")
Bulan = Format(Now(), "MM")
Tahun = Format(Now(), "yy")
Jam = Format(Now(), "hh")
Menit = Format(Now(), "nn")
Detik = Format(Now(), "ss")
With rsBuatNo
.CursorLocation = adUseClient
.Open "SELECT * FROM tblNoBukti WHERE HNoBukti = '" & Inisial & "'",
Conn, adOpenKeyset, adLockReadOnly
.Requery
NomorTerakhir = .Fields("NomorTerakhir")
'//buat pengkodisian dari data nomor terakhir yang didapat
Select Case NomorTerakhir
Case Is <= 0
noPLG = Inisial & "-" & Hari & Bulan & Tahun & Jam & Menit &
Detik & "-" & "00001"
BuatKode = noPLG
Case Is >= 99999
noPLG = Inisial & "-" & Hari & Bulan & Tahun & Jam & Menit &
Detik & "-" & "00001"
BuatKode = noPLG
Case Else
JumlahData = Format(NomorTerakhir + 1, "00000")
noPLG = Inisial & "-" & Hari & Bulan & Tahun & Jam & Menit &
Detik & "-" & JumlahData
BuatKode = noPLG
End Select
.Close
End With
Set rsBuatNo = Nothing
'___________________________________________________________
On Error GoTo 0
Exit Function
BuatKode_Error:
MsgBox "Ada Kesalahan ! " & vbCrLf & "Nomor Kesalahan : " &
Err.Number & vbCrLf & "Deskripsi : " & Err.Description & vbCrLf & "Di
prosedur BuatKode dalam modul Module KoleksiFunction"
End Function
Achmad wrote:
> Dear All,
>
> Saya ingin membuat auto number di textbox berdasarkan nomor terakhir
> dlm kolom di tabel. Dengan option sbb:
> 1--> 1.10.xxxx
> 2--> 2.30.xxxx
>
> ket:
> xxxx --> adalah auto number
>
> cth:
> saya pilih option no 1. Nomor terakhir dlm tabel adalah 1.10.0005.
> Jadi auto number dlm textbox --> 1.10.0006
>
> Thx sebelumnya.
>
>
>
> Wahana Programmer Groups Links
>
>
>
>
>
>
>
> SPONSORED LINKS
> Programmer
> <http://groups.yahoo.com/gads?t=ms&k=Programmer&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=QQ3jf-qPyCuDVOqmjxXLqQ>
>
> Indonesia
> <http://groups.yahoo.com/gads?t=ms&k=Indonesia&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=gwDT36aV8hG5doSQaoUwSA>
>
> Basic programming language
> <http://groups.yahoo.com/gads?t=ms&k=Basic+programming+language&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=g8R4hday0lm5D2hL5lG5aQ>
>
>
> Computer programming languages
> <http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=RLdM7FZAm3K7raX0D8KsjA>
>
> Programming languages
> <http://groups.yahoo.com/gads?t=ms&k=Programming+languages&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=CtRXYvnoy1O17UC430cphA>
>
> Java programming language
> <http://groups.yahoo.com/gads?t=ms&k=Java+programming+language&w1=Programmer&w2=Indonesia&w3=Basic+programming+language&w4=Computer+programming+languages&w5=Programming+languages&w6=Java+programming+language&c=6&s=157&.sig=XQJC4fZro9pIX1bkqBwT8w>
>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> * Visit your group "Programmer-VB
> <http://groups.yahoo.com/group/Programmer-VB>" on the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
