MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    angelomonteiro1981
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 16/04/2017

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

    Mensagem  angelomonteiro1981 em Sab 19 Ago 2017, 20:56

    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.
    Anexos
    TESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (4.1 Mb) Baixado 3 vez(es)
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

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

    Mensagem  webruxim em Dom 20 Ago 2017, 03:22

    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



    angelomonteiro1981
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 16/04/2017

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

    Mensagem  angelomonteiro1981 em Dom 20 Ago 2017, 04:06

    Obrigado pela ajuda, mas infelizmente não funcionou.
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

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

    Mensagem  webruxim em Dom 20 Ago 2017, 05:41

    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


    Última edição por webruxim em Dom 20 Ago 2017, 05:46, editado 1 vez(es)

    angelomonteiro1981
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 16/04/2017

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

    Mensagem  angelomonteiro1981 em Dom 20 Ago 2017, 05:43

    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.
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

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

    Mensagem  webruxim em Dom 20 Ago 2017, 05:49

    [Você precisa estar registrado e conectado para ver este link.]

    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

    angelomonteiro1981
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 16/04/2017

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

    Mensagem  angelomonteiro1981 em Dom 20 Ago 2017, 22:21

    Tentei adaptar mas não está dando certo.

      Data/hora atual: Ter 21 Nov 2017, 19:02