apa waktu mengedit sudah di diable kan CmdSimpan, pake dua kondisi aja kalo mau menggabung perintah tambah sama edit nya
if CmdSimpan.enabel=true and CmdEdit.enable=false then ....... else ...... end if Thx Hendra ----- Original Message ---- From: D.N.Adam <[EMAIL PROTECTED]> To: [email protected] Sent: Tuesday, June 19, 2007 10:30:31 AM 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 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 ____________________________________________________________________________________ TV dinner still cooling? Check out "Tonight's Picks" on Yahoo! TV. http://tv.yahoo.com/ [Non-text portions of this message have been removed]
