codice:
if len(sgennaio3)<>0 then
r3=sgennaio3
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 then
ry=r1+r2+r3
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
due if, una end if.... ci credo che l'animale si lamenta...