ผม insert ข้อมูลแล้วต้องการ clear ข้อมูลที่ text box และ combo box ครับ
ต้องเขียนคำสั่งยังไงครับ เป็นมือใหม่ครับ

และผมต้องการลบข้อมูลที่ subform ครับ แต่ที่ผมใช้ code ใน board มันลบข้อมูลทั้งหมดใน table ครับ ผมใส่เงื่อนไม่ถูกครับ ช่วยแนะนำทีครับ

Private Sub cmdadd_Click()
On Error GoTo Err_cmdadd_Click


    DoCmd.SetWarnings False
    DoCmd.GoToRecord acDataForm, Me.Name, acFirst
    DoCmd.RunSQL "Insert into PR (pr_no, pr_number, pr_openday, pr_approveday, pr_distributeday, category_id, dept_name, dept_use, user_id) values(text8, text10, text15, text17, text19, txtcategory, txtdept, txtdept_use, txtuserid)"
    DoCmd.RunSQL "Insert into PO (po_id, product_name, quantity, unit_price, total_price, shop_name, pr_no, pr_number) values (text23, text25, text27, text29, text31, text33, text8, text10)"
    Me.child1.Form.Requery
Exit_cmdadd_Click:
    Exit Sub

Err_cmdadd_Click:
    MsgBox Err.Description
    Resume Exit_cmdadd_Click
    
End Sub

Private Sub cmddel_Click()
On Error GoTo Err_cmddel_Click


    CurrentProject.Connection.Execute "Delete From PR "
    Me.child1.Form.Requery

Exit_cmddel_Click:
    Exit Sub

Err_cmddel_Click:
    MsgBox Err.Description
    Resume Exit_cmddel_Click
End Sub