Guys...Sori yo, ternyata gwe yang salah.
Ternyata pada saat baris program tersebut dieksekusi cbkode.textnya=""Maka ngga 
ada yang keapus toh....My MistakePemecahannya :Gwe bikin variable baru as 
string untuk menangkap cbkode.text tadi supaya ngga ilang.Dan baris tersebut 
hanya diganti seperti ini ;  Data1.Refresh
    Data1.Database.Execute "Delete * From namatable Where Bagian <> '" & vText 
& "'"
    Data1.RefreshTrims buat semua yang udah ngebantuin, specially for Mr. 
Frangky.
Good luck for you allTrims yo..Regards
Gege Nugroho

--- On Fri, 2/27/09, Gege Nugroho <[email protected]> wrote:
From: Gege Nugroho <[email protected]>
Subject: [VB] Delete Multiple rekords dengan DAO
To: [email protected]
Date: Friday, February 27, 2009, 4:56 PM

Guys...Gwe kembali dengan masalah :-)
Gwe punya Database Akses konek dengan DAO (recordsettype=dynaset)yang gwe mao 
dengan koding dibawah ini adalah jika Bagian <> text1.text, maka dihapus, yang 
ada malah ngga terhapus.Ini koding gwe  Data1.Refresh
    Data1.Database.Execute "Delete * From namatable Where Bagian <> '" & 
text1.Text & "'"
    Data1.Refresh

Ada ide guys???Trims yo sebelumnya...
Regards
Gege Nugroho


      


      

Kirim email ke