If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Custom Zoom Form Not Updating Data
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 -- Message posted via http://www.accessmonster.com |
#2
|
|||
|
|||
Custom Zoom Form Not Updating Data
If you use the Access Zoom box, you won't have that problem. If you have a
slick form that you want to keep, have a look at the way the code works in my calendar form. Patterning your form on the way that it works should be your ticket. http://www.datastrat.com/Download/Calendar2K.zip -- Arvin Meyer, MCP, MVP http://www.datastrat.com http://www.mvps.org/access http://www.accessmvp.com "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 -- Message posted via http://www.accessmonster.com |
#3
|
|||
|
|||
Custom Zoom Form Not Updating Data
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 |
#4
|
|||
|
|||
Custom Zoom Form Not Updating Data
Thanks guys for both responses. They were very helpful. I settled on Allen's
code and it works perfectly. Thanks again Allen Browne wrote: Here's an untested and undocumented example: http://allenbrowne.com/unlinked/ZoomBox2000.zip Should work with Access 2000 or later. 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 [quoted text clipped - 13 lines] Forms("frm_exp_txt").Controls("text5") = strTitle End Sub -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/For...forms/201002/1 |
Thread Tools | |
Display Modes | |
|
|