关于复选框添加的问题

andy　发表于：2010-06-15 12:54:09 　

请问如何将订单子窗体中的选定打勾的记录添加到冲压生产排程子窗体中。冲压按钮的代码现是这样的(这样写就左边订单子窗体中的记录全部添加过来了，不合要求)：
Private Sub 冲压_Click()
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![选择]
        Me.冲压生产排程.Form![数量] = Me.订单.Form![订单数]
         .MoveNext
   Next
End With
MsgBox Me.订单.Form.Recordset.RecordCount & "条记录追加成功！", vbInformation, "结果提示"
End Sub

Top

王樵民发表于：2010-06-15 15:01:39

加个如果判断

Private Sub 冲压_Click()
With Me.订单.Form.Recordset
.MoveFirst
For X = 0 To .RecordCount - 1

        If Me.订单.Form![选择]=True then
        Me.冲压生产排程.SetFocus
       DoCmd.GoToRecord , , acNewRec
       Me.冲压生产排程.Form![订单号] = Me.订单.Form![订单号]
       Me.冲压生产排程.Form![瓶身] = Me.订单.Form![瓶身]
      Me.冲压生产排程.Form![选择] = Me.订单.Form![选择]
         Me.冲压生产排程.Form![数量] = Me.订单.Form![订单数]

        End If
         .MoveNext
   Next
End With
MsgBox Me.订单.Form.Recordset.RecordCount & "条记录追加成功！", vbInformation, "结果提示"
End Sub

Top

王樵民发表于：2010-06-15 15:01:41

加个如果判断

Private Sub 冲压_Click()
With Me.订单.Form.Recordset
.MoveFirst
For X = 0 To .RecordCount - 1

        End If
         .MoveNext
   Next
End With
MsgBox Me.订单.Form.Recordset.RecordCount & "条记录追加成功！", vbInformation, "结果提示"
End Sub

Top

andy 发表于：2010-06-16 15:41:47

谢谢王老师，搞好了。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

关于复选框添加的问题