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


2 participantes

    [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo

    avatar
    Marcus250772
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/10/2016

    [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo Empty [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo

    Mensagem  Marcus250772 27/10/2016, 17:36

    Tenho uma TABELA Ficha de circulação em que determinados campos são resultados de uma busca em outra tabela.
    Exemplo:
    [CPF] [NOME]
    Ambos os campos são preenchidos em outra tabela e através de uma caixa de seleção são inseridos em uma nova tabela.
    COMO FAÇO para que ao encontrar o CPF (na seleção) o formulário PREENCHA O NOME (correspondente ao CPF) e também faça o registro da informação (do nome) nesta nova tabela?
    Jair Martins
    Jair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 23/03/2016

    [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo Empty Re: [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo

    Mensagem  Jair Martins 27/10/2016, 21:45

    Olá, Marcus.

    Você deve originar o form nesta nova tabela que receberá o novo registro.
    Neste form, crie uma caixa de combinação, cuja origem da linha seja a tabela Ficha de circulação que já contém as informações, que liste os CPFs existentes. Esta combo terá que ter como propriedade Fonte do Controle o campo CPF da nova tabela.
    Da mesma forma, crie um campo para o NOME, cuja fonte seja o campo NOME a ser preenchido.

    No evento Após Atualizar da combo, insira o seguinte código:

    Dim varName as Variant
    Dim strCriteria as String
    Dim strName as String

    strCriteria = "[CPFnaTabelaFichaDeCirculação] = '" & Me.NomeDaCombo & "'"
    varName = DLookup("[NOMEnaTabelaFichaDeCirculacao]", "TabelaFichaDeCirculação", strCriteria)

    If IsNull(varName) Then
    strName = null
    Else
    strName = varName
    End If

    Me.NOMEnaNovaTabela.Value = strName

    Faça os tratamentos de erro e salve o registro.

    Espero ter ajudado. A

    Nos avise, de qualquer maneira.

    Abs.
    avatar
    Marcus250772
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 03/10/2016

    [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo Empty Funcionou

    Mensagem  Marcus250772 3/11/2016, 19:53

    Grato pela ajuda

    Conteúdo patrocinado


    [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo Empty Re: [Resolvido]Inserir em um campo o complemento da informação inserida em outro campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 07:13