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 >
