[Resolvido] Problema ao usar DoCmd.SearchForRecord

Olá!

Criei um formulário simples de cadastro de Pessoa Física/Jurídica, onde existe um campo do tipo "caixa de combinação" (cboIrPara) para navegar entre os registros existentes.

O campo cboIrPara foi vinculado ao evento AfterUpdate, da seguinte linha:

Código:

Private Sub cboIrPara_AfterUpdate()
    
    DoCmd.SearchForRecord , "", acFirst, "[id] = " & Str(Nz(Screen.ActiveControl, 0))

End Sub

Além disso, existe um campo não acoplado, cpf_cnpj, que é alterado no Form_Current para mostrar o campo cpf ou cnpj, de acordo com o registro mostrado.

Agora o problema:

Digamos o registro id = 1 seja uma pessoa física (tipo_pessoa = 1), e o registro id = 2 seja uma pessoa jurídica (tipo_pessoa = 2).
Se eu navego do id = 1 para o id = 2 pelo cboIrPara, todos os campos são preenchidos corretamente. Todavia, se retorno do id = 2 para o id = 1, seu cpf não é preenchido.

Se eu utilizo outro método para navegar pelos registros, o problema não acontece. Exemplo:

Código:

Private Sub cboIrPara_AfterUpdate()
    
    ' Encontra o registro que coincide com o controle.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id] = " & Str(Nz(Screen.ActiveControl, 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
End Sub

Alguma ideia do que pode estar acontecendo? Anexei o arquivo para análise de vocês.

Obrigado!

Boa noite e bem-vindo ao fórum
Leia as regras e cumpra-as para mantermos o fórum limpo, organizado e de fácil utilização

Sobre a sua dúvida, onde tem

Código:

'DoCmd.SearchForRecord , , acFirst, "[id] = " & Str(Nz(Screen.ActiveControl, 0))

coloque

Código:

DoCmd.SearchForRecord , , acFirst, "[id] = " & cboIrPara
    tipo_pessoa_AfterUpdate

Olá Alexandre!

De fato funciona, mas ainda não explica por que o problema ocorre somente no primeiro registro (pelo menos por aqui). Conseguiu replicar aí?

De qualquer forma, obrigado pela ajuda!

Boa noite
Não me debrucei sobre a razão mas, se estiver resolvido, marque o "Resolvido"

Bom dia Alexandre,


Eu acabei não marcando como resolvido porque a questão é saber o porquê desse problema estar acontecendo e somente no primeiro registro.

É algum bug? Alguma outra ideia? É curiosidade mesmo, afinal eu também já havia encontrado uma solução alternativa que funciona.


Outra coisa que percebi recentemente é que o evento "On Current" não dispara ao sair de um registro X para o registro 1.


Obrigado.

Parece ser um bug mesmo: https://answers.microsoft.com/en-us/msoffice/forum/all/searchforrecord-does-not-trigger-oncurrent-form/50fe2556-6f88-4eb4-a10f-4fbb739b1dc0