[Attachment(s) from Muhamad Safei included below]
selamat pagi semuanya...mau tanya kira ini kenapa ya??
notifikasi erorr terlampir..berikut sorcecodenya..
mohon bantuannya..
Thnks
On Error GoTo errH
Dim db As Database, rs As Recordset, s As String
Set db = CurrentDb
s = "SELECT floor_tracktmpReport.* FROM floor_tracktmpReport WHERE (((floor_tracktmpReport.id)='" & Me!trId & "'));"
Set rs = db.OpenRecordset(s)
rs.edit
rs!id = Me!trId
rs!ft_id = Me!ft_id
rs!mch_code = Me!mch_code
rs!mc_side = Me!mc_side
rs!ft_gty = Me!q_qty
rs!ft_wsetup = Me!w_setup
rs!ft_remark = Me!Remark
rs!FINISHING = Me!waste
rs!mch_type_code = Me!mch_type_code
rs!ft_waste = Me!waste
rs.Update
MsgBox "Data Telah Tersimpan"
Refresh
DoCmd.close
Exit Sub
errH:
MsgBox Error$
Exit Sub
Resume
Dim db As Database, rs As Recordset, s As String
Set db = CurrentDb
s = "SELECT floor_tracktmpReport.* FROM floor_tracktmpReport WHERE (((floor_tracktmpReport.id)='" & Me!trId & "'));"
Set rs = db.OpenRecordset(s)
rs.edit
rs!id = Me!trId
rs!ft_id = Me!ft_id
rs!mch_code = Me!mch_code
rs!mc_side = Me!mc_side
rs!ft_gty = Me!q_qty
rs!ft_wsetup = Me!w_setup
rs!ft_remark = Me!Remark
rs!FINISHING = Me!waste
rs!mch_type_code = Me!mch_type_code
rs!ft_waste = Me!waste
rs.Update
MsgBox "Data Telah Tersimpan"
Refresh
DoCmd.close
Exit Sub
errH:
MsgBox Error$
Exit Sub
Resume
__._,_.___
Attachment(s) from Muhamad Safei | View attachments on the web
1 of 1 Photo(s)
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (1) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar