通过主窗体中的保存按钮来保存子窗体中的数据

欧阳空竹　发表于：2011-04-16 01:45:10 　

复制

点击下载此附件

Top

网行者发表于：2011-04-16 06:13:13

在子窗体更新前事件中加入以下代码

Dim q As Integer
q = MsgBox("是否保存当前记录", vbOKCancel, "保存当前记录")
If q <> 1 Then
Me.Undo
End If

Top

lyxiong 发表于：2011-04-16 08:03:36

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("员工信息", dbOpenDynaset)
     Rst.AddNew
     Rst("员工工号") = Me.员工工号
     Rst("性别") = Me.性别
     Rst("年龄") = Me.年龄
     Rst("站点") = Me.站点
     Rst("岗位") = Me.岗位
     Rst("班次") = Me.班次
     Rst("姓名") = Me.姓名
     Rst("照片") = Me.TxtPath

     Rst.Update
     Rst.Close
     Set Rst = Nothing
     '刷新数据
     DoCmd.Echo False
     Form_员工信息录入.员工信息子窗体.Requery
     DoCmd.Echo True
     MsgBox "员工信息记录保存成功!", vbInformation, "保存成功"

Top

小学生发表于：2011-04-16 14:26:01

点击“添加领用物品”按钮打开“领用物品明细添加”窗体，通过“领用物品明细添加”窗体的“添加”按钮向A窗体中的子窗体添加一条或多条记录

临时添加到子窗体中，但是并不真正存入表中。真正的存入表中时需要A窗体中的“保存按钮”来实现。

也就是将子窗体视作主窗体中的字段来操作。

Top

夏雨发表于：2011-04-17 12:27:45

只能用临时表完成

Top

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

Access交流中心

通过主窗体中的保存按钮来保存 子窗体中的数据

通过主窗体中的保存按钮来保存子窗体中的数据