กระทู้เก่าบอร์ด อ.Yeadram
1,107 5
URL.หัวข้อ /
URL
ขอคำสั่ง..ห้ามขึ้นระเบียนใหม่ หากไม่ใส่ข้อมูลค่ะ
ขอความกรุณาจากทุกๆท่านนะคะ
หนูอยากได้คำสั่งห้ามไม่ให้ขึ้นระเบียนใหม่(New Reccord)
จนกว่าจะใส่ข้อมูลในช่อง Textbox ช่องสุดท้ายก่อน
มันเป็นช่อง Textbox ลำดับสุดท้ายบนหน้าฟอร์มค่ะ
ผู้ใช้มักเผลอขึ้นระเบียนใหม่ โดยยังไม่ทันได้ใส่ข้อมูลในช่องสุดท้าย
ในช่องสุดท้ายหนูใส่เงื่อนไขเหตุการณ์ After Update เอาไว้ด้วย
ทำให้เงื่อนไขดังกล่าว ไม่ได้ทำงานค่ะ
หนูอยากได้คำสั่งห้ามไม่ให้ขึ้นระเบียนใหม่(New Reccord)
จนกว่าจะใส่ข้อมูลในช่อง Textbox ช่องสุดท้ายก่อน
มันเป็นช่อง Textbox ลำดับสุดท้ายบนหน้าฟอร์มค่ะ
ผู้ใช้มักเผลอขึ้นระเบียนใหม่ โดยยังไม่ทันได้ใส่ข้อมูลในช่องสุดท้าย
ในช่องสุดท้ายหนูใส่เงื่อนไขเหตุการณ์ After Update เอาไว้ด้วย
ทำให้เงื่อนไขดังกล่าว ไม่ได้ทำงานค่ะ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R24300
ใช้การกำหนดช่องสุดท้ายเป็น Require Field ได้ไหมครับ
2 @R24302
ขอบคุณค่ะ @OddyWriter
ตอนแรกก็ทำแบบนั้นค่ะ แต่มันจะมีข้อความแจ้ง Error
ทำให้ผู้ใช้ไม่เข้าใจว่าเกิดอะไรขึ้น ต้องเสียเวลาอ่านข้อความ Error
ยิ่งอ่านก็ยิ่งงกันใหญ่ สำนวนที่แจ้ง Error มีมาก อ่านแล้ววเข้าใจยากค่ะ
หนูจึงอยากได้แบบบังคับว่า ต้องใส่ข้อมูลช่่องสุดท้ายก่อน
ไม่ง้ันก็ไม่ยอมให้ผ่าน หรือหากไม่มีข้อมูลจะใส่ ก็ต้องยกเลิกระเบียนนั้นเสีย
จะไม่มีการบันทึก/จัดเก็บ อะไรทำนองนี้แหละค่ะ
ตอนแรกก็ทำแบบนั้นค่ะ แต่มันจะมีข้อความแจ้ง Error
ทำให้ผู้ใช้ไม่เข้าใจว่าเกิดอะไรขึ้น ต้องเสียเวลาอ่านข้อความ Error
ยิ่งอ่านก็ยิ่งงกันใหญ่ สำนวนที่แจ้ง Error มีมาก อ่านแล้ววเข้าใจยากค่ะ
หนูจึงอยากได้แบบบังคับว่า ต้องใส่ข้อมูลช่่องสุดท้ายก่อน
ไม่ง้ันก็ไม่ยอมให้ผ่าน หรือหากไม่มีข้อมูลจะใส่ ก็ต้องยกเลิกระเบียนนั้นเสีย
จะไม่มีการบันทึก/จัดเก็บ อะไรทำนองนี้แหละค่ะ
3 @R24303
สำเร็จแล้วค่ะ
ใช้วิธีดัดแปลงพลิกแพลงเอาหน่อย
โดยใช้คำสั่ง not is null ร่วมกับการสร้าง textbox เปล่าแล้วซ่อนมันไว้
ก็สามารถช่วยแก้ปัญหาดังกล่าวได้แล้วค่ะ
ใช้วิธีดัดแปลงพลิกแพลงเอาหน่อย
โดยใช้คำสั่ง not is null ร่วมกับการสร้าง textbox เปล่าแล้วซ่อนมันไว้
ก็สามารถช่วยแก้ปัญหาดังกล่าวได้แล้วค่ะ
4 @R24307
ถ้าจะเขียนโค้ด ต้องเขียนใน Form_BeforeUpdate นะครับ
If Nz(Me.xxx,"") = "" then
Msgbox ...
Cancel = True
Exit Sub
End If
If Nz(Me.xxx,"") = "" then
Msgbox ...
Cancel = True
Exit Sub
End If
5 @R24308
ว้าว..ใช้วิธีของอาจารย์ง่ายกว่ามากเลย
ยังนำไปขยายผลปรับปรุงส่วนอื่นๆได้อีกด้วย
ขอบคุณค่ะอาจารย์
ยังนำไปขยายผลปรับปรุงส่วนอื่นๆได้อีกด้วย
ขอบคุณค่ะอาจารย์
Time: 0.3778s