关于子窗体中添加新记录问题

极品飞车　发表于：2011-05-14 22:44:48 　

下面是主窗体中添加按钮的代码,当然这里有不少问题,但现在主要关心的是如何实现主窗体与子窗体的主与从表中都能添加新的记录等待录入信息?

Private Sub 添加_Click()
On Error GoTo Err_添加_Click

    Dim i As Integer

    DoCmd.GoToRecord , , acLast
    Me.异常事件编号.Value = Me.异常事件编号.Value + 1
    DoCmd.GoToRecord , , acNewRec
    Me.Refresh

    Me.设备表子窗体!设备名.Value = Me.设备名
    'Me.设备表子窗体.Refresh

    'MsgBox Me.异常事件编号.Value

Exit_添加_Click:
    Exit Sub

Err_添加_Click:
    MsgBox Err.Description
    Resume Exit_添加_Click

End Sub

先谢过.

Top

虽虽TV 发表于：2011-05-14 22:57:29

参考一下这个：http://www.accessoft.com/bbs/showtopic.asp?Id=5408

Top

极品飞车发表于：2011-05-15 18:24:23

谢谢楼上的朋友,不过感觉例子帮助不大

Top

极品飞车发表于：2011-05-15 18:27:30

我的意思是在按完添加按钮之后,在主窗体和子窗体中显示空白记录等待录入新内容,然后用保存按钮保存新记录.在未按添加按钮之前,原有记录或者说主窗体上的控件都是不能编辑的,只能"看".

Top