Gue sebenernya kagak terlalu ngerti dengan pertanyaan lo yang serabutan
gituh... cuman gue juga tidak hanya menghina pertanyaan lo..gue juga kasih
solusi...........
gini lo solusinya. kalo bikin serial number......
[KALO GA MENYELESAIKAN SOLUSI.....hehe gue jadi malu.......so tau euy]
kalo masih ga bisa.... lo hubungi gue di yahoo messenger...........
*disini gue pake function, mengenai lo mau CODING DIMANA LO
MAU........TERSERAH
Function Ambil()
Set rs = Nothing
rs.Open "select * from TABEL", cn, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
rs.MoveLast
'pertama ambil 6 digit nomor depan
strSatu = Left(rs!nomor, 6)
strNomor = Format(CStr(strSatu + 1), "000000")
'kedua ambil digit bulan dan tahun
strkedua = Mid(Date, 4, 2)
strketiga = Right(Date, 2)
Select Case strkedua
Case Is = "01"
strTampung = "I"
Case Is = "02"
strTampung = "II"
Case Is = "03"
strTampung = "III"
Case Is = "04"
strTampung = "IV"
Case Is = "05"
strTampung = "V"
Case Is = "06"
strTampung = "VI"
Case Is = "07"
strTampung = "VII"
Case Is = "08"
strTampung = "VIII"
Case Is = "09"
strTampung = "IX"
Case Is = "10"
strTampung = "X"
Case Is = "11"
strTampung = "XI"
Case Is = "12"
strTampung = "XII"
End Select
txtNomor = strNomor & "/NOFAKTUR YG LO SUKA/" & strTampung & "/" &
strketiga
Else
* INI KALAU TABEL MASIH KOSONG
skrgBln = Mid(Date, 4, 2)
skrgTahun = Right(Date, 2)
Select Case skrgBln
Case Is = "01"
strTampung = "I"
Case Is = "02"
strTampung = "II"
Case Is = "03"
strTampung = "III"
Case Is = "04"
strTampung = "IV"
Case Is = "05"
strTampung = "V"
Case Is = "06"
strTampung = "VI"
Case Is = "07"
strTampung = "VII"
Case Is = "08"
strTampung = "VIII"
Case Is = "09"
strTampung = "IX"
Case Is = "10"
strTampung = "X"
Case Is = "11"
strTampung = "XI"
Case Is = "12"
strTampung = "XII"
End Select
txtNomor = "000001/FAKTUR/" & strTampung & "/" & skrgTahun
End If
End Function
tepupunk <[EMAIL PROTECTED]> wrote:
all gw da masalah lagi nih ma faktur..ni adalah revisi
dari pertanyaan gw kmrn ttng faktur...
nih script nya
dd = tanggal
gg = variable tanggal nya yg udah di trim dari label
tanggal
Dim fakper
If rsmh.RecordCount = 0 Then
tfper.Text = "FP-" & Val(Left(TTANGGAL, 2)) &
"0001"
Else
rsmh.MoveLast
gg = Left(TTANGGAL, 2)
fakper = Left(rsmh!no_fp, 3) & gg &
Right(rsmh!no_fp + "0000", 4) + 1
tfper.Text = Format(fakper) ', "FP-000000")
End If
masalah nya....klo faktur kosong di DBnya jadi=
FP-dd0001
gtu masuk ke digit 2 dst format nya jadi
FP-dd12--> ini pas di faktur ke 12
FP-dd1 --> waktu faktur pertama sampe sebilan
yg binun "0000" ni wat apa ya..??
target faktur =
FP-dd0001 tuk dijit 1-9
Fp-dd0010 untuk dijit 10-99
please help
__________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
[Non-text portions of this message have been removed]
