>>>>

>>>>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)
>>>
>>>I guess you ment to use VARTYPE() and not TYPE(), with TYPE() you must enclose the variable names with apostrophs. (I know that you know that!)
>>
>>PFMJI, but he's right - lcControl contains the name of the variable or field. Vartype(lcControl) would always return "C", while type(lcControl) returns the type of the expression it contains. Hence, this should read
>>
>>

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

Tore,
Controlsource already have the quotes:)
Cetin