<div>
Which version of Access are you using????<br />
<br />
ET
</div>


<div>
Access 2002 &nbsp;(soon to be 2003 , hopefully)
</div>


<div>
Try inserting this code as the first line of the tab control change event:<br />
<br />
'commits any changes<br />
If Me.Dirty Then Me.Dirty = False
</div>


<div>
&gt;&gt;&gt;&gt;The problem I'm running into placing this on the tab_chage is that the event fires before me.calccuml1layertotal has a chance to pull the updated values from the 2 subforms.&lt;&lt;&lt;&lt;&lt;&lt;<br />
<br />
Try this ...<br />
<br />
1.) Update me.calccuml1layertotal based on the OnCurrent Event for your form.<br />
<br />
OR<br />
<br />
2.) Update me.calccuml1layertotal based on the AfterUpdate Event for your sub-forms.<br />
<br />
<br />
ET
</div>


<div>
puppydogbuddy,<br />
<br />
this is what I have coded so far.<br />
<br />
****************<br />
<br />
Private Sub tab1_Change()<br />
<br />
If Me.Dirty Then Me.Dirty = False<br />
<br />
If Me.tab1.Value = 2 Then<br />
<br />
Select Case Me.intPolicyLimit<br />
<br />
&nbsp; &nbsp; Case 1<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; Me.curTotalLayerPremium = Me.calccuml1LayerTotal<br />
&nbsp; &nbsp; Me.curTotalReinsPremium = 0<br />
&nbsp; &nbsp; Me.curTotalUmbChargedPremi<wbr />um = Nz(Me.curTotalLayerPremium<wbr />, 0) + Nz(Me.curTotalReinsPremium<wbr />, 0)<br />
<br />
End Select<br />
<br />
End If<br />
<br />
<br />
End Sub<br />
<br />
******************<br />
<br />
When I click on page 2 nothing happens, however if I click on any other page and then back on page 2 it fires......
</div>


<div>
the code I gave you should be in the tab control on the main form, not &nbsp;on the individual tabs. .the dirty = false statement should commit any unsaved changes from the subforms.<br />
<br />
Private Sub TabCtl0_Change() &nbsp; &nbsp; &nbsp; '&lt;&lt;&lt;&lt;&lt;&lt;&lt;should be for tab control on the main form<br />
<br />
If Me.Dirty Then Me.Dirty = False<br />
<br />
&nbsp; &nbsp; Me.curTotalLayerPremium = Me.calccuml1LayerTotal<br />
&nbsp; &nbsp; Me.curTotalReinsPremium = 0<br />
&nbsp; &nbsp; Me.curTotalUmbChargedPremi<wbr />um = Nz(Me.curTotalLayerPremium<wbr />, 0) + Nz(Me.curTotalReinsPremium<wbr />, 0)<br />
<br />
<br />
<br />
End Sub<br />

</div>


<div>
puppydogbuddy,<br />
<br />
That is the tab control, I guess I should've named it something else. &nbsp;I can see now how misleading the name of it is.
</div>


<div>
It didn't work????<br />
<br />
&nbsp;try doing a requery just before the end sub<br />
<br />
Private Sub TabCtl0_Change() &nbsp; &nbsp; &nbsp; '&lt;&lt;&lt;&lt;&lt;&lt;&lt;should be for tab control on the main form<br />
<br />
If Me.Dirty Then Me.Dirty = False<br />
<br />
&nbsp; &nbsp; Me.curTotalLayerPremium = Me.calccuml1LayerTotal<br />
&nbsp; &nbsp; Me.curTotalReinsPremium = 0<br />
&nbsp; &nbsp; Me.curTotalUmbChargedPremi<wbr />um = Nz(Me.curTotalLayerPremium<wbr />, 0) + Nz(Me.curTotalReinsPremium<wbr />, 0)<br />
<br />
Me.Requery &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;<br />
<br />
End Sub<br />

</div>


<div>
That works but it makes the screen flicker when I click on Page 2........ &nbsp;Is there anything I can do about the flicker?
</div>


