gan ane mw nanya..ane super newbiee..belajar vb 6 modal baca2 (kagak ada duid utk les )

jadi ane punya 2 tabel..tabel A dengan field : Nama_Petugas, Bulan, Wilayah, Masalah.

nah di tabel B ini rencana hanya tabel penampung sementara dengan field Nama_OPT, P1.

jadi katakan lah tabel A sudah terisi banyak data. nah jadi saya ingin filter dengan Nama saja, misalkan nama sientong (di pilih dalam sebuah combo box) maka data yg di tampilkan di tabel B seluruh data dengan nama si entong saja gan. ane ud nulis gini.

[spoiler = "kode ane"]
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Nama_Petugas='" + cmbpetugas.Text + "'", , adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox "Maaf, Data Tidak Ditemukan!"
Else
Do While Not Adodc1.Recordset.EOF
Adodc2.Recordset.AddNew
Adodc2.Recordset!Nama_OPT = Adodc1.Recordset!Nama_Petugas
Adodc2.Recordset!P1 = Adodc1.Recordset!Bulan
Adodc1.Recordset.MoveNext
Loop
End If

[/spoiler]

nah, kl di run..dia mencari nama si entong dan ketemu, tetapi ketika looping nama setelah si entong dalam tabel lah yg di tampilkan..jadi kl menurut ane ketika looping, nama entong tidak di pertahankan, jadi nama setelah si entong sampai record berakhir yang di tampilkan.

ane ud otak atik...kadang hasilnya jadi looping tak berulang, kadang nama si entong yang di tampilkan tapi 1 data saja padahal data dia lebih dari 1.

maaf kl agak berantakan..ane ud puyeng gan..mohon bantuannya.