num = 1024
Set RSMensuales = Nothing
RSMensuales.Open "UPDATE TMensual SET fac_mes = '" & Trim(num) & "'" & _
"WHERE per_mes = '" & per & "'", CnSQLconexion, adOpenKeyset, adLockOptimistic
num=100
while not.eof
if periodo = per then
.edith
.field("fac_mes") = Trim(num)
.update
.movenext
num= num + 1
end if
wend
num = 100
Set RSMensuales = Nothing
RSMensuales.Open "UPDATE TMensual SET fac_mes = '" & Trim(num) & "'" & _
"WHERE per_mes = '" & per & "'", CnSQLconexion, adOpenKeyset, adLockOptimistic