Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

Back to Board : Thai Access Webboard New Topic    Reply
เงื่อนไขแบบนี้ใช้ DCount หรือ DLookup คะ

Topic by Message Posted : on : 12/9/2560 15:11:59
ครูห่างไกล  table : tblitem
- ID (auto number)
- date_add (date/time)
- item_number (numeric)
- description (text)

โจทย์คือ สร้างฟอร์มจาก tblitem เสร็จแล้ว
เริ่มแรก คีย์วันที่ (Textbox) ก่อน เสร็จแล้ว คีย์ item_number (Textbox) หลังจากเลื่อนเคอร์เซอร์หรือกด Enter ต้องการให้มี Msgbox แจ้งเตือนว่า item_number เลขนี้เคยมีในระบบแล้ว แล้วให้เคอร์เซอร์เด้งกลับมาที่ texbox ของ item_number ถ้ายังไม่เคยมีก็ไม่ต้องแจ้งเตือน

จริงๆคืออยากให้เช็ค 2 เงื่อนไขคือ เช็คเลขกับเช็คปีด้วยว่าซ้ำไหม ถ้าซ้ำให้แจ้งเตือน ถ้าไม่ซ้ำก็ผ่าน

พอจะมีใครช่วยสอนได้ไหมคะ

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

Reply by Message on : 12/9/2560 21:07:29
yeadram
(R24036)
Dim xx
xx = Dcount(1,"tblitem","((year(date_add) = " & year(me.ชื่อtextboxของคีย์วันที่) & ") and (item_number = " & me.ชื่อtextboxของItem_number & "))")

if xx > 0 then
msgbox "Dupplicate data!"
me.ชื่อtextboxของItemnumber = ""
me.ชื่อtextboxของItemnumber.setfocus
end if

Back to Top
Reply by Message on : 19/9/2560 13:26:46
ครูห่างไกล
(R24062)
ได้แล้วคะ

ติดแต่ หลังจากที่ มีข้อความขึ้นแล้ว
textbooxของitemnumber = " " เป็นค่าว่างแล้ว
แต่ เคอร์เซอร์มันเลื่อนไป textbox ถัดไป มันไม่กลับมาที่ itemnumber คะ ทำยังไงดี
ลองใส่ Me.Item_number.SetFocus แล้วก็ยังไม่ได้
Back to Top
Reply by Message on : 19/9/2560 15:15:57
pizza_p
(R24064)
ให้เช็คเงื่อนไขดังกล่าวใน BeforeUpdate event ครับ เมื่อเช็คแล้วว่ามีค่าซ้ำให้สั่ง Cancel = True เพื่อหยุดการดำเนินการของ event ไม่ให้มันดำเนินการต่อไปยัง control ถัดไปครับ
Back to Top

Reply

 *Indicates required fields
Format:
Bold Under Line Italic Add Hyperlink Add Email Link Italic List Indent Add Image Emoticons Insert code Mode:
Message:*
Your Name*:
Normal word*: Please input : ไทยแอ็คเซส
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++