<<< 返回 access911.net 编程静态资料库索引页

作者：  摘自：  录入：cg1  时间：2002-11-23  浏览人次：1387

专题地址：http://www.access911.net/index.asp?u1=a&u2=76FAB31E 如果需要更详细的评论或说明，请点击该地址。

简述：

'回答:

'    VB和Access97都没有这样的功能。
'    在Access97中，可以先建立一个modAuto_Fill_New_Record模块，输入下面的代码：
'    Option Explicit
     Function AutoFillNewRecord(F As Form)
     Dim RS As Recordset, C As Control
     Dim FillFields As String, FillAllFields As Integer
     
     On Error Resume Next
     
     ' Exit if not on the new record.
     If Not F.NewRecord Then Exit Function
     
     ' Goto the last record of the form recordset (to autofill form).
     Set RS = F.RecordsetClone
     RS.MoveLast
.....................
...........