adp/sql2k data updatability with a bound form

  • Thread starter Thread starter Rob
  • Start date Start date
R

Rob

Basics: I have a form which is bound to a stored
procedure with input/output parameters. I have set the
recordset property to the ADO recordset I am retrieving
in code. I want to be able to update the data on the
screen and prompt the user to save the changes with an OK
button. If data has changed (dirty) a yes/no msgbox
appears --If yes-commit and close. If no, rollback and
return to screen. (The data is not refreshed at this
point). If the user clicks CANCEL, same yes/no msgbox
appears. If yes--rollback and close the screen, If no--
return to screen and continue. Any sample code would be
greatly appreciated!

Rob
 
R> Basics: I have a form which is bound to a stored
R> procedure with input/output parameters. I have
R> set the recordset property to the ADO recordset I
R> am retrieving in code.

don't do that. Specify recordsource for the form and let it build the recordset
itself.

R> I want to be able to
R> update the data on the screen and prompt the user
R>
R> to save the changes with an OK button. If data
R> has changed (dirty) a
R> yes/no msgbox appears --If
R> yes-commit and close. If no, rollback and
R> return
R> to screen.

sub cmdOK_click
docmd.runcommand saverecord
end sub
sub cmdCancel_click
if msgbox("cancel changes?)=vbyes then undo
end sub
sub beforeupdate (cancel as boolean)
cancel=(msgbox("update data?")=vbno)
end sub


I didn't test this code, it's just a sample.

Note that rollback is implemented not in cmdOK_click - that's because Access
will try to commit the changes if the user closes the form, or navigates to
another record, and some other events. This way, you intercept them all.

Vadim
 
Back
Top