กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
281 3
URL.หัวข้อ /
URL
ช่วยผมด้วยครับ เพื่อนๆที่มีความรู้ด้าน Access
คือว่าผมมีฐานข้อมูลตัวหนึ่ง แล้วที่นี้ผมลองใช้โค้ด
Private Sub Form_Load()
Me.RequestedDate = Date
End Sub
แต่พอเปิดในฟอร์ม วันที่ปัจจุบันที่ผมเซ็ทมันขึ้นเฉพาะตรงหน้าแรกของฟอร์ม หน้าอื่นๆ ที่ผมต้องการคีย์ข้อมูลไม่ขึ้นวันที่ครับ ผมควรแก้ไขอย่างไรครับ แล้วปัญหาอีกอย่างก็คือ ถ้าผมเก็บข้อมูลวันที่ไว้แล้วในเรคคอร์ดแรก เวลาผมเปิดฟอร์มนี้อีกครั้ง เวลาที่ผมบันทึกไว้หายไปแต่ขึ้นวันที่ที่เปิดฟอร์มนี้ใหม่
ผมมีปัญหาอีกอย่าง นั่นคือ ถ้าผมต้องการตรวจสอบข้อมูลที่ดึงมาจากฐานข้อมูลตัวหนึ่ง ผมจะตรวจสอบได้อย่างไรว่ามีข้อมูลตัวนั้นอยู่หรือไม่ ถ้าไม่มีผมอยากให้ขึ้นข้อความว่า "ให้กรอกข้อมูลที่เป็น ID อีกครั้ง"
ขอบคุณมากครับสำหรับคำแนะนำ
Private Sub Form_Load()
Me.RequestedDate = Date
End Sub
แต่พอเปิดในฟอร์ม วันที่ปัจจุบันที่ผมเซ็ทมันขึ้นเฉพาะตรงหน้าแรกของฟอร์ม หน้าอื่นๆ ที่ผมต้องการคีย์ข้อมูลไม่ขึ้นวันที่ครับ ผมควรแก้ไขอย่างไรครับ แล้วปัญหาอีกอย่างก็คือ ถ้าผมเก็บข้อมูลวันที่ไว้แล้วในเรคคอร์ดแรก เวลาผมเปิดฟอร์มนี้อีกครั้ง เวลาที่ผมบันทึกไว้หายไปแต่ขึ้นวันที่ที่เปิดฟอร์มนี้ใหม่
ผมมีปัญหาอีกอย่าง นั่นคือ ถ้าผมต้องการตรวจสอบข้อมูลที่ดึงมาจากฐานข้อมูลตัวหนึ่ง ผมจะตรวจสอบได้อย่างไรว่ามีข้อมูลตัวนั้นอยู่หรือไม่ ถ้าไม่มีผมอยากให้ขึ้นข้อความว่า "ให้กรอกข้อมูลที่เป็น ID อีกครั้ง"
ขอบคุณมากครับสำหรับคำแนะนำ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02895
ไม่แน่ใจว่าจะตอบตรงคำถามหรือเปล่านะครับ..
ถ้าอยากได้ค่า default ขึ้นมาทุกครั้งที่ ขึ้นเรคคอร์ดใหม่ ก็ไปที่
property ของ textbox ที่รับค่าวันที่นั้น แล้ว ตั้งค่า default = Date()
ส่วนที่เขียนมาตามด้านล่างนี้..
Private Sub Form_Load()
Me.RequestedDate = Date
End Sub
ก็แน่นอนที่สุดเมื่อฟอร์ม load ขึ้นมา RequestedDate ของเรคคอร์ดแรก
ที่ถูก load ขึ้นมาก็จะถูกเปลี่ยนเป็นวันที่ปัจจุบันครับ
ถ้าอยากได้ค่า default ขึ้นมาทุกครั้งที่ ขึ้นเรคคอร์ดใหม่ ก็ไปที่
property ของ textbox ที่รับค่าวันที่นั้น แล้ว ตั้งค่า default = Date()
ส่วนที่เขียนมาตามด้านล่างนี้..
Private Sub Form_Load()
Me.RequestedDate = Date
End Sub
ก็แน่นอนที่สุดเมื่อฟอร์ม load ขึ้นมา RequestedDate ของเรคคอร์ดแรก
ที่ถูก load ขึ้นมาก็จะถูกเปลี่ยนเป็นวันที่ปัจจุบันครับ
3 @R02897
ขอบคุณมากครับ แล้วผมจะลองนำไปทำดู
Time: 0.1237s
Private Sub command1_click()
Me.RequestedDate = Date()
End Sub
ในกรณีที่ click ปุ่ม command1 จึงจะทำตาม code