Private Sub cmdTutup_Click()
If mbEditFlag = True Then
If MsgBox("Apakah perubahan akan disimpan ", 4 + 32 + 256, "Perhatian") = vbYes Then
sqltxt = "update tbproduk set kduser='" & vkduser & _
"',margin1=" & Val(fgproduk.TextMatrix(brsditinggaklan, 4)) & ",margin2=" & Val(fgproduk.TextMatrix(brsditinggaklan, 5)) & ",margin3=" & Val(fgproduk.TextMatrix(brsditinggaklan, 6)) & ",margin4=" & Val(fgproduk.TextMatrix(brsditinggaklan, 7)) & ",margin5=" & Val(fgproduk.TextMatrix(brsditinggaklan, 8)) & _
",hrgjual1=" & Val(fgproduk.TextMatrix(brsditinggaklan, 9)) & ",hrgjual2=" & Val(fgproduk.TextMatrix(brsditinggaklan, 10)) & ",hrgjual3=" & Val(fgproduk.TextMatrix(brsditinggaklan, 11)) & ",hrgjual4=" & Val(fgproduk.TextMatrix(brsditinggaklan, 12)) & ",hrgjual5=" & Val(fgproduk.TextMatrix(brsditinggaklan, 13)) & _
",discjual=" & Val(fgproduk.TextMatrix(brsditinggaklan, 14)) & ",qty1=" & Val(fgproduk.TextMatrix(brsditinggaklan, 15)) & ",qty2=" & Val(fgproduk.TextMatrix(brsditinggaklan, 16)) & ",qty3=" & Val(fgproduk.TextMatrix(brsditinggaklan, 17)) & _
" where kdproduk='" & fgproduk.TextMatrix(brsditinggaklan, 1) & "'"
conn.Execute sqltxt, , adCmdText
End If
mbEditFlag = False
End If
Unload Me
End Sub