<div>
I have never had that problem, but try this &nbsp;after the requery statement, adapting the code to your actual page numbers/page indexes for the tabcontrol:(I am hoping that the setfocus statement will alleviate the flicker).<br />
<br />
Me.Requery<br />
__________________________<wbr />___Additio<wbr />nal code<br />
Select Case Me.TabCtl0.Value<br />
&nbsp; &nbsp; Case Is = 0 &nbsp; 'note Me.Page1.PageIndex = 0<br />
&nbsp; &nbsp; &nbsp; &nbsp; TabCtl0.Pages.Item(0).SetF<wbr />ocus<br />
&nbsp; &nbsp; Case Is = 1 &nbsp; 'note &nbsp;Me.Page2.PageIndex = 1<br />
&nbsp; &nbsp; &nbsp; &nbsp; TabCtl0.Pages.Item(1).SetF<wbr />ocus<br />
&nbsp; &nbsp; Case Is = 2 &nbsp; 'note &nbsp;Me.Page3.PageIndex = 2<br />
&nbsp; &nbsp; &nbsp; &nbsp; TabCtl0.Pages.Item(2).SetF<wbr />ocus<br />
End Select<br />
<br />
End Sub<br />

</div>


<div>
could this be the answer to your flickering??? &nbsp;if it is, then you can probably disregard the previous post.<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<a href="http://www.allenbrowne.com/ser-46.html" rel="ugc">http://www.allenbrowne.com/ser-46.html</a>
</div>


<div>
I tried using the module and it still flickers. &nbsp;I've noticed the screen does this whenever I use me.requery.<br />
<br />
I added your code also and it still flickers.
</div>


<div>
If I remove me.requery the flickering stops....
</div>


<div>
ok. maybe we need to requery just the subform control.<br />
<br />
instead of me.requery try this using the actual :<br />
me.yoursubformcontrol.requ<wbr />ery<br />
me.yoursubformcontrol.requ<wbr />ery
</div>


<div>
oops ! should have been only 1 line for requery of subformcontrol. disregard second line.
</div>


<div>
the main form needs to be requeired not the subform<br />
<br />
this is what I need recalculated when the subform changes<br />
<br />
Me.curTotalLayerPremium = Me.calccuml1LayerTotal<br />
&nbsp; &nbsp; Me.curTotalReinsPremium = 0<br />
&nbsp; &nbsp; Me.curTotalUmbChargedPremi<wbr />um = Nz(Me.curTotalLayerPremium<wbr />, 0) + Nz(Me.curTotalReinsPremium<wbr />, 0)<br />

</div>


<div>
ok, try the following instead of me.requery:<br />
<br />
me.recalc &nbsp; &nbsp;<br />
<br />
<br />
if me.recalc doesn't work, try this:<br />
<br />
me.refresh
</div>


<div>
try moving this line:<br />
&nbsp; &nbsp; &nbsp; &nbsp;If Me.Dirty Then Me.Dirty = False<br />
<br />
to the line before Me.Requery, and comment out me.requery, then try it.<br />
<br />
if doing that does not update the computation, uncomment me.requery and then try it.
</div>


<div>
That doesn't help either. &nbsp;I noticed the form also flickers when moving from one record to the next. &nbsp;
</div>


<div>
OK, lets try another approach....turn screen painting off and on. &nbsp;<br />
<br />
Me.Requery<br />
__________________________<wbr />___Additio<wbr />nal code<br />
<br />
Me.Painting = False &nbsp; &nbsp; &nbsp;'turn off screen painting until subform has focus <br />
Select Case Me.TabCtl0.Value<br />
&nbsp; &nbsp; Case Is = 0 &nbsp; 'note Me.Page1.PageIndex = 0<br />
&nbsp; &nbsp; &nbsp; &nbsp; TabCtl0.Pages.Item(0).SetF<wbr />ocus<br />
&nbsp; &nbsp; Case Is = 1 &nbsp; 'note &nbsp;Me.Page2.PageIndex = 1<br />
&nbsp; &nbsp; &nbsp; &nbsp; TabCtl0.Pages.Item(1).SetF<wbr />ocus<br />
&nbsp; &nbsp; Case Is = 2 &nbsp; 'note &nbsp;Me.Page3.PageIndex = 2<br />
&nbsp; &nbsp; &nbsp; &nbsp; TabCtl0.Pages.Item(2).SetF<wbr />ocus<br />
End Select<br />
Me.Painting = True<br />

</div>


<div>
nope still flickering..... grrrr 
</div>


