Kalo mau edit data, textbox yang diisi dengan data dari field dan jangan pake AddNew karena akan menambah record baru. Posisinya tinggal dibalik aja :
DataBrg.Recordset.edit txtkdbrg.Text = DataBrg.Recordset!kdbrg dst....... Setelah datanya di-edit, baru di-update. DataBrg.Recordset!kdbrg = txtkdbrg.Text DataBrg.Recordset.update Dst... Salam, edi ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of D.N.Adam Sent: Tuesday, June 19, 2007 10:31 AM To: [email protected] Subject: [indoprog-vb] Coding Eror ..!! Tidak Mau Ke Kondisi/Logika Edit Data...? Teman-teman, mohon bantuannya. Mengapa saya buat program di VB 6.0 utk Edit Data, Kok kondisi logikanya tdk menuju script utk Edit Datanya..? Malah menganggap saya menambah Data Baru. Pdhal saya cuman mau edit Stok Barangnya.Apakah ada kesalahan logika untuk Tambah atau Editnya karena saya buat kondisi Tambah(AdNew) & Edit(Edit) jadi satu dgn tombol command button SIMPAN.Coding sbb: If txtkdbrg = "" Or TxtNama = "" Or txthargabeli = "" Or txthargajual = "" Or txtstockmin = "" Then X = MsgBox("Data Tidak Boleh Kosong...!", 0, "Informasi") Exit Sub Else If CmdSimpan.Enabled = True Then 'On Error GoTo ErrorHandler DataBrg.Recordset.AddNew DataBrg.Recordset!kdbrg = txtkdbrg.Text DataBrg.Recordset!nama = TxtNama.Text DataBrg.Recordset!hargabeli = txthargabeli.Text DataBrg.Recordset!hargajual = txthargajual.Text DataBrg.Recordset!stockmin = txtstockmin.Text datajenisbrg.Recordset.AbsolutePosition = cmbjenisbrg.ListIndex DataBrg.Recordset!kdjenis = datajenisbrg.Recordset!kdjenis DataBrg.Recordset.Update =========> baris diatas akan menambah record baru dan langsung menyimpan data. Call PosisiAwal Call txtkosong 'On Error Resume Next 'On Error GoTo 0 ElseIf CmdEdit.Enabled = True Then DataBrg.Recordset.Edit DataBrg.Recordset!nama = TxtNama.Text DataBrg.Recordset!hargabeli = txthargabeli.Text DataBrg.Recordset!hargajual = txthargajual.Text DataBrg.Recordset!stockmin = txtstockmin.Text datajenisbrg.Recordset.AbsolutePosition = cmbjenisbrg.ListIndex DataBrg.Recordset!kdjenis = datajenisbrg.Recordset!kdjenis DataBrg.Recordset.Update End If End if End Sub NOTICE - This message and any attached files may contain information that is confidential and intended only for use by the intended recipient. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, be advised that you have received this message in error and that any dissemination, copying or use of this message or attachment is strictly forbidden, as is the disclosure of the information therein. If you have received this message in error please notify the sender immediately and delete the message. [Non-text portions of this message have been removed]
