[Resolvido]Erro ao usar SelStart apenas no Office 2021

Boa tarde
Amigos

Este código funciono perfeito no 2013 e 2016

Private Sub txtHireDate_GotFocus()
Me.txtHireDate.SelStart = 0
End Sub

Mas no 2021 bloqueia o campo

Tem como resolver

up

Boa tarde

Este código funciono perfeito no 2013 e 2016 ambos 32 Bts

Mas no 2021 64 Bits o campo recebe o foco e fica bloqueado

Boa tarde, Amigos

Vou colocar aqui o exemplo.

Ao abrir a BD, abre no formulário " Menu ", que por sua vez tem um botão " Registar ".

Ao clikar em " Registar " abre o outro formulário de Registar os movimentos.

Ao abrir este formulário " frmMovimentoCaixa" o foco vai para o primeiro caracter do campo "txtData" que fica preenchido com a data do dia.

- O que está a acontecer é:

No Office 2013, ou 2016, ambos 32 Bits não tenho problemas ao digitar nova data no campo "txtData".

Mas no Office 2021 64 Bits o campo "txtData" fica bolqueado.

Por isso preciso que alguém teste num Office 2013 ou 2016, mas de 64 Bits para ver se acontece o mesmo o campo "txtData" ficar bloqueado.

Obrigado

Bom dia Assis,

Já compilou ou seu projeto na máquina nova (64 bits)????


Parece que não, pois tem erros.
É a mesma situação que já teve abril de 2021, tem que "pôr a mão na massa".
https://www.maximoaccess.com/t39423-resolvidoajustar-codigo-para-funcionar-em-32-bits-e-64-bits
Veja em especial a imagem de exemplo na mensagem nr 4, é o que tem que fazer para o seu aplicativo rolar a 32 Bits e 64 Bits.

Se quer compreender como é efetuado, no tópico abaixo tem um exemplo a 32 bits e outro que partilhei que foi implementado para funcionar também a 64 bits, creio que será uma fonte de estudo por comparação
https://www.maximoaccess.com/t344-login-com-mascara-de-password-na-inputbox

Abraço

Bom dia, Amigos

Sim Teixeira já compilei no Office 2021 64 e não dá erro que até consigo criar em ACCDE

Segue exemplo já compilado, mas a dar o mesmo erro, bloqueia no campo TxtData

Olá Assis,

Só mais logo em casa é que tenho o 2021 para testar.

Entretanto, não encontro o campo que faz referencia ao problema na mensagem nr 1, pode dar mais detalhes o que deveria fazer o que está a fazer e em que campo.
Na imagem o assinalado a 2 está correta a referência?


Abraço

Teixeira

O erro é meu ...


Aqui esta onde dá erro que bloqueia o campo


Private Sub txtData_GotFocus()
Call Form_Current
Call fcor(Me!txtData, "am")

Me.ActiveControl.SelStart = 0

Me.Comando68.Enabled = True
Me.Comando65.Enabled = False
Me.Texto207.Visible = False


Sim onde está o 2 está correto

End Sub

Olá Assis,

O número 2 da imagem anterior, na minha opinião não está bem, se tem dúvidas veja aqui:
https://www.maximoaccess.com/t9846-desafio-referenciar-objetos-forms

Relativamente "...onde dá erro que bloqueia o campo", pela leitura que fiz do código não deve apresentar erro, estou certo ou errado? Pode bloquear ou não funcionar, mas não apresenta nenhuma mensagem de erro correto?

Caso afirmativo uma solução para verificar o que se está a passar é retirar o código temporariamente para verificar os erros


Abraço

Tirei o acontecimento:

Mas continua a bloquear o campo TxtData

Quanto ao ponto 2 não vejo problemas mesmo no 2012.

Mas o Amigo depois em casa tira a dúvida por favor.

Obrigado

Olá Assis,

Tem muitos eventos no Form e o código deve ser otimizado.
Quando temos muitos eventos  pode existir conflito e o código não ser executado em determinada sequência.
Para resolver esta "novela" apenas tem que colocar o código abaixo (no evento ao abrir) para o campo receber o foco.


Por último deve rever este tópico e estudar as orientações.
Bom almoço!

Abraço

Nota: Título do tópico ajustado

Boa tarde, Amigos

Tirando o comando marcado a vermelho na mensagem Nº 11, e colocando o mesmo ao ABRIR o formulário ..

Foi remédio santo

Teixeira:cheers:

Quem sabe, sabe

Obrigado