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
