E
edisonl via AccessMonster.com
First tried: Delete with command below:
(Objectives: What I wana achieve is when checkbox is checked Aka ='True',
Particular recordset will be cut and paste into another table)
strsql = "INSERT INTO MyTable VALUES ('" &TextBox1 & "'"
CurrentDb.Execute strsql ' >>>
SQL Statement for inserting is fine
MySubform.SetFocus ' >>>
Can't Delete after successful insert
DoCmd.DoMenuItem acFormBar, acEditMenu, acDelete, , acMenuVer70
Second tried: Undo with command below:
(Objectives: Just a simple SelectAll & cancel to UnSelect All function in
checkbox thats all)
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
ERROR MSG >> The command or action 'undo' isn't available now
Edison
(Objectives: What I wana achieve is when checkbox is checked Aka ='True',
Particular recordset will be cut and paste into another table)
strsql = "INSERT INTO MyTable VALUES ('" &TextBox1 & "'"
CurrentDb.Execute strsql ' >>>
SQL Statement for inserting is fine
MySubform.SetFocus ' >>>
Can't Delete after successful insert
DoCmd.DoMenuItem acFormBar, acEditMenu, acDelete, , acMenuVer70
Second tried: Undo with command below:
(Objectives: Just a simple SelectAll & cancel to UnSelect All function in
checkbox thats all)
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
ERROR MSG >> The command or action 'undo' isn't available now
Edison