以查询表为数据源的窗体中复选框不能正常使用

各位老师，有个新想法，做了个生成表查询（取名111），用于把“未开票查询”生成一个“临时”表，以临时表为数据源就解决了未开票子窗体中的复选框不能正常使用的问题，为了减少操作，在开票窗体的打开事件中加入了一个打开111查询的宏，新的问题就来了，应该是在窗体打开时子窗体便会占用临时表的原因，执行宏的时候出现了错误提示，试了几次都没解决问题，便为执行宏新建了个窗体，在宏执行完成后在激活所需的窗体，不知各位老师有什么解决方法，还有导入代码也有些问题，现在导入只能分辨复选框是否有又被选择而不能分辨哪些细项被选择，代码在下面，请大家帮忙指正一下。

Private Sub 添加_Click()
If IsNull(Me.发票号) Then
        MsgBox "请输入发票号"
        Me.发票号.SetFocus
        Exit Sub
        Else
Select Case 未开票查询.Form!Check12.Value
Case -1
With Me.未开票查询.Form.Recordset
       .MoveFirst
       For X = 0 To .RecordCount - 1
        Me.开票.SetFocus
        DoCmd.GoToRecord , , acNewRec
        Me.开票.Form![订单号] = Me.未开票查询.Form![订单号]
        Me.开票.Form![物料号] = Me.未开票查询.Form![物料号]
        Me.开票.Form![开票数量] = Me.未开票查询.Form![未开票数量]
        .MoveNext
       Next
    MsgBox Me.未开票查询.Form.Recordset.RecordCount & "条记录追加成功！", vbInformation, "结果提示"
   Me.Refresh
 End With
End Select
End If
End Sub