access窗体模式下默认输入前条记录字段的值

Henry D. Sy

1. Private Sub Form_Current()
   
2.     Dim rs As DAO.Recordset
   
3.     Set rs = Me.RecordsetClone
   
4.     If NewRecord Then
   
5.         If rs.RecordCount <> 0 Then
   
6.             rs.MoveLast
   
7.             Me.商品编号 = rs!商品编号
   
8.             Me.商品名称 = rs!商品名称
   
9.         End If
   
10.     End If
    
11.     rs.Close
    
12.     Set rs = Nothing
    
13. End Sub

复制代码

Henry D. Sy

Dlast ("[商品编号]","表1")

Henry D. Sy

版主，不能保存因为称Dlast为不知名函数
朱同学 发表于 2009-4-22 23:07

三楼给您的代码，为何不试试？？

Henry D. Sy

请引用dao

Henry D. Sy

12楼不是给您答案了吗