Salam para pendekar/jagoan VB.
ini akhirnya saya dapatkan Sintax dr Buku VB karangan UUS RUSMAWAN
yg tlh saya modifikasi, pada no urut ini saya coba menggunakan
format Tahun, Bulan dan No. Urut. Misal (AMJ07040001)
AMJ singkatan dari Toko Abadi Maju Jaya
07 = Tahun
04 = Bulan
0001= No Urut
Tapi pertanyaan saya, setelah no tsb tersimpan mengapa ketika saya
ingin menginput No Baru tidak berubah harusnya
(AMJ07040002..dst...dst)
Berikut petikan codenya:
Dim Urutan As String * 11
Dim Hitung As Long
'On Error Resume Next
With Data1.Recordset
If .RecordCount = 0 Then
Urutan = "AMJ" & Right(Date, 2) + Mid(Date, 4, 2) + "0001"
Else
.MoveLast
If Left(!ref_no, 4) <> Right(Date, 2) + Mid(Date, 4, 2) Then
Urutan = "AMJ" & Right(Date, 2) + Mid(Date, 4, 2)
+ "0001"
Else
Hitung = (!ref_no) + 1
Urutan = "AMJ" & (Right(Date, 2) + Mid(Date, 4, 2)) +
Right("0000" & Hitung, 4)
End If
End If
Text1(0).Text = Urutan
End With
Selain itu saya mempunyai pertanyaan kedua:
Bagaimana caranya mencari Formula di Crystal Report untuk mencari
selisih 2 buah tanggal Contoh:
Tanggal Peminjaman: 01/04/2007 Tanggal Pemulangan: 05/04/2007
Saya ingin mencari formula di Crystal Report bahwa lama peminjaman
adalah: 4
Dengan tidak mengurangi rasa hormat saya kepada Para Pendekar VB yg
telah memberikan masukannya mengenai Pertanyaan Coding tsb. Kiranya
Mohonlah diberikan salusi lg kepada saya.
Terimakasih
ABET
