cara 1. 1. buat field utk kode dokumen (tipe : text) 2. sunting di query dengan fungsi left, mid dan right dan berikan keterangan berdasarkan kondisi yg ada. misal : iif(left([kode_dok],2)="AA", ....dst)
cara 2. 1. buat field utk kode dokumen, kode cabang, dan kode2 yg lainnya 2. gunakan event untuk menggabungkan semua kode2 tsb dalam satu kode saja :: lusky kurniawan - http://solusiaccess.com Pada 10 November 2009 11:22, alfiandri s <[email protected]> menulis: > > > 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 <[email protected]>* wrote: > > > From: alfiandri s <[email protected]> > Subject: Re: [belajar-access] Tanya cari selisih data antara record > To: [email protected] > 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 > > > > > > > >