<div>
LOL.....ooh sooooo frustrating!!!....<br />
on the basis of what Access help says about repainting, I think we need to apply it to each of the subforms, so let's comment out the setfocus on the tab control and try to setfocus on the subform:<br />
<br />
Me.Painting = False &nbsp; &nbsp; &nbsp;'turn off screen painting until subform has focus <br />
Select Case Me.TabCtl0.Value<br />
&nbsp; &nbsp; Case Is = 0 &nbsp; 'note Me.Page1.PageIndex = 0<br />
&nbsp; &nbsp; ' &nbsp; &nbsp;TabCtl0.Pages.Item(0).SetF<wbr />ocus<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Me.YourSubform1.SetFocus &nbsp; &nbsp;<br />
Case Is = 1 &nbsp; 'note &nbsp;Me.Page2.PageIndex = 1<br />
&nbsp; &nbsp; ' &nbsp; &nbsp;TabCtl0.Pages.Item(1).SetF<wbr />ocus<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Me.YourSubform2.SetFocus<br />
&nbsp; &nbsp; End Select<br />
Me.Painting = True<br />
<br />
<br />
__________________________<wbr />_____From Access Help______________________<wbr />______<br />
Setting the Painting property for a form or report to False also prevents all controls (except subform or subreport controls) on a form or report from being repainted. To prevent a subform or subreport control from being repainted, you must set the Painting property for the subform or subreport to False. (Note that you set the Painting property for the subform or subreport, not the subform or subreport control.)<br />
<br />
The Painting property is automatically set to True whenever the form or report gets or loses the focus. You can set this property to False while you are working on a form or report if you don't want to see changes to the form or report or to its controls. For example, if a form has a set of controls that are automatically resized when the form is resized and you don't want the user to see each individual control move, you can turn Painting off, and then move all of the controls, then turn Painting back on.<br />
<br />
&nbsp;
</div>


<div>
puppydogbuddy,<br />
<br />
It's not the subforms per se that are flickering, it's the tab control. &nbsp;Everything above the tab control does not flicker. &nbsp;Everything on the tab control, whether it's a subform or regular text controls, flicker.
</div>


<div>
I don't quite understand why you're trying to keep the subform on page 0 from flickering when the code is firing when I click on page 2 which has no subforms?a
</div>


<div>
keep in mind that I don't know what you have on each page or how you have indexed them...that is why I've been telling that you have to adjust my code to your specifics. &nbsp;In your case, if clicking on page 2 is flickering than modify the code I gave you so that it incorporates the pages that are flickering.
</div>


<div>
puppydogbuddy,<br />
<br />
Your approach gave me an idea. &nbsp;This is what I'm using now.<br />
<br />
Private Sub tab1_Change()<br />
<br />
If Me.Dirty Then Me.Dirty = False<br />
<br />
&nbsp; &nbsp; If Me.tab1.Value = 2 Then<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; Me.Painting = False<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; intPolicyLimit_AfterUpdate<wbr /><br />
<br />
&nbsp; &nbsp; Me.Requery<br />
<br />
&nbsp; &nbsp; Me.Painting = True<br />
<br />
&nbsp; &nbsp; End If<br />
<br />
End Sub<br />
<br />
NO FLICKER!! <br />
<br />
yay!<br />
<br />
Thanks so much for your help.<br />
<br />
Rose Marie
</div>


<div>
Wow!! way to go! Thank you.
</div>


<div>
<div class="content wysiwyg-content">
I need to fire the below code when the page is clicked but after several fields which are needed for calculation update with new data pulling from 2 subforms.<br />
<br />
&nbsp;Me.curTotalLayerPremium = Me.calccuml1LayerTotal<br />
&nbsp; &nbsp; Me.curTotalReinsPremium = 0<br />
&nbsp; &nbsp; Me.curTotalUmbChargedPremi<wbr />um = Nz(Me.curTotalLayerPremium<wbr />, 0) + Nz(Me.curTotalReinsPremium<wbr />, 0)<br />
<br />
The problem I'm running into placing this on the tab_chage is that the event fires before me.calccuml1layertotal has a chance to pull the updated values from the 2 subforms.<br />
<br />
(Am I making any sense with this?)<br />
<br />
As always any help is greatly appreciated.<br />
<br />
Rose Marie<br />
<br />

</div>
</div>


I need to fire the below code when the page is clicked but after several fields which are needed for calculation update with new data pulling from 2 subforms.

 Me.curTotalLayerPremium = Me.calccuml1LayerTotal
    Me.curTotalReinsPremium = 0
    Me.curTotalUmbChargedPremium = Nz(Me.curTotalLayerPremium, 0) + Nz(Me.curTotalReinsPremium, 0)

The problem I'm running into placing this on the tab_chage is that the event fires before me.calccuml1layertotal has a chance to pull the updated values from the 2 subforms.

(Am I making any sense with this?)

As always any help is greatly appreciated.

Rose Marie



Fire Tab_Change() upon page clicked after subform is updated

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.