หลังจากที่ไปค้นกระทู้เก่าๆ เรื่อง checkbox
Dim mMemo As String
Dim nm As String
Dim ctl As Control

mMemo = "start"

For Each ctl In Controls


'If TypeOf ctl Is CheckBox And Me(ctl.Name).Value = True Then
If TypeOf ctl Is CheckBox = True Then

Me(ctl.Name).Value = True

nm = Right(ctl.Name, 2)


mMemo = mMemo & ", " & Me("lb_chk" & nm).Caption

End If

Next


Me.Fuel = Replace(mMemo, "start, ", "")

ผลออกมาคือมันเลือกให้ทุกอันเลยค่ะ แม้ว่าจะไม่ได้ติ๊ก