Halo Mas Hasim, thanks atas bantuannya it's work for me .... --- On Thu, 11/5/09, [email protected] <[email protected]> wrote:
From: [email protected] <[email protected]> Subject: Re: [belajar-access] Tanya cari selisih data antara record To: [email protected] 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
