Pak Pian terima kasih atas bantuannya sangat berharga sekali. maklum baru belajar jadi masih perlu support senior2nya VB
saya sudah coba script yzng dikirm dan sukses untuk proses movenext data yang ada di master.dan pada saat record master di record tertentu dan proses database banding juga berhasil dgn baik. tidak ada error seperti script saya terima kasih banyak DONIE ----- Original Message ----- From: vbPian To: [email protected] Sent: Thursday, April 26, 2007 2:18 AM Subject: Re: [indoprog-vb] Re: PROSES LOOPING 2 DATABASE Bung Donielo coba kode ini, semoga seperti yang anda harapkan. Sub proses() Dim Tunggu As Integer With Dbmaster.Recordset Do While Not .Eof mnamabarang = !nama_barang mkunci1 = !kunci_1 digit = !digit Dbbanding.Refresh Do While Not Dbbanding.Recordset.Eof mpenjelasan = Dbbanding.Recordset!penjelasan mketemu = InStr(mpenjelasan, mkunci1) If mketemu > 0 Then mkarakter = Mid(mpenjelasan, mketemu, digit) If mkunci1 = mkarakter Then .Edit !Status = "1" .Update Dbbanding.Recordset.Edit Dbbanding.Recordset!Status = "1" Dbbanding.Recordset.Update End If End If Dbbanding.Recordset.MoveNext Loop .MoveNext Loop End With End Sub On 26/04/07, donielo <[EMAIL PROTECTED]> wrote: > > adakah yang bisa membantu untuk hal ini? > > thnk > > --- In [email protected], "donielo" <[EMAIL PROTECTED]> > wrote: > > > > Dear Rekan VB master > > saya mau proses sebuah script secara otomatis. apabila ada ta di > > database 1 maka akan diproses untuk dibandingkan antara record yang > > ada di database ke 2 > > > > field database 1 > > namabarang > > katacunci_1->kata kunci untuk record tsb yang akan dicari > > perbandingan dgn Database ke 2 > > digit-> jumlah digit kata kunci yang akan dicocokan dgn database 2 > > > > field database 2 > > keterangan =>kata ini akan mengadung/tidak kata kunci dari database1 > > apabila ketemu maka status record database1 tidak diproses lagi > > > > > > > > > > > > > > '=======Script yang saya tulis============ > > > > Private Sub tmrCek_Timer() > > Call proses > > End Sub > > > > Sub proses() > > Dim Tunggu As Integer > > With Dbmaster.Recordset > > Do While Status = "" > > mnamabarang = Dbmaster.Recordset!nama_barang 'tidak bisa ke > > record selanjutnya > > mkunci1 = Dbmaster.Recordset!kunci_1 > > digit = Dbmaster.Recordset!digit > > Dbbanding.Refresh > > With Me.Dbbanding.Recordset > > Do While Status = "" > > mpenjelasan = Dbbanding.Recordset!penjelasan 'error waktu > > looping kalau data sudah habis,tetapi bisa ke record selanjutnya > > mketemu = InStr(mpenjelasan, mkunci1) > > > > If mketemu > 0 Then > > mkarakter = Mid(mpenjelasan, mketemu, digit) > > If mkunci1 = mkarakter Then > > Me.Dbmaster.Recordset.Edit > > Me.Dbmaster.Recordset!Status = "1" > > Me.Dbbanding.Recordset.Update > > Me.Dbbanding.Recordset.Edit > > Me.Dbbanding.Recordset!Status = "1" > > Me.Dbbanding.Recordset.Update > > End If > > End If > > .MoveNext > > Loop > > End With > > .MoveNext > > Loop > > End With > > End Sub > > > > > > '============== > > setelah diproses banyak terdapat error ,mohon bantuan dari Rekan > > rekan apakah punya cara yang tepat supaya tidak terdapat banyak > > error.dan terkadang proses dari record 1 tidak bisa next ke record > ke > > 2 > > > > > > atas bantuannya saya ucapkan terima kasih > > > > > > > Untuk berhenti berlangganan kirim email kosong ke : > [EMAIL PROTECTED] > > Bagi terjangkit virus lokal, zip virus tersebut > dan kirim ke [EMAIL PROTECTED], kami > akan membuat removalnya untuk anda. > Yahoo! Groups Links > > > > -- Best Regard, [zZzz] [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
