1
ห้อง MS Access / : ขอคำแนะนำเรื่องเพิ่ม Table เข้าไปใน queries ไม่ได้ครับ
« เมื่อ: 05 ม.ค. 63 , 22:22:24 »
ขอบพระคุณครับบ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
เปิดฟอร์มใน Design View > กด F4 เพื่อเปิด Property Sheet > เลือก Form ในช่อง Selection Type > คลิกที่แทป Event > เลือก [Event Procedure] ในบรรทัด On Current > คลิปปุ่ม ... ที่อยู่ท้ายบรรทัด > จะเห็น VBA Editor > เอาโค้ดตั้งแต่บรรทัด Dim ... จนถึง End If บรรทัดสุดท้ายใส่ลงใน Private Sub Form_Current()
นำไปใช้ได้ผล(เพิ่มเติมตรงหากมีการใส่ค่าลำดับให้ส่งค่ามา)ขอบคุณครับผม
ขอโทษด้วยน่ะครับ ผมมือใหม่มากกกครับ
คือไม่ทราบว่า โค้ดชุดนี้เอาไปวางไว้ตรงไหน ของ Form_Current event procedure ครับ
ขอบพระคุณครับ
ภาพตัวอย่างตาม อ.สันติสุข เลยครับ
หลักการคือ พอขึ้นเรคอร์ดใหม่ปั๊ป ก็เอา "กล่องเป้าหมาย" ของบรรทัดสุดท้ายมาใส่พร้อมบันทึกเรคอร์ดครับ ก็ใส่โค้ดนี้ลงไปใน Form_Current event procedureโค๊ด: [Select]Private Sub Form_Current()
Dim RS As DAO.Recordset
If Me.NewRecord Then
Set RS = Me.RecordsetClone
If RS.RecordCount > 0 Then
RS.MoveLast
If Not IsNull(RS("ชื่อฟิลด์กล่องเป้าหมาย")) Then
Me.ชื่อเท็กซ์บ็อกซ์กล่องเป้าหมาย = RS("ชื่อฟิลด์กล่องเป้าหมาย")
DoCmd.RunCommand acCmdSaveRecord
End If
End If
RS.Close
End If
End Sub