Lilis
Lilis> coba ini mas, modify aja sesuai kebutuhan, dijamin ga nyesel
Lilis> '-------------------------------------------------------------
Lilis> Private Sub NoOtomatis()
Lilis> Dim rs As ADODB.Recordset
Lilis> Dim sql, noUrut As String
Lilis> Dim NoBukti, NoInvoice As String
Lilis> vBln = Format(DateTimePicker.Value, "mm") 'ambil bulanya
Lilis> vThn = Format(DateTimePicker.Value, "yy") 'ambil tahunnya
Lilis> vTgl = "%" & vThn & vBln 'sama dgn %thnbln
Lilis>
Lilis> Set rs = New ADODB.Recordset
Lilis> sql = "SELECT nourut FROM nmTabel WHERE nourut LIKE '" & vTgl & "'
ORDER BY nourut"
Lilis>
Lilis> rs.Open sql, cn, adOpenDynamic, adLockOptimistic, adCmdText
Lilis>
Lilis> If rs.RecordCount = 0 Then
Lilis> txtNoUrut.Text = "AMJ" & vThn & vBln & "0001" 'isi dgn
AMJthnbln0001
Lilis> noBukti = "AMJ" & vThn & vBln & "0001" 'simpan di variabel
Lilis> Else
Lilis> rs.MoveLast
Lilis> noBukti = rs!nourut
Lilis>
Lilis> If Right(noBukti, 4) = "0001" Then
Lilis> txtNoUrut.Text = "AMJ" & vThn & vBln & "0002"
Lilis> Else
Lilis> NoInvoice = Right(noBukti, 4) 'ambil 4 digit dari var noBukti
Lilis> NoInvoice = NoInvoice + 1 'dari 4 digit tambahkan
dg 1
Lilis> If Len(NoInvoice) = 1 Then 'jika panjangnya 1
Lilis> NoInvoice = "000" & NoInvoice 'isi dgn 0001
Lilis> ElseIf Len(NoInvoice) = 2 Then NoInvoice = "00" &
NoInvoice
Lilis> ElseIf Len(NoInvoice) = 3 Then NoInvoice = "0" &
NoInvoice
Lilis> End If
Lilis> NoBukti = "AMJ" & sThn & sBln & NoInvoice
Lilis> txtNoUrut.Text = NoBukti
Lilis> End If
Lilis> End If
Lilis> Set rs = Nothing
Lilis> End Sub
Lilis> salam
Lilis> Lilis Suryani ArjaMaya
Sekedar koreksi/masukan dikit ya...
untuk mempersingkat coding elseifnya diganti pake right aja
jadi NoBukti = "AMJ" & SThn & SBln & Right("00000" +
cstr(NoInvoice),6)
jadi lebih singkat codingnya..
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
