Pessoal, saudações!
No meu formulário de ANIVERSARIANTES, criei um botão para pesquisar o cliente por alguns critérios e ao clicar em cima deste cliente (na LISTA0), gostaria que a data de aniversário dele fosse definida para dentro da TXTDATACAL do formulário ANIVERSARIANTES.
Após essa ação, pretendo definir um recalc ou requery no formul. ANIVERSARIANTES para que este carregue então os aniversariantes do dia definido na TXTDATACAL, incluindo o cliente pesquisado.
Esse esquema da PESQUISA funciona bem entre a LISTA0 e o meu formulário de CADASTRO DE CLIENTES, onde o código definido na ação ao clicar na LISTA0 é esse:
Private Sub Lista0_DblClick(Cancel As Integer)
DoCmd.OpenForm "CADASTRO DE MILITAR", acNormal, "", "[Nº DO RE-CBM]=[Forms]![PESQUISA DE MILITAR]![Lista0]", , acNormal
DoCmd.Close acForm, "PESQUISA DE MILITAR"
End Sub
Porém com essa txt não acoplada, não estou conseguindo fazer!
Alguém teria uma dica? Segue imagem em anexo!
No meu formulário de ANIVERSARIANTES, criei um botão para pesquisar o cliente por alguns critérios e ao clicar em cima deste cliente (na LISTA0), gostaria que a data de aniversário dele fosse definida para dentro da TXTDATACAL do formulário ANIVERSARIANTES.
Após essa ação, pretendo definir um recalc ou requery no formul. ANIVERSARIANTES para que este carregue então os aniversariantes do dia definido na TXTDATACAL, incluindo o cliente pesquisado.
Esse esquema da PESQUISA funciona bem entre a LISTA0 e o meu formulário de CADASTRO DE CLIENTES, onde o código definido na ação ao clicar na LISTA0 é esse:
Private Sub Lista0_DblClick(Cancel As Integer)
DoCmd.OpenForm "CADASTRO DE MILITAR", acNormal, "", "[Nº DO RE-CBM]=[Forms]![PESQUISA DE MILITAR]![Lista0]", , acNormal
DoCmd.Close acForm, "PESQUISA DE MILITAR"
End Sub
Porém com essa txt não acoplada, não estou conseguindo fazer!
Alguém teria uma dica? Segue imagem em anexo!
Última edição por ORLANDOCBM em 2/10/2019, 18:37, editado 2 vez(es)