Private Sub Form_Load()
    Me.Caption = "�y Product Inventory List �z" 
End Sub
Private Sub Form_Activate()
      On Error Resume Next
      DoCmd.Maximize
      ClrScr
�@    Me.Requery
      Call UpDate_Click
End Sub
Public Sub ClrScr()
    On Error GoTo Err_ClrScr
    Me.Painting = False: DoCmd.Hourglass True: DoCmd.SetWarnings False 
    Me.Requery
 End_ClrScr:
    DoCmd.SetWarnings True: DoCmd.Hourglass False: Me.Painting = True 
    Exit Sub
 Err_ClrScr:
    MsgBox Err.Description
    Resume End_ClrScr
End Sub
Private Sub StartDate_AfterUpdate()
  Call DatFilter
End Sub
Private Sub StartDate_BeforeUpdate(Cancel As Integer)
   Call DatFilter
End Sub
Private Sub StartDate_Exit(Cancel As Integer)
   Call DatFilter
End Sub
Private Sub EndDate_AfterUpdate()
  Call DatFilter
End Sub
Private Sub EndDate_BeforeUpdate(Cancel As Integer)
   Call DatFilter
End Sub
Private Sub DatFilter()
  If IsNull(Me!StartDate) Or Me!StartDate = 0 Then
        Beep
        MsgBox "Pls Enter a Start date.", vbExclamation, "EntryError"
        StartDate.SetFocus
        Exit Sub
  End If
  If IsNull(Me!EndDate) Or Me!EndDate = 0 Then
        Beep
        MsgBox "Pls enter an ending date.", vbExclamation, "Entry Error"
        EndDate.Requery
        Exit Sub
  End If
  If IsNull(Me!EndDate) Then
      Me!EndDate = Me!StartDate
      Me!EndDate.Requery
  End If
  If Me!EndDate = 0 Then
        Me!EndDate = Me!FromDate
        Me!EndDate.Requery
  End If
  stq = "DateProduced Between #" & StartDate & "# And #" & EndDate & "#"
End Sub

Private Sub EndDate_Exit(Cancel As Integer)
  Call DatFilter
End Sub

Private Sub UpDate_Click()
   Updating Code here
End Sub