如何自动生成子窗体的编号

明镜

求助:tbl_UserName是主窗体,窗体1是子窗体.如何在"打开子窗体"后,在子窗体的编号字段中自动录入主窗体的编号.免去重复录入的麻烦.

明镜

顶一下

Henry D. Sy

1
所谓的主窗体
Private Sub 命令4_Click()
DoCmd.OpenForm "窗体1", , , , , , Me.ID
End Sub

2
所谓的子窗体
Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then
        Me.编号 = Me.OpenArgs
    End If
End Sub

lingjiang

[:26] [:26] [:26] [:26] [:24] [:24]

明镜

谢谢,

明镜

第一个问题解决了,又出现了新的问题,就是在子窗体新增记录时,要使编号自动出现,编号要重复上一条记录(主窗体和子窗体是一对多的关系),请大家支持.

Henry D. Sy

Private Sub Form_Current()
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    If NewRecord Then
        rs.MoveLast
        Me.编号 = rs!编号
    End If
    rs.Close
    Set rs = Nothing
End Sub

明镜

对7楼表示非常感谢!

明镜

试了一下,如果是第一条记录的,就会出现错误,请教一下,这个问题如何避免,
另外,把这段代码放到"窗体1"中的添加记录的"命令4"中行不行?如果行的话,又怎么改?
非常感谢!

Henry D. Sy

1
Private Sub Form_Current()
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    If NewRecord Then
        If rs.RecordCount > 0 Then
            rs.MoveLast
            Me.编号 = rs!编号
        End If
    End If
    rs.Close
    Set rs = Nothing
End Sub