--- On Mon, 11/9/09, alfiandri s <[email protected]> wrote: sy kira ngk masalah mas, selama tambahan digitnya number mungkin utk lebih spesifiknya, bisa difilter berdasarkan nomor kode cabang, tahun, bulan
Salam Nurhasim From: alfiandri s <[email protected]> Subject: Re-Tanya lagi : [belajar-access] Tanya cari selisih data antara record To: [email protected] Date: Monday, November 9, 2009, 8:22 PM Halo Mas Nurhasim & Para Master, ada pertanyaan tambahan nih .. maaf banyak nanya maklum pemula ... Bagaimana kalau data TABEL_A dengan field KODE_DOKUMEN dibawah, ditambahkan dengan kode cabang (Dokumen datang dari cabang yang berbeda - beda). Misalnya : 3 digit kode cabang, 2 digit tahun, 2 digit bulan, 2 digit tanggal, 4 digit sequence Contoh : TABLE_A KODE_DOK 1110211100001 1110211100003 1110211100004 2220211100001 2220211100002 2220211100004 3330211100001 3330211100005 3330211100006 Terima kasih atas bantuannya yang berharga. --- On Mon, 11/9/09, alfiandri s <alfie...@yahoo. com> wrote: From: alfiandri s <alfie...@yahoo. com> Subject: Re: [belajar-access] Tanya cari selisih data antara record To: belajar-access@ yahoogroups. com Date: Monday, November 9, 2009, 3:42 AM Halo Mas Hasim, thanks atas bantuannya it's work for me .... --- On Thu, 11/5/09, hasimnurhsm@ yahoo.com <hasimnurhsm@ yahoo.com> wrote: From: hasimnurhsm@ yahoo.com <hasimnurhsm@ yahoo.com> Subject: Re: [belajar-access] Tanya cari selisih data antara record To: belajar-access@ yahoogroups. com Date: Thursday, November 5, 2009, 8:18 PM Hallo mas. Alfi ini mudah2an spt yg anda maksud, sy coba kasih contoh yg sederhana tanpa filter tahun dan bulan. mungkin para Suhu berkenan mengoreksi ato menambahkannya, ini contoh script VBA dan sy Attach file mdb contohnya: Dim rsr1 As DAO.Recordset Dim rsr2 As DAO.Recordset Dim lno As Double, lno2 As Double, icount As Integer Set rst1 = Me.Table_B_subform. Form.Recordset Set rst2 = Me.Table_A_subform. Form.Recordset If Not (rst2.BOF And rst2.EOF) Then rst2.MoveFirst lno = rst2![KODE_DOK] rst2.MoveNext Do While Not rst2.EOF lno2 = rst2![KODE_DOK] If lno2 - lno > 1 Then For icount = 1 To lno2 - (lno + 1) With rst1 .AddNew ![KODE_DOK] = Format(lno + icount, "0") .Update End With Next icount End If lno = rst2![KODE_DOK] rst2.MoveNext Loop End If End Sub Semoga membantu Salam Nurhasim --- On Wed, 11/4/09, alfiandri s <alfie...@yahoo. com> wrote: From: alfiandri s <alfie...@yahoo. com> Subject: Re: [belajar-access] Tanya cari selisih data antara record To: belajar-access@ yahoogroups. com Date: Wednesday, November 4, 2009, 10:39 PM Mohon maaf yang dibawah e-mail sebelumnya terpotong, Dear Para Suhu / Master, Mohon bantuannya bagaimana mencari selisih antara dua record. Sebagai contoh saya mempunyai field Kode_Dokumen isinya 2 digit tahun, 2 digit bulan, 2 digit tanggal, 4 digit sequence. Contoh : TBL _A KODE_DOK 0211050001 0211050003 0211050004 antara 021105001 dan 021105003 ada selisih document yang hilang yaitu kode document 0211050002. Mohon bantuan para suhu bagaimana mengeluarkan laporan kode dokumen yang selisih tersebut, dan berapa banyak document yang selisih. --- On Thu, 11/5/09, alfiandri s <alfie...@yahoo. com> wrote: From: alfiandri s <alfie...@yahoo. com> Subject: [belajar-access] Tanya cari selisih data antara record To: belajar-access@ yahoogroups. com Date: Thursday, November 5, 2009, 12:21 AM Dear para Master / Suhu, Bagaimana cara mengidentifikasi / menemukan selisih berdasarkan kode dokumen. dengan kode dokumen diinput manual sebagai berikut: 2 digit tahun, 2 digit bulan, 2 digit hari, 4 digit sequence. Contoh : TBL_A KODE_DOC 0911050001 0911050003 0911050004 Antara 0911050001 dan 0911050003 terdapat kode dokument yang selisih / belum ada yaitu 0911050002. Mohon bantuannya para suhu bagaimana
