form_open(cancel as integer)
combo13.enabled=false
end sub

check11_click()
combo13.enabled=(check11)
end sub

command8_click()
dim stCriteria as string
stCriteria = ""
if combo13.enabled =true then stCriteria = "[ชื่อสาขา] = " & combo13
DoCmd.OpenReport "ชื่อรายงาน", acViewPreview, , stcriteria
end sub

ขอบคุณอาจารย์ yeadram มากครับ ที่ให้โค้ดเป็นแนวทาง
โค้ดที่อาจารย์ให้มา มันไม่ตรงเท่าไหร่ครับ กด check11 แล้ว combo13 มันเลือกไม่ได้ครับ เลยเปลี่ยนเป็นแบบนี้ครับ
ส่วนชื่อสาขา ผมทำแล้วมัน error เลยเปลี่ยนเป็น รหัสสาขาแทนครับ
ของผมใช้ access2007

Private Sub Form_Open(Cancel As Integer)
combo13.Enabled = False
End Sub


Private Sub Check9_GotFocus()
combo13.Enabled = False
End Sub

Private Sub Check11_GotFocus()
combo13.Enabled = True
End Sub

Private Sub command8_Click()
Dim stCriteria As String
stCriteria = ""
If combo13.Enabled = True Then stCriteria = "[รหัสสาขา]=" & combo13
DoCmd.OpenReport "ชื่อรายงาน", acViewPreview, , stCriteria
End Sub