Atualização automática de campos em subformulário

Senhores, estou com uma dificuldade, a qual vou explicar abaixo. Estou enviando em anexo, parte do banco de dados, o qual por ser muito grande, para anexar, fiz várias exclusões para caber no anexo, portanto, já adianto que vão aparecer alguns erros ao acessar determinadas áreas, mas para o que preciso exemplificar, vai dar certo, ok.

Então....

Tenho um FORMULÁRIO principal (frmCadastro), e nele, dentre outros campos (os quais removi), tenho um SUBFORMULÁRIO (SubFrmCadEnvolvido).

Neste SUBFORMULÁRIO tenho alguns campos; dentre eles o principal é NOME (txtNome) o qual consiste em uma COMBOX onde seleciono um nome qualquer e automáticamente os demais campos são preenchidos.

Sempre que clico em um nome que já está na lista, automáticamente abre um FORMULÁRIO (FrmEnvolvidoAtualizar) no qual atualizo os campos PRESENÇA (txtPresenca), FOTO (txtFoco) e REINCIDENCIA (txtReincidencia).

Gostaria que ao fechar o FORMULÁRIO (FrmEnvolvidoAtualizar) os campos do SUBFORMULÁRIO, ou seja,  PRESENÇA (txtPresenca), FOTO (txtFoco) e REINCIDENCIA (txtReincidencia) fossem atualizados automaticamente de acordo com as atualizações feitas no FORMULÁRIO (FrmEnvolvidoAtualizar).

Só estou conseguindo esta atualização se clicar na COMBOX (Nome) e selecionar o nome correspondente novamente, só que daí, o FORMULÁRIO (FrmEnvolvidoAtualizar) também abre novamente.

angelomonteiro1981, acredito que isso resolva no evendo ao sair do formulario, ou no evento click do botao sair.

Código:



Dim rst As DAO.Recordset
Dim dbs As DAO.DataBase
Dim strSql As String
    
Set dbs = CurrentDb
strSql = "SELECT * FROM NomedaSuaTabela"
Set rst = dbs.OpenRecordset(strSql)
    
If rst.RecordCount > 0 Then
   txtPresenca = rst("NomedoCamponaTabela")
   txt..... = rst("NomedoCamponaTabela")
   txtNomedoTextBox = rst("NomedoCamponaTabela")

End If
rst.Close
Exit Sub




Obrigado pela ajuda, mas infelizmente não funcionou.

baixei seu BD e no seu subformulario do formulario principal vc esta vinculando campos que nao existe, pra mim q sou limitado de conhecimentos fica dificil ajuda-lo.

Fica no aguardo ae aos mestres se conseguem fazer alguma coisa por você.

Mas pelo que entendi ali no seu BD é so dar uma atualizada no seu subformulario apos fechar o form (FrmEnvolvidoAtualizar).

Tente no click do botao sair deste formulario adicionar este codigo, ou no evento do formulario (ao fechar)

Forms!frmCadastro!subCadastroAutorCrimeFrm.Requery

Como falei na primeira postagem... alguns erros estão sendo apresentados pois de fato há vinculações, neste caso não mais existentes, pois precisei diminuir o tamanho para anexar, e para isso exclui bastante coisa, porém, preservei o subformulário para que o problema relacionado a ele seja exemplificado.

https://www.maximoaccess.com/t30881-botao-para-incluir-produto-da-venda

Neste link consegui resolver um problema bem parecido com o seu, que era inculir informações em um sub. As vezes os codigos do exemplo pode te ajudar

Tentei adaptar mas não está dando certo.