MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    tayguara
    tayguara
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  tayguara 24/9/2015, 12:36

    Bom dia a todos!
    Tenho um formulário de cadastro de funcionários e um subformulário onde se insere as funções desenvolvidas por esse funcionário com data de entrada e saída e descrição da função.
    O que preciso é que no formulário principal no campo Função atual tenha sempre o ultimo registro do subformulário.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  Dilson 24/9/2015, 13:00

    A partir de algum evento no formulário principal:


    dim rs as dao.recordset
    dim nsql as string

    nsql = "SELECT * FROM SuaTabelaQueAlimentaOSubFormulario"

    set rs = currentdb.openrecordset(nsql)

      if rs.recordcount > 0 then
         rs.movelast
      endif

    me!SuaTextBoxNoFormPrincipal.value = rs("FuncaoAtual")

    rs.close



    Última edição por Dilson em 24/9/2015, 13:50, editado 1 vez(es)
    tayguara
    tayguara
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  tayguara 24/9/2015, 13:09

    Olá Dilson,

    A linha set currentdb.openrecordset(nsql) está faltando alguma coisa, está vermelha.

    Obrigado!
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  Dilson 24/9/2015, 13:31

    set rs = currentdb.openrecordset(nsql)
    tayguara
    tayguara
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  tayguara 24/9/2015, 13:50

    Funcionou perfeitamente!
    Obrigado Dilson!
    tayguara
    tayguara
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  tayguara 24/9/2015, 15:50

    Ola Dilson,
    Eu já tinha dado como resolvido porém enfrentei um problema.
    Ele coloca a mesma função em todos os funcionários, ou seja, tá pegando a ultima função informada do ultimo funcionário e e não filtrando individualmente.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  Dilson 24/9/2015, 18:19

    Basta filtrar usando WHERE referenciando a chave primária do funcionário que pode tá numa variável ou textbox do formulário principal.

    nsql = "SELECT * FROM SuaTabelaQueAlimentaOSubFormulario WHERE CodigoDoFuncionario=" & me!TextBoxCodigoDoFuncionário
    tayguara
    tayguara
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  tayguara 24/9/2015, 18:27

    Era isso mesmo.
    Muito Obrigado!
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  Dilson 25/9/2015, 12:33

    Agradeço o feedback.

    Podemos colocar uma pequena variação para o código funcionar com mais lógica:


    dim rs as dao.recordset
    dim nsql as string
    nsql = "SELECT * FROM SuaTabelaQueAlimentaOSubFormulario WHERE CodigoDoFuncionario=" & me!TextBoxCodigoDoFuncionário
    set rs = currentdb.openrecordset(nsql)
      if rs.recordcount > 0 then
         rs.movelast
    me!SuaTextBoxNoFormPrincipal.value = rs("FuncaoAtual")
    else
    me!SuaTextBoxNoFormPrincipal.value = "Nenhuma"
      endif
    rs.close



    Até!
    tayguara
    tayguara
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  tayguara 25/9/2015, 14:07

    Mto obrigado Dilson!
    Ficou excelente, melhor do que eu tinha imaginado.
    avatar
    rmdornelas
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 25/09/2015

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Problema ao abrir um registro novo

    Mensagem  rmdornelas 25/9/2015, 17:23

    Olá Dilson tudo bem? Utilizei o seu procedimento e deu certo, mas quando abro um novo registro ele dá erro, pois ainda não há valor para o campo CÓDIGO para comparar se este é maior ou menor que zero! Como resolver?
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  Dilson 25/9/2015, 18:32

    Checar antes se o valor do código não é nulo:


    dim rs as dao.recordset
    dim nsql as string
    if Not isnull(me!textboxCodigo) Then
    nsql = "SELECT * FROM SuaTabelaQueAlimentaOSubFormulario WHERE CodigoDoFuncionario=" & me!TextBoxCodigoDoFuncionário
    set rs = currentdb.openrecordset(nsql)
    if rs.recordcount > 0 then
    rs.movelast
    me!SuaTextBoxNoFormPrincipal.value = rs("FuncaoAtual")
    else
    me!SuaTextBoxNoFormPrincipal.value = "Nenhuma"
    endif
    rs.close
    EndIf
    avatar
    rmdornelas
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 25/09/2015

    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  rmdornelas 30/9/2015, 02:56

    Obrigado Dilson! Deu certo!

    Conteúdo patrocinado


    [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário Empty Re: [Resolvido]Ultimo valor de um campo em um subformulário para um campo no formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 17:52