下面的代码，在多处使用或重复使用高，能不能写一个公共 地方，其他不同的表或窗口事件要使用，用类于变量或事件，调这个变量或事件，这样可以少很多代码，如何实现？
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "创建日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "创建日期 <= #" & .Value & "#"
End If
End With