>>LOCAL; >>llErr >> >>llErr = .f. >>create cursor murks (nField n(1), nField1 n(3), cField C(20)) >>ON ERROR do myError with error() && llErr=.T. >>nField = 100 >>nField1 = 100 >>cField = 'Nadya' >>append blank >>*insert into murks from memvar &&(nField) values (100) >>gather memvar >> >>*----------------- >>function myError >>lparameter tnErrorNum >>if m.tnErrorNum = 39 && Numeric overflow >> local lnFields, lnI, lcAlias >> lnFields = afields(laFields) && assuming the table is opened >> lcAlias = alias() >> for lnI=1 to m.lnFields >> if laFields[m.lnI,2]='N' and ; >> "*" $ transform(evaluate(lcAlias+"."+laFields[m.lnI,1])) && This is a field, which gave an error >> =messagebox('Field '+ laFields[m.lnI,1]+" would be blanked because of numeric overflow") >> blank field (laFields[m.lnI,1]) >> exit >> endif >> next >> return >>endif>look like a goog idea. My suggestion to it would be to avoid exit - you may have more than one overflow.