Office中国论坛/Access中国论坛

标题: 选项卡控件上子窗体数据记录的增加删除问题 [打印本页]

作者: zxxx 时间: 2008-5-15 13:50
标题: 选项卡控件上子窗体数据记录的增加删除问题
建一窗体,在该窗体上建一选项卡控件,该控件包含3个页,在每页上都分别新建子窗体1,2,3,其数据来源分别是表1,2,3
如何实现在选项卡的每页上对其子窗体数据记录进行新增,删除,保存操作?
罗斯文实例好像只能对记录进行新增,不能删除吧?
急盼高手指点!
[attach]30169[/attach]

[ 本帖最后由 zxxx 于 2008-5-15 14:16 编辑 ]

作者: goto2008 时间: 2008-5-15 22:17
关注...

作者: wang1950317 时间: 2008-5-15 22:40
t小宝老师的删除子窗体记录可以看看
http://www.office-cn.net/forum.p ... hlight=%C9%BE%B3%FD

作者: zxxx 时间: 2008-5-16 09:24
谢谢楼上!
看了一下,好像和我提的问题有区别.
盼高手....

作者: panjianhui 时间: 2008-5-16 09:33
我现在都是用insert 、delete语句直接对表的数据进行操作，只需要对WHERE条件设置时，引用不同选项卡控件上的值就可以了

作者: kangking 时间: 2008-5-16 10:55
一个小示例。

作者: kangking 时间: 2008-5-16 11:41
不好意思，示例中的代码有错误，应该是下面的样子。

Private Sub Command11_Click()
Dim rs As DAO.Recordset

On Error GoTo Err_Command11_Click

Select Case 选项卡控件0
Case 0
Set rs = Me.name_子窗体.Form.Recordset
rs.Bookmark = Me.name_子窗体.Form.Bookmark
Case 1
Set rs = Me.class_子窗体.Form.Recordset
rs.Bookmark = [class 子窗体].Form.Bookmark
Case 2
Set rs = Me.teacher_子窗体.Form.Recordset
rs.Bookmark = [teacher 子窗体].Form.Bookmark
End Select

rs.Delete
Me.Refresh

Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub

作者: zxxx 时间: 2008-5-16 13:28
感谢楼上大侠的回复,确实有价值!
但奇怪的是,为什么只能删除记录,而不能通过命令按钮新增?一般在子窗体上是可以用命令按钮新增记录的.

作者: kangking 时间: 2008-5-16 14:14

原帖由 zxxx 于 2008-5-16 13:28 发表
感谢楼上大侠的回复,确实有价值!
但奇怪的是,为什么只能删除记录,而不能通过命令按钮新增?一般在子窗体上是可以用命令按钮新增记录的.

因为你子窗体上的数据是绑定的，没有必要加一个新增按钮，要新增记录就在后面加就可以了;保存记录的按钮也是不必要的，因为记录会自动保存。

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