กระทู้เก่าบอร์ด อ.Yeadram
1,083 1
URL.หัวข้อ /
URL
เพิ่มเวลาในฟอร์มทำไมไม่แสดงผล
มี combobox 2 อัน เก็บข้อมูลเป็นวันเวลา
เมื่อ combobox1 เปลี่ยน ให้ combobox2 มีค่าเพิ่มไปอีก 1 ปี
Private Sub combobox1_AfterUpdate()
combobox2.Value = DateAdd("yyyy", 1, combobox1)
End Sub
แต่ทำไมค่าใน combobox2 ไม่เปลี่ยนครับ
เมื่อ combobox1 เปลี่ยน ให้ combobox2 มีค่าเพิ่มไปอีก 1 ปี
Private Sub combobox1_AfterUpdate()
combobox2.Value = DateAdd("yyyy", 1, combobox1)
End Sub
แต่ทำไมค่าใน combobox2 ไม่เปลี่ยนครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.2789s
rowsourcetype ของ combo2 ว่าเป็น value list, หรือเป็น Table/query
ลองตรวจสอบ
rowsource ด้วยว่า มีข้อมูลนั้นๆ หรือไม่ (วันเวลาที่บวกเพิ่ม 1 ปี)
ถ้าเป็นแบบ table/query ให้ลองดูจากแหล่ง ว่า มีวันที่ดังกล่าวหรือเปล่า
ถ้าเป็นแบบ value list ต้องดูสายอักขระว่าเราเขียนวันที่ดังกล่าว เข้าไว้แล้วหรือยัง
ลองตรวจสอบ
การอ้างอิง
เราอ้างอิงชื่อคอนโทรลได้ถูกต้องหรือเปล่า
ลองตรวจสอบ
มี error ใดๆ หรือไม่
ถ้ามี error ว่าอย่างไรบ้าง
ลองตรวจสอบ
ค่า หรือ ชนิดข้อมูล ของผลการคำนวน
ว่าตรงกันกับแหล่งข้อมูลของ คอมโบ2 หรือไม่ เช่น
dim x
x = DateAdd("yyyy", 1, combobox1)
debug.print x
debug.print vartype(x)
debug.print typename(x)
combobox2=x
แล้วชุดข้อมูลของ combo2 เอง เป็นชนิดข้อมูลเดียวกันกับผลการคำนวนหรือไม่