Setvalue on a multiple tabs with the same procedure 1

[Quotidius]

My form has a subform1. Subform1 has 5 tabs each with 2 fields: Field 1 is an employee’s score of themselves (self appraisal). Field 2 will represent their manager's appraisal of the employee. Both are option groups with values 1 thru 5. I have placed on each record a command button for a manager to say "I agree" so that it sets his Field 2 = Field 1 score.

The trouble is my macro that works so well on Tab 1 has to have the path it references altered for each of the other 4 tabs, in essence creating 5 macros.

Could VB more effectively handle this? Recommended threads or advice greatly appreciated.

 

[danvlas]

Absolutely...
Assuming you have a naming convention such as similar controls on all tabs be called txtScore0, txtScore1...txtScoreN, where the number is the page index on the Tab control:

For i = 0 To Me.tabControlName.Pages.Count-1
Me("txtScore" & i) = YourValue
Next

Depending on your naming convention, the code might need changing, but that should be a good start.

HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[Quotidius]

That was simple and easy - but it would have taken me a long time to see it. Thanks Daniel!.