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

Henry D. Sy

2
Private Sub 命令4_Click()
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    DoCmd.GoToRecord , , acNewRec
    If rs.RecordCount > 0 Then
        rs.MoveLast
        Me.编号 = rs!编号
    End If
    rs.Close
    Set rs = Nothing
End Sub

明镜

试了一下,这下好了,再次表示感谢!