Ms access VBA访问将复选框替换为图像

我想把复选框上的一些记录替换为图像。但在这种情况下，所有记录都会被替换。谁来帮帮我？我有以下代码：

strSQL=“选择tbl_export_def.nutTar作为iExport，
tbl_导出定义字段名，tbl_导出定义字段别名，
tbl_导出定义说明，tbl_导出定义单位测量，
tbl_export_def.SortID，tbl_export_def.isKey，tbl_export_def.key，
tbl_export_def.SortID从tbl_export_def订单中导出tbl_def.table；”
表单\u frm\u exportRaw\u fields.ExportData.ControlSource=“nutTar”
CurrentDb.QueryDefs（“Q_iExport”）.SQL=strSQL'更改字符串查询
表单\u frm\u exportRaw\u fields.ExportData.ControlSource=“isExport”
如果DLookup（“isKey”，“Q_isExport”，“isKey=True，table=‘tbl_场景’”）
然后
Form_frm_exportRaw_fields.Image_Key.Visible=True
其他的
Form_frm_exportRaw_fields.Image_Key.Visible=False
如果结束
Form_frm_exportRaw_fields.RecordSource=“SELECT*FROM Q_isExport where
（Q_isExport.isExport=true）

试试：

Dim isKey As Boolean
' ...  
isKey = DLookup("isKey", "Q_isExport", "table = 'tbl_scenarios'")
Form_frm_exportRaw_fields.Image_Key.Visible = isKey
' ...

---

这是一个连续的形式？然后控件可见，而不是记录可见。如果希望对每条记录进行单独设置，则必须使用绑定图像。