อยากให้ checkbox ติ้กอัตโนมัติค่ะ ตามค่าที่กำหนดไว้

[ingfahm59]

เราจะทำยังไงเมื่อ textbox ของ tb_timeout แสดงเวลาขึ้นมาแล้ว
หากมีค่าวันที่และเวลาอยู่ระหว่าง textbox ที่ไฮไลต์สีเขียว ให้ tb_dayoff เป็น False
แต่หากมีค่าวันที่และเวลามากกว่า textbox ที่วงกลม ให้ tb_dayoff เป็น true

ไอเดียคือ อยากให้ checkbox ของ tb_dayoff ติ้กอัตโนมัติค่ะ เมื่อค่าวันที่และเวลามากกว่าค่าที่กำหนดไว้

ลองเขียน insert into
If DCount("tb_slidenum", "tbl_slide", "tb_slidenum='" & Me.txt0 & "' AND [tb_timeout] Between ([tb_timein] AND Day([tb_timein]+1) & " / " & Month([tb_timein]+1) & " / " & Year([tb_timein]) & " & TimeValue("12:00")) > 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl_pb(tb_slidenum,tb_dayoff) values ('" & Me.txt0 & "',true)"
DoCmd.SetWarnings True
End If

ปรากฎว่าขึ้น


แก้ไขยังไงได้บ้างค่ะ หรือสามารถทำได้โดยวิธีไหนได้บ้าง

[OddyWriter]

คำสั่งง่ายๆ ไม่ต้องใช้ Insert Into ให้ยุ่งยาก

กำหนด AfterUpdate ของ Text Box ว่า

if textbox > ค่าที่กำหนด then
   checkbox = true
else
   checkbox = false
end if