VBºÍ Access97¶¼ Ã» ÓÐ Õâ Ñù µÄ ¹¦ ÄÜ ¡£ 
    ÔÚ VBÖÐ £¬ ¿É ÒÔ ÔÚ Ö´ ÐÐ AddNewÖ® Ç° ÏÈ ±£ ´æ ÏÂ µ± Ç° ¼Ç Â¼ £¬ Õâ ¿É ÒÔ Àû ÓÃ Clone·½ ·¨ ¡£ Èç 
    Dim RS As Recordset 
    Set RS = YourRecordset.Clone 
    È» ºó £¬ ÔÚ AddNewÖ® ºó £¬ Àû ÓÃ RSµÄ Êý ¾Ý Ìî ³ä Äã µÄ ×Ö ¶Î »ò ¿Ø ¼þ ¡£ 
    ÔÚ 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 
     
     ' Exit if you cannot move to the last record (no records). 
     If Err <> 0 Then Exit Function 
     
     ' Get the list of fields to autofill. 
     FillFields = ";" & F![AutoFillNewRecordFields] & ";" 
     
     ' If there is no criteria field, then set flag indicating ALL 
     ' fields should be autofilled. 
     FillAllFields = Err <&;gt; 0 
     F.Painting = False 
     
     ' Visit each field on the form. 
     For Each C In F 
     ' Fill the field if ALL fields are to be filled OR if the 
     ' ...ControlSource field can be found in the FillFields list. 
     If FillALLFields Or _ 
     InStr(FillFields, ";" & (C.Name) & ";") > 0 Then 
     C = RS(C.ControlSource) 
     End If 
     Next 
     
     F.Painting = True 
     
     End Function 
    È» ºó ÔÚ FormµÄ OnCurrentÊÂ ¼þ ÖÐ Ìí ¼Ó 
    =AutoFillNewRecord([Forms]![Customers]) 
    Õâ Àï CustomersÊÇ Äã µÄ FormµÄ Ãû ×Ö ¡£ 
    ÔÚ ´° Ìå ÉÏ ½¨ Á¢ Ò» ¸ö TexBox£¬ ²¢ Éè ÖÃ Èç ÏÂ Êô ÐÔ £º 
     Name: AutoFillNewRecordFields 
     Visible: No 
     DefaultValue: Phone;Company Name;City;State;Zip 
    Phone;Company Name;City;State;Zip±í Ê¾ Äã Òª ÖØ ¸´ ÉÏ Ò» Ìõ ¼Ç Â¼ µÄ ×Ö ¶Î ¡£ 
<END>