คำถามจากมือใหม่ครับ
จากฟอร์มนี้ ต้องกรอกทุกช่อง
ต้องการทราบวิธีการทำ ฟอร์มต้องการให้ หากผู้ใช้ไม่กรอกช่องไหน ให้แจ้งเตือนว่าช่องนั้นต้องกรอก [ อาจจะเป็นดอกจัน ** หรือให้เป็น msgbox ] หรือแต่ละท่านมีแนวทางการทำประมาณไหนแนะนำหน่อยครับ
ใช้ IF ElseIF เลือกเป็นราย textbox เช่น
If IsNull(txtHN) Then
Me.txtHN.setfocus
MsgBox "กรุณาใส่ HN", vbCritical, "โปรแ กรมเวชระเบียน"
ElseIf IsNull(txtID) Then
Me.txtID.setfocus
MsgBox "กรุณาระบุ ID", vbCritical, "โปรแ กรมเวชระเบียน"
ElseIf IsNull(txtPtType) Then
Me.txtPttype.setfocus
MsgBox "กรุณา ระบุ PtType", vbCritical, "โปรแ กรมเวชระเบียน"
ElseIf IsNull(Type_Visit) Then
Me.txtType_Visit.setfocus
MsgBox "กรุณาระบุประเภทการมา รพ.", vbCritical, "โปรแ กรมเวชระเบียน"
ElseIf IsNull(Gender) Then
Me.Gender.setfocus
MsgBox "กรุณาระบุเพศ", vbCritical, "โปรแ กรมเวชระเบียน"
ElseIf IsNull(txtDisc) Then
Me.txtdisc.setfocus
MsgBox "กรุณาระบุเวลาการออกจาก ER", vbCritical, "โปรแ กรมเวชระเบียน"
Else
.........เงื่อนไข ที่จะทำต่อไปถ้ากรอกครบทุกช่องแล้วEnd if
ลองดูครับเป็นแนวทาง
