Äã ¿É ÒÔ Õâ Ñù ×ö £º 
    Private Sub Data1_Validate(Action As Integer, Save As Integer) 
     If Text1.DataChanged And Text1.Text = "" Then 
     Text1.DataChanged = False 'So this data is not saved 
     Data1.UpdateRecord ' This saves the data that 
     ' may have changed in the other controls 
     
     ' Now clear the numeric field 
     Data1.Recordset.Edit 
     Data1.Recordset![Year Born] = Null 
     Data1.Recordset.Update 
     End If 
    End Sub 
<END>