Pass Calendar value to all fields on continuous form

[VictorS]

Hello, everybody!
My continuous form (frmUpdateDates) has a bount field "EffectiveDate".
Unbound combo box calls ocxCalendar, but it only passes value to the one record. How can I pass Calendar value to all records?

[pks00]

If u want to set all the effectivedates u could use recordsetclone to update records
eg

private sub SetAllDates()
 
    dim rs as dao.recordset
 
    set rs=me.recordsetclone
    do while rs.eof = false
        rs.edit
        rs!EffectiveDate = me.unbounddatefield
        rs.update
        rs.movenext
    loop
    rs.close
    set rs=nothing
end sub
 

add this to your form and call it when u need to set the dates, note u need to change the fieldnames accordingly especially me.unbounddatefield

[VictorS]

Works great! Thanks a lot!

Is there a way to modify this code so it will allow multiply changes?
For example: I select a 1/1/2007 - all fields populated with this date.
But when I select a different date- the code doesn't work until I click somewhere else.

Thank you very much!

[pks00]

its a function, so u control when u want to call it
just set your code and call it when u need to