>>>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