[Resolvido]Caixa zoom ativada

Boas,

Tenho o seguinte código numa caixa de texto:
Me.Recalc
SendKeys "{F2}"

Mas por incomodo quando utilizo a tecla control
para escrever underscore por ex. ativa a caixa zoom
o que fazer para que isso não aconteça.

Obrigado

Peço desculpa,

isto era fácil de mais o cansaço ontem
tomou conta de mim?

Cpts

Sem probelma, este tópico será removido por não acrescentar nada ao fórum.

Bom dia,

peço desculpa mas tenho que reabrir este tópico,
porque pensei que resolvia travando a tecla shift
mas não funfou, alguém pode dar um grito.

Desde já agradeço a atenção dispensada,
Ab

Bom dia meu amigo.

Ja tentou desativar teclas especiais em Ferramentas/inicializar?

Boas vou tentar em casa,

pois não tenho msaccess instalado nesta máquina.

Obrigado,

Ab

Ok, boa sorte.

Boa tarde,

de facto não consigo descobrir o problema,
e a tecla não é a control mas sim a shift.

Agradeço desde já a vossa ajuda,

Cpts

Boa tarde.

Ja tentou tirar essa linha da sua caixa de texto?

SendKeys "{F2}"

Boas,

não posso tenho um código de pesquisa nessa caixa.

obg

'coloque o seu formulario com , visualizar teclas = Sim
'na caixa de texto, faça deste jeito;

Private Sub SuaCaixaTexto_KeyDown(KeyCode As Integer, Shift As Integer)
  If (Shift And acShiftMask) > 0 And (KeyCode = vbKeyF2) Then
      Me.SuaCaixaTexto.SelStart = Len(Me.SuaCaixaTexto.Text)
      KeyCode = 0
  End If
End Sub

Bom fim de semana...

Mestre,

um muito obrigado.

Grande abraço

O forum é que agradece o seu retorno.

Bom dia meus amigos.

João Paulo vc é muito bom no que faz, parabéns!