Salam..
Mas Noufal.... kenapa masih belum bisa ya....?? setelah disimpan.
No-nya tetep aja berada di : AMJ07040001.
harusnya kan AMJ07040002, dst....
punya solusi lain ga ya....
rekan2 pendekar yang lain... tolong dooonk bantuin... please
udah hampir deadline penutupan sidang skripsi nih.., dan cuma cara
mengurutkan No. nya aja yg belum bisa. Mungkin seandainya Dosen
pembimbing ga minta hal ini, pasti udah jadi programnya (Bilangnya
sih biar beda dari metode yang lain)
Waduuuhhhh.. pusiiiing.....
--- In [EMAIL PROTECTED], Naufal Mumtaz Ramadhan
<[EMAIL PROTECTED]> wrote:
>
>
> coba dirumus hitung dirubah dengan
> Hitung = val(right(!ref_no,4)) + 1
>
> CystalReport
> buat field formula lalu isi dengan
> FieldPemulangan - FieldPeminjaman
>
> abet_tnb <[EMAIL PROTECTED]> wrote:
> 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
>
>
>
>
>
> Send instant messages to your online friends
http://uk.messenger.yahoo.com
>
> [Non-text portions of this message have been removed]
>
