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
