Set Default for Tab Control

[shieriel]

I use tab control on my form for the monthname and created queries for the monthly summary of records.
Can i set the default tab to always open on the current month? When i open the form it is always showing the January tab, and i have to click on March which is the current month..

 

[Khalid_Afridi]

This is something intrusting. more VBA coding needed to do the task.
1 - Get the Month from the current date
2 - Find the Tab on the form which match the Current Month
3 - Set Focus on that Tab

hmmmm.... intrusting

 

[shieriel]

This is something intrusting. more VBA coding needed to do the task.
1 - Get the Month from the current date
2 - Find the Tab on the form which match the Current Month
3 - Set Focus on that Tab

hmmmm.... intrusting

I dont know where and how to start for this..
i have no idea, sorry just a beginner...

 

[John Big Booty]

The Month() function will return the month number, so you could use;

Month(Date())

to return the month number for today's date.

If you want the month name then have a look at the MonthName() function in which case you could use;

MonthName(Month(Date()))

to return the month name of today's date.

 

[John Big Booty]

Now assuming your tabs use the month name as their name, you can then use the following to set focus on today's month named tab;

Me.MonthName(Month(Date())).SetFocus

 

[shieriel]

Now assuming your tabs use the month name as their name, you can then use the following to set focus on today's month named tab;

Me.MonthName(Month(Date())).SetFocus

Hi Sir John, How should i apply this on my form? I use month name for my tabs (January, February, March,....December). I tried to apply this on "Got Focus" event property on my form but nothing hapens. I also tried "on Load" and "on Open" and i got a "compile error" > "Method or data member not found"

 

[SOS]

Actually it should be:

Me.[COLOR=red][B]Controls([/B][/COLOR]MonthName(Month(Date()))[COLOR=red][B])[/B][/COLOR].SetFocus

 

[shieriel]

Actually it should be:

Me.[COLOR=red][B]Controls([/B][/COLOR]MonthName(Month(Date()))[COLOR=red][B])[/B][/COLOR].SetFocus

It works! Thank you very much.....

 

[John Big Booty]

Actually it should be:

Me.[COLOR=red][B]Controls([/B][/COLOR]MonthName(Month(Date()))[COLOR=red][B])[/B][/COLOR].SetFocus

Ah yes sorry my bad.

 

[Khalid_Afridi]

Actually it should be:

Me.[COLOR=red][B]Controls([/B][/COLOR]MonthName(Month(Date()))[COLOR=red][B])[/B][/COLOR].SetFocus

Thumbs Up... Thumbs Up... Thumbs Up...