Kapan nilai dari cmdSimpan.Enabled menjadi False? Karena kalo true terus ya
jelas dia masuk duluan di kondisi IF yg awal. Solusinya, harus ada kondisi
dimana nilai dari cmdSimpan.Enabled menjadi False.
Ingat, program itu dieksekusi baris per baris.
Semoga membantu,
"D.N.Adam" <[EMAIL PROTECTED]> wrote:
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
---------------------------------
Be a better Globetrotter. Get better travel answers from someone who knows.
Yahoo! Answers - Check it out.
