แสดงกระทู้
145
ห้อง MS Access / : สอบถามวิธีทำให้ Text Box รันเลขพร้อมบันทึกลงตารางนะครับ
« เมื่อ: 18 ธ.ค. 62 , 18:05:00 »
หลักการคือ พอขึ้นเรคอร์ดใหม่ปั๊ป ก็เอา "กล่องเป้าหมาย" ของบรรทัดสุดท้ายมาใส่พร้อมบันทึกเรคอร์ดครับ ก็ใส่โค้ดนี้ลงไปใน 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
