Office中国论坛/Access中国论坛

标题: 当窗体上的工价保存到子窗体里，再如何保存到表里？ [打印本页]

作者: goto2008 时间: 2007-8-19 10:47
标题: 当窗体上的工价保存到子窗体里，再如何保存到表里？
请看图片。。。

工价，我是采用。。。

工序编号组合框，

当工序编号下拉选择后，会自动带出工序、工价。

现在有一个问题就是，工价可以子窗体时体现出来，但是表里却没有工价。

这样，我在做计件报表时。。。计件工资由于没有工价。导致计件工资为0

作者: goto2008 时间: 2007-8-19 10:51
工序编号的代码

Private Sub 工序编号_AfterUpdate()
Me.工人工序 = Me.工序编号.Column(1)
  Me.工价 = Me.工序编号.Column(2)
End Sub

==========================================
保存按扭的代码

Private Sub 保存到帮面领取表_Click()
On Error GoTo Err_保存到帮面领取表_Click

If Nz([工人编号]) = "" Or Nz([工人工序]) = "" Then

MsgBox "工人编号、工人工序不能为空！", 64, "信息提示"

Else

If MsgBox("你确定要保存吗？", vbYesNo + 32, "提示信息") = vbYes Then

DoCmd.SetWarnings False

      If IsNull(Me.领取ID) = True Then
         DoCmd.RunSQL "insert into 帮面领取表(帮面ID,领取日期,工人编号,工人姓名,工序编号,工人工序,数量,工价) select[帮面ID],[领取日期],[工人编号],[工人姓名],[工序编号],[工人工序],[数量],[工价]"
      Else
         DoCmd.RunSQL "update 帮面领取表 set 帮面ID=Forms![帮面领取窗]![帮面ID],领取日期=Forms![帮面领取窗]![领取日期],工人编号=Forms![帮面领取窗]![工人编号],工人姓名=Forms![帮面领取窗]![工人姓名],工序编号=Forms![帮面领取窗]![工序编号],工人工序=Forms![帮面领取窗]![工人工序],数量=Forms![帮面领取窗]![数量],工价=Forms![帮面领取窗]![工价] WHERE (((帮面领取表.领取ID)=[Forms]![帮面领取窗]![领取ID]));"
      End If

DoCmd.SetWarnings True

Me![领取分配子窗体].Requery

  Me![帮面领取数据透视子窗].Requery

Me.工人编号 = Null
Me.工人姓名 = Null

Me.工序编号 = Null

Me.工人工序 = Null

Me.数量 = Null
Me.工价 = Null

Me.领取ID = Null

Me.小计 = Null

End If

End If
Exit_保存到帮面领取表_Click:
Exit Sub

Err_保存到帮面领取表_Click:
MsgBox err.Description
Resume Exit_保存到帮面领取表_Click

Me.领取分配子窗体.Form.Recordset.MoveLast

End Sub

作者: Henry D. Sy 时间: 2007-8-19 10:52
在表中，增加工价字段
然后
1。工价控件邦定到表
或
2。按钮事件---追加查询

[ 本帖最后由 dddddd 于 2007-8-19 10:55 编辑 ]

作者: goto2008 时间: 2007-8-19 10:58

[ 本帖最后由 goto2008 于 2007-8-19 16:00 编辑 ]

作者: Henry D. Sy 时间: 2007-8-19 11:55
稍微看了下，你的工价是邦定的，焦点移开该记录，记录就自动保存了。
至于，工资报表，你只要把计件数量和工价字段加到报表的记录源里去就行了。

作者: goto2008 时间: 2007-8-19 14:52
大哥。。你说工价怎么保存到表里就可以了。。。

因为工资报表。我不是用ACCESS的。。我是要导到EXCEL

作者: goto2008 时间: 2007-8-19 16:10
汗，问题找出来了。。。。
是属性那边

可用，，，，，我弄成否了

所以保存不到表里。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)