สวัสดีครับ ขออนุญาตเรียนปรึกษาทุกท่านครับ
ผมต้องการทำฟอร์มขึ้นมาอันนึง โดยเป็น Unbound Form ฟอร์มประกอบด้วยส่วน(โหลดไฟล์มาดูได้นะครับ)
1. กรอกข้อมูลผู้ป่วย(INSERT INTO ลงตาราง tblEmployee)
2. กรอกยาที่จ่าย(INSERT INTO ลงตาราง tblTransactions)
3. กรอกข้อมูลผู้ป่วยจากการซักประวัติ(INSERT INTO ลงตาราง tblDiseaseEmp)
โดยมีโค้ด VBA ด้านล่างนี้
สิ่งที่เกิดขึ้นคือ ในส่วนของ "
กรอกยาที่จ่าย" กับ "
กรอกข้อมูลผู้ป่วยจากการซักประวัติ" (ซึ่งเป็นตารางฝั่ง Many)
เมื่อเขียน INSERT INTO ปรากฎว่ามัน INSERT ลงตารางให้หมด แม้ช่องนั้นจะยังไม่ได้กรอกอะไรก็ตาม เป็นแค่ค่าว่าง
โดยที่ผมต้องการคือ1. ในส่วนของ "กรอกยาที่จ่าย" กับ "กรอกข้อมูลผู้ป่วยจากการซักประวัติ" (ซึ่งเป็นตารางฝั่ง Many) ในส่วนบรรทัดที่ยังกรอกไม่ครบทุกช่องให้ซ่อนไว้ก่อน เมื่อครบแล้วแสดงบรรทัดต่อไปให้กรอก
2. ในส่วนของ "กรอกยาที่จ่าย" กับ "กรอกข้อมูลผู้ป่วยจากการซักประวัติ" (ซึ่งเป็นตารางฝั่ง Many) เมื่อ INSERT INTO ลงตาราง ให้ INSERT INTO เฉพาะ บรรทัดที่กรอกครบเท่านั้น(เพื่อป้องกันไม่ให้ INSERT ค่าว่างลงตารางแบบในภาพ)จะมีวิธีการเขียนโค้ดอย่างไรครับ เพื่อที่จะให้ได้ตามที่ผมต้องการขอบคุณล่วงหน้าสำหรับคำตอบนะครับผม
หมายเหตุ: ผมได้แนบไฟล์ไว้ด้านล่าง และนี่คือ Code ครับ
Private Sub cmdSave_Click()
On Error Resume Next DoCmd.SetWarnings
False DoCmd.RunSQL "INSERT INTO tblEmployee(EmployeeID,NamePrefix,FirstName,LastName,NickName,BloodType) Values ('" & Me.txtEmployeeID1 & "', '" & Me.txtNamePrefix & "', '" & Me.txtFirstName & "', '" & Me.txtLastName & "', '" & Me.txtNickName & "', '" & Me.txtBloodType & "');"
DoCmd.RunSQL "INSERT INTO tblTransactions(EmployeeID,Unit,Qty,UnitPrice) Values ('" & txtEmployeeID2 & "' ,'" & Me.txtUnit2 & "', '" & Me.txtQty2 & "', '" & Me.txtUnitPrice2 & "');"
DoCmd.RunSQL "INSERT INTO tblTransactions(EmployeeID,Unit,Qty,UnitPrice) Values ('" & txtEmployeeID3 & "' ,'" & Me.txtUnit3 & "', '" & Me.txtQty3 & "', '" & Me.txtUnitPrice3 & "');"
DoCmd.RunSQL "INSERT INTO tblTransactions(EmployeeID,Unit,Qty,UnitPrice) Values ('" & txtEmployeeID4 & "' ,'" & Me.txtUnit4 & "', '" & Me.txtQty4 & "', '" & Me.txtUnitPrice4 & "');"
Me.Requery
DoCmd.Close
End Sub
