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]
