putting values in a field

[Square One]

I want to write a for next loop, activated by a cammand
button, that goes through a table and evaluates a field,
if the value is null i want the value from the previos
record put in that field. i get the for next thing and
the if then thing i just don't know how to put the value
in the field. and i'm considering TPing jeffrey p.
mcmanus' house.

[Dean]

Dim mRS as recordset
Dim defaultVal as string
defaultVal = "Some Value"
Set mRS = currentdb.OpenRecordset(myTablename)
With mRS
.movefirst
While not .EOF
if Not IsNull(.fields(fieldname)) then
'if the field has a value then assing value to
variable
defaultVal = .fields(fieldname)
Else
'If field value is empty then assign variable
value to field
.Edit
.fields(fieldname) = defaultVal
.Update
End if
.movenext
Wend
End With
mRS.close
set mRS = Nothing

- - - Dean

>.
>