Ativar Ribbon personalizada ao abrir formulário

Olá a todos:

Tenho um DB (MS Access 2013) com dois formulários (por enquanto). Esses dois formulários, utilizam uma faixa de opções personalizada.

Ocorre que, quando abro um desses formulários, a Ribbon é exibida e se comporta como o esperado, porém ela não é selecionada (ou ativada) por padrão.

O que gostaria é que, ao abrir o formulário, a Ribbon fosse automaticamente ativada (colocada em primeiro plano, mostrando as opções para o usuário).

Pesquisei aqui no fórum e na Internet e nada encontrei que me ajudasse com esse problema. Também olhei o Maestro e não consegui identificar uma solução possível.

No anexo está  o DB.

Obrigado pela dica Avelino, porém gostaria de manter as guias "padrão" do Access e, quando abrir um formulário, o Pessoas, por exemplo, exibir a tab registro.

Avelino:

Eu já havia visto a questão 7 do tópico que você sugeriu, mas não havia entendido como usar. Pesquisei e encontrei aqui http://www.access-programmers.co.uk/forums/showthread.php?t=230389 e funciona, com um porém: a tab é ativada apenas quando abro o formulário, porém, se ele perde o foco e depois retorna o foco, a tab não volta a ser selecionada.

No tópico que citei acima, diz que o objRibbon.ActivateTab deve ser usada no evento GotFocus do formulário, mas pesquisei e descobri que esse evento só é disparado se o formulário não tem campos ou todos os campos estão desativados (fonte).

Tentei utilizar no evento Ao Ativar, mas dá erro também.

O que gostaria de fazer é, sempre que um formulário recebe o foco, ele ativa uma determinada tab. por exemplo, no arquivo anexo, se eu abro o formulário Pessoas, ele ativa a tabRegistro. Se abro o formulárioTransferências, a tabTransferencias é ativada. Se volto para o formulário Pessoas, a tabRegistro é ativada nomamente. Ao abrir os formulários, isso acontece, porém, não quando se trata de formulários já abertos. Deduzo porque se o formulário já está aberto, o evento onLoad da Ribbon já aconteceu.

Boa noite everton,
acredito que você já resolveu seu problema pela data,

mas...

Já tentou utilizar o evento "No atual"?

Private Sub Form_Current()
On Error Resume Next
objRibbon.ActivateTab "tabRegistro"
End Sub


Private Sub Form_Activate()
On Error Resume Next
objRibbon.ActivateTab "tabTransferencias"
End Sub


* Sempre dá erro na abertura, o resume next pula o erro e os eventos no atual e ao ativar funcionam normalmente!

Abraço.