keydownedit
If e.Col.IsDate Then If e.keycode = 32 Then e.Text = Nothing End IfEnd If
keypressedit
If e.Col.IsDate Then e.cancel = TrueEnd if