อัพเดท วัน-เวลา เมื่อมีการกดบันทึก

[001Jetnipit]

ผมต้องการให้เมื่อ User กด Save ในช่อง "อัพเดทล่าสุด" ให้เป็นวัน ณ เวลานั้นเลย ไม่ทราบว่ามันต้องใช้วิธีไหนหรอครับ เราต้องส้รางฟิลด์มาใหม่เพื่อช่องนี้โดยเฉพาะ หรือมีวิธีอื่นไหมครับ

[มาลี]

ในช่องอัพเดท
ลองใส่ =date() ดูนะคะว่าได้หรือเปล่า
ใส่ในค่าเริ่มต้นค่ะ

[001Jetnipit]

ในช่องอัพเดท
ลองใส่ =date() ดูนะคะว่าได้หรือเปล่า
ใส่ในค่าเริ่มต้นค่ะ

ได้ครับ แต่อันนี้มันคือบอกว่าวันนี้วันที่เท่าไหร่หรือเปล่าครับ ของผมจะอัพเดตวันที่เมื่อกด บันทึกอะครับ มันไม่น่าใช้ได้ใช่ไหมครับ

[54210408]

จากรูปที่อธิบายมีช่องให้ใส่ในฟอร์ม ชื่อ TextUpdate
เลือก event on click จากปุ่ม "บันทึก" ที่สร้างไว้ (ผมไม่รู้ว่าปุ่มชื่ออะไร แต่ผมตั้งชื่อเป็น cmdSave นะครับ)
เลือก code builder
พิมพ์ Me.TextUpdate = Date() (ให้โปรแกรมใส่วันที่ จากในเครื่อง ลงในช่อง TextUpdate)

จะได้เป็น

Private Sub cmdSave_Click()
Me.TextUpdate = Date()
End Sub

เพิ่มเติม1 : กรณี อยากได้ วันที่+เวลา ใช้ Now() แทน Date() ก็ได้ครับ
เพิ่มเติม2 : กรณี อยากให้แสดงผลเป็น รูปแบบอื่นๆ เช่น 1/7/64 ,02/09/2564 ใส่คำสั่ง Format() ช่วยได้ครับ
Me.TextUpdate = Format(Date(),"dd/mm/yyyy") -> 01/08/2564
Me.TextUpdate = Format(Date(),"d/m/yyyy") -> 1/8/2564
Me.TextUpdate = Format(Date(),"d/m/yy") -> 1/8/64

อย่าลืมเชื่อม TextUpdate กับ field เพื่อเก็บข้อมูลด้วยนะครับ

[001Jetnipit]

จากรูปที่อธิบายมีช่องให้ใส่ในฟอร์ม ชื่อ TextUpdate
เลือก event on click จากปุ่ม "บันทึก" ที่สร้างไว้ (ผมไม่รู้ว่าปุ่มชื่ออะไร แต่ผมตั้งชื่อเป็น cmdSave นะครับ)
เลือก code builder
พิมพ์ Me.TextUpdate = Date() (ให้โปรแกรมใส่วันที่ จากในเครื่อง ลงในช่อง TextUpdate)

จะได้เป็น

Private Sub cmdSave_Click()
Me.TextUpdate = Date()
End Sub

เพิ่มเติม1 : กรณี อยากได้ วันที่+เวลา ใช้ Now() แทน Date() ก็ได้ครับ
เพิ่มเติม2 : กรณี อยากให้แสดงผลเป็น รูปแบบอื่นๆ เช่น 1/7/64 ,02/09/2564 ใส่คำสั่ง Format() ช่วยได้ครับ
Me.TextUpdate = Format(Date(),"dd/mm/yyyy") -> 01/08/2564
Me.TextUpdate = Format(Date(),"d/m/yyyy") -> 1/8/2564
Me.TextUpdate = Format(Date(),"d/m/yy") -> 1/8/64

อย่าลืมเชื่อม TextUpdate กับ field เพื่อเก็บข้อมูลด้วยนะครับ

มัน error แบบนี้ครับ

[54210408]

ช่อง TextUpdate พิมพ์ถูกไหมครับ

[001Jetnipit]

ช่อง TextUpdate พิมพ์ถูกไหมครับ

ขอโทษครับ ตกม้าตายเองครับ ขอบคุณครับผม