updating a form with new data

[markjkubicki]

I have a form (with several controls: checkboxes, option buttons...), that displays only (1) record, and gets it's data from a table [tbe...] that also has only (1) record



on that same form is an option button frame that lets the user select (1) of several records in a second table [tbl...] (This second table provides a various "default" combinations for the the values on the form; so that when the user changes the preset opt, the form reflects those new "default" values.)
The record in the first table [tbe...], which is the data source for the form, is then replaced with a record that reflects the user's choice from the 2nd [tbl...]

...all of this works fine, but what I can't get to work, is an action that updates the controls on the form

I also tried moving the me.Refresh from the beforeUpdate to afterUpdate
it's closer to being right, but the form only updates to null values -as if the added record hadn't arrived yet... (timing?)

many thanks in advance,
mark




here's the code:
---------------------------------------

Private Sub frmPresetOption_beforeUpdate(Cancel As Integer)
Dim sSQL As String
DoCmd.SetWarnings False

sSQL = "Delete * from [tbeFixtureSchedulePrintOptions];"
DoCmd.RunSQL sSQL

sSQL = "INSERT INTO tbeFixtureSchedulePrintOptions" _
& " SELECT *" _
& " from tblFixtureSchedulePrintOptions" _
& " WHERE [PresetOption] = " & Me.frmPresetOption & ";"
DoCmd.RunSQL sSQL

Me.Refresh
DoCmd.SetWarnings True
...


-----------
also:
Private Sub frmPresetOption_afterUpdate(Cancel As Integer)
me.refresh
...

[pbaldy]

Have you tried

Me.Requery

instead of Refresh? Requery is what you want. Refresh only shows changes made to records already in the current recordset.

[markjkubicki]

i've tried both (in combi9ation and seperately)... maybe in the wrong combination?

[pbaldy]

The Refresh should not be required at all, the Requery should get the new record. If it's a timing issue, you can see if putting

DoEvents

between the insert and the requery helps.

[markjkubicki]

AURGH!! still not it (?!)

so I added...

Private Sub frmPresetOption_afterUpdate()
DoEvents
Me.Requery
End Sub

i'm still getting an updated form with aLl the values at null (all of the checkboxes, etc are greyed out)

[pbaldy]

Can you post the db?

[markjkubicki]

I'm a little slow at figuring out how to post the applicable parts of a Db; and will try to do so later tonight (at the latest tomorrow AM)

thanks for your interest.