me.txt_Today=Year(now())
me.txt_Prev5=Year(now())-5
me.txt_Next5=Year(now())+5

ขอถามอีกนิดครับ ในฟิวล์เราต้องตั้ง type เป็น date ด้วยหรือเปล่าครับ หรือว่าเป็น text ปกติ ครับ

เป็น text ปกติ ครับ

** ไม่รู้ว่าท่าน Thump จะเอาไปใช้งานแบบไหนหรือแค่แสดงบนฟอร์มเฉยๆ

1 ตั้งค่าคอมโบให้ใช้ชนิดข้อมูลเป็น Value list
2 หาปีปัจจุบัน
3 เอาปีปัจจุบัน ลบด้วย 5
4 วนลบเขียน ข้อความให้เรียงเลขปีจาก ปีในข้อสาม วนไป 10 รอบ
5 เอาข้อความที่ได้ไปเป็น แหล่งข้อมูลของ combo

// สิ่งทีได้จากคอมโบคือ string เพราะเราเขียนแหล่งข้อมูลให้มันเป็น string
// หรือในทางเทคนิค Access สามารถยอมรับได้ว่ามันเป็น number เพราะข้อมูลแต่ละสมาชิกล้วนเขียนด้วยอักขระ ตัวเลขล้วนๆ

sub form load

mCb.rowsourcetype="Value List"

dim x, y as long
dim sq as string
y = year(now())-5
sq=""
for x = 0 to 9
sq = chr(34) & y+x & chr(34) & ", "
next
sq = left(sq, len(sq)-2)
mCb.rowsource=sq

end sub

ขอบคุณมากครับ