核取方塊全選和全部取消 - 藍色小舖

我是Access新手請教各位大大表單中如何製作核取方塊全選和全部取消的功能核取方塊是在詳細資料中,勾選10 項商品後用以下程式碼,只能取消最後一次的 ... 台灣最大程式設計社群網站 ∣免費加入會員∣登入 ∣回首頁∣ 您好 線上人數 1618   會員總數：246710 討論主題：190127 討論區 程式下載/上傳 科技新聞 專欄文章 會員中心 加值服務 外包接案 求職求才 登入 登出 歡迎您免費加入會員 討論區選單 開發工具 行動裝置開發 資料庫 多媒體/網管 綜合 文章區 討論區列表>>ACCESS>>核取方塊全選和全部取消 []   [我要回覆] 1 核取方塊全選和全部取消 價值:50QP  點閱數:4400回應數:15 樓主 Cheng 0 7 201 29 發送站內信 我是Access新手請教各位大大表單中如何製作核取方塊全選和全部取消的功能核取方塊是在詳細資料中,勾選10項商品後用以下程式碼,只能取消最後一次的選項紀錄PrivateSubCommand6_Click()Me.Check1=0Me.Check3=0Me.Check4=0Me.Check5=0EndSub還請各位大大解答或提供範例學習謝謝 本篇文章發表於2011-06-2621:24 1樓 回應 kk(我會中頭彩) 以下簡單的方法供您參考 PrivateSubCommand6_Click()'核取方塊全部選取 DimiCKAsObject ForEachiCKInMe.Controls IfTypeName(iCK)Like"Checkbox"TheniCK=1 Next EndSub PrivateSubCommand7_Click()'核取方塊全部取消 DimiCKAsObject ForEachiCKInMe.Controls IfTypeName(iCK)Like"Checkbox"TheniCK=0 Next EndSub 本篇文章回覆於2011-06-2622:43 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 2樓 作者回應 Cheng kk(我會中頭彩)大大我試了之後,還是只能取消最近一筆的記錄..... 本篇文章回覆於2011-06-2708:41 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 3樓 回應 kib72377 你的全部等於整個資料表全部(或符合條件的全部)的記錄. 本篇文章回覆於2011-06-2709:30 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 4樓 作者回應 Cheng 抱歉~我敘述的不夠清楚表單的核取方塊取消後,是連同資料表的記錄一起取消還請大大幫忙~ 本篇文章回覆於2011-06-2709:48 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 5樓 回應 tungta 可能要請您提供檔案來看才行 本篇文章回覆於2011-06-2710:49 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 6樓 回應 冇名 IfMe.Check1=FalseThenDoCmd.RunSQL"UPDATE表1SET表1.審核=False"ME.FORM.Requery'Me.子表單.Form.RequeryElseEndIf 本篇文章回覆於2011-06-2711:52 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 7樓 作者回應 Cheng tungta大大有寄檔案到你的yahoo信箱再麻煩大大指導一下謝謝 本篇文章回覆於2011-06-2714:01 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 8樓 回應 tungta 原來您是連續表單，核取方塊也只有一個如下：PrivateSubCommand5_Click()'核取方塊全部選取1001Setm=CurrentDb.OpenRecordset("select*from明細")1002Ifm.RecordCount>0Then'若資料表中有記錄1003m.MoveFirst'第一筆開始1004DoUntilm.EOF1005m.Edit'修改1006m("放入購物車")=True'選取1007m.Update'儲存1008m.MoveNext'移至下一筆1009Loop1010EndIf1011Me.Requery'更新表單EndSubPrivateSubCommand4_Click()'核取方塊全部取消1001Setm=CurrentDb.OpenRecordset("select*from明細")1002Ifm.RecordCount>0Then'若資料表中有記錄1003m.MoveFirst'第一筆開始1004DoUntilm.EOF1005m.Edit'修改1006m("放入購物車")=False'取消1007m.Update'儲存1008m.MoveNext'移至下一筆1009Loop1010EndIf1011IfMsgBox("您正要刪除全部記錄，將不能復原，確定嗎？",vbYesNo,"提示")=vbYesThen'按下否按鈕即中止1012Cancel=True'中止刪除1013CurrentDb.Execute"Delete*from明細"'刪除所有記錄1014EndIf1015Me.Requery'更新表單EndSub 本篇文章回覆於2011-06-2714:48 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 9樓 作者回應 Cheng tungta大大請問,我按取消按鈕後連同料號也會跟著取消如果只要刪除核取方塊的值要怎麼更改呢? 本篇文章回覆於2011-06-2715:05 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 10樓 回應 tungta 按下取消按鈕就已確定執行核取方塊全部取消出現的對話方塊只是詢問是否要刪除記錄若不刪除記錄就按對話方塊的取消按鈕之後資料還在只有核取方塊全部取消 本篇文章回覆於2011-06-2715:11 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 11樓 作者回應 Cheng 大大~對話方塊我按取消後,核取方塊總會留下最後點選的值請問這部份要怎麼修改比較好呢?還請大大幫忙看一下謝謝~ 本篇文章回覆於2011-06-2715:50 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 12樓 最有價值解答 tungta 最前面先更新一次表單即可（全選與取消都要）Me.Requery'更新表單 本篇文章回覆於2011-06-2716:37 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 13樓 作者回應 Cheng OhYA!!就是這樣~改好了非常感謝大大幫忙~ 本篇文章回覆於2011-06-2716:57 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 14樓 回應 ivy 大大，我也有同樣的問題，但看不是很懂程式，我的也是連續表單，核取方塊是"E05"，資料來源是"E:Delivery"，可是按了沒有任何反應，請問問題出在哪?PrivateSubCommand5_Click()'核取方塊全部選取Setm=CurrentDb.OpenRecordset("select*fromE:Delivery")Ifm.RecordCount>0Then'若資料表中有記錄m.MoveFirst'第一筆開始DoUntilm.EOFm.Edit'修改m("E05")=True'選取m.Update'儲存m.MoveNext'移至下一筆LoopEndIfMe.Requery'更新表單EndSub 本篇文章回覆於2014-12-2709:33 ==簽名檔== --未登入的會員無法查看對方簽名檔-- 15樓 回應 ivy 問題解決了~!"E:Delivery"改成"EDelivery"就ok了 本篇文章回覆於2014-12-2715:17 ==簽名檔== --未登入的會員無法查看對方簽名檔--     1 回覆 如要回應,請先登入. |網站導覽|網站介紹|4P點數說明|電子報|小舖活動|大事紀|廣告刊登|常見問題|聯絡我們| 　版權所有©copyright2000AllRightsReserved