koreksi sedikit ya tante lis untuk NoInoice rubah jadi numeric aja
tambah 1 baru dijadiin String lagi. jadi ga perlu pake if then else
coding lebih singkat.
jadi NoInvoice = right("0000" + cstr(val(Noinvoce) + 1))
Lilis
Lilis> dear abet,
Lilis> coba pake prosedur ini ya, caranya tau kan tinggal call NoOtomatis,
Lilis> maka otomatis juga deh nomernya.
Lilis> puas...puas...puas hehehehe ketawa donk masa cuma si tukul aja yg
ketawa.
Lilis> ok perhatiin ya kodingnya, sesuaikan dgn objek2 yg ada di form km ya
Lilis> disini sy asumsikan km pake dateTimePicker utk input field Tglnya.
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> ok bet di coba ya kalo berhasil katakan pada dunia dg senyuman hehehe...
Lilis> salam
Lilis> lis
Lilis> __________________________________________________
Lilis> Do You Yahoo!?
Lilis> Tired of spam? Yahoo! Mail has the best spam protection around
Lilis> http://mail.yahoo.com
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
