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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

01 ม.ค. 67 , 22:12:17
อ่าน 164 ครั้ง

ingfahm59

  • สมาชิกไท.Access
  • กระทู้: 29

    • ดูรายละเอียด



เราจะทำยังไงเมื่อ 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

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


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


 

01 ม.ค. 67 , 22:34:21
ตอบกลับ #1

OddyWriter

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

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

if textbox > ค่าที่กำหนด then
   checkbox = true
else
   checkbox = false
end if
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5