Here's an untested and undocumented example:
http://allenbrowne.com/unlinked/ZoomBox2000.zip
Should work with Access 2000 or later.
--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users -
http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"ondvirg via AccessMonster.com" u45813@uwe wrote in message
news:a37e1488f954e@uwe...
I have some code tied to the double click event for a control that opens a
custom zoom form and displays the text as well as the label of that
control.
Right now, if I add to the text in the zoom form, it doesn't actually
update
the data in the table. I know I've read somewhere how to accomplish this,
but
my searching isn't finding it again.
The code I'm using is below. Any help would be appreciated. Thanks
Private Sub evnt_prblm_descr_txt_DblClick(Cancel As Integer)
strZoomPar = Me.name & ";" & Me.ActiveControl.name
strTitle = Me!Label16.Caption
DoCmd.OpenForm "frm_exp_txt", , , , , , strZoomPar
Forms("frm_exp_txt").Controls("text0") = Me.ActiveControl
Forms("frm_exp_txt").Controls("text5") = strTitle
End Sub