กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
271 1
URL.หัวข้อ /
URL
เกี่ยวกับฟอร์มครับคือถ้าต้องการจะให้ข้ามชำระเงินไปถ้ามีรหัสเป็น1,3,4 แต่ถ้าเป็น 2
เกี่ยวกับฟอร์มครับคือผมให้มีช่องกรอกข้อมูลดังนี้
1.รหัส
2.ค่านำ
3.ค่าไฟ
4.ค่าอาหาร
5.รวม
6.ชำระ
ถ้ามีรหัสเป็น1,3,4 ให้ไม่สามารถกรอกข้อมูลในช่องชำระเงินได้(เหมือนการกำหนดแทปหยุดเป็นไม่นะครับ) แต่ถ้าเป็น 2, 5 ให้ต้องกรอกข้อมูลในช่องชำระเงินถ้าไม่กรอกให้ขึ้น msg ขึ้นมาเตือนจะต้องทำอย่างไรครับ
1.รหัส
2.ค่านำ
3.ค่าไฟ
4.ค่าอาหาร
5.รวม
6.ชำระ
ถ้ามีรหัสเป็น1,3,4 ให้ไม่สามารถกรอกข้อมูลในช่องชำระเงินได้(เหมือนการกำหนดแทปหยุดเป็นไม่นะครับ) แต่ถ้าเป็น 2, 5 ให้ต้องกรอกข้อมูลในช่องชำระเงินถ้าไม่กรอกให้ขึ้น msg ขึ้นมาเตือนจะต้องทำอย่างไรครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.0933s
กรณีแรก
ใช้กับเหตุการณ์ AfterUpdate ของ Text Box ของ รหัส
Select Case Me.ActiveControl
Case 1, 3, 4
Me.ชื่อTextBoxชำระเงิน.Enabled = False
Case 2, 5
Me.ชื่อTextBoxชำระเงิน.Enabled = True
End Select
ส่วนเงื่อนไขที่ 2 ให้ใช้กับ BeforeUpdate ของ Form เพื่อตรวจสอบว่ามีการกรอกช่องที่ต้องการหรือยัง
Select Case Me.ชื่อTextBoxของชำระเงิน
Case 2, 5
If Me.ชื่อTextBoxของชำระเงิน ="" Or IsNull(Me.ชื่อTextBoxของชำระเงิน) Then
MsgBox "จะต้องกรอกช่องชำระเงินด้วย", vbOKOnly, "Oops!"
Cancel = True
Exit Sub
End If
End Select