>>>>>>LOCAL lcControl >>>>>>lcControl = IIF(UPPER(LEFT(Object.ControlSource,2)) == [M.],SUSBTR(Object.ControlSource,3),Object.ControlSource) >>>>>>DO CASE >>>>>> CASE TYPE([m.]+lcControl) == [U] AND; && Not a memory variable >>>>>> TYPE(lcControl) # [U] >>>>>> REPLACE (lcControl) WITH WITH ltNewDateTime >>>>>> CASE TYPE(lcControl) == [C] && Memory variable >>>>>> STORE ltNewDateTime TO (lcControl) >>>>>>OTHERWISE >>>>>> *** something wrong >>>>>>ENDCASE >>>>>>>>>>>>(not tested for all occasions)
>>>>LOCAL lcControl >>>>lcControl = IIF(UPPER(LEFT(Object.ControlSource,2)) == [M.],SUSBTR(Object.ControlSource,3),Object.ControlSource) >>>>DO CASE >>>> CASE TYPE([m.]+lcControl) == [U] AND; && Not a memory variable >>>> TYPE(lcControl) = [T] && a datetime field >>>> REPLACE (lcControl) WITH WITH ltNewDateTime >>>> CASE TYPE(lcControl) == [T] && datetime Memory variable >>>> STORE ltNewDateTime TO (lcControl) >>>>OTHERWISE >>>> *** something wrong >>>>ENDCASE >>>>>>>Sorry, but you are wrong, and I am right! :-)
>>>?vartype(sometextfield) && C >>>?vartype(somenumericfield) && N >>>?type(somenumericfield) && Raises an error >>>?type(somedatetimefield) && Raises an error >>>?type("somedatetimefield") && T >>>?vartype(somedatetimefield) && T >>>?vartype("somedatetimefield") && C because "somedatetimefield" is text>>