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

    VBA - Transpor dados de acordo com uma condição/filtro

    avatar
    renan_meyer
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/03/2020

    VBA - Transpor dados de acordo com uma condição/filtro Empty VBA - Transpor dados de acordo com uma condição/filtro

    Mensagem  renan_meyer 5/4/2020, 02:37

    Olá a todos!

    Estou com uma dúvida, que acredito que somente resolverá via VBA, porém não consegui construir um código pra ela (usei vários if's e sem sucesso) e não encontrei solução parecida no fórum.

    Os dados são inseridos em um subform (que está dentro em um form).
    O código deveria "ler" o setor que os dados foram inseridos e "transpor" estes dados pra tabela do setor referente.

    VBA - Transpor dados de acordo com uma condição/filtro Anotaz10

    Será feito em tabelas separadas, pois preciso dos dados para passar pro sistema por outra macro que criarei.
    Alguém tem ideia de como o VBA faz isso? Minhas tentativas de if e for já esgotaram rs
    Agradeço desde já
    (arquivo está em anexo)
    Anexos
    VBA - Transpor dados de acordo com uma condição/filtro AttachmenttabelaRequisicao.zip
    Arquivo
    Você não tem permissão para fazer download dos arquivos anexados.
    (229 Kb) Baixado 13 vez(es)
    avatar
    renpv
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    VBA - Transpor dados de acordo com uma condição/filtro Empty Re: VBA - Transpor dados de acordo com uma condição/filtro

    Mensagem  renpv 15/9/2020, 02:19

    Amigo, a decisão de separar os dados em tabelas distintas deve ser feita com base única e exclusivamente pela normalização dos dados.
    Separar os dados em tabelas diferentes com a justificativa de que precisa exportar determinados dados é o prenúncio de uma tragédia.
    Sugiro fazer um estudo melhor de como ficarão organizados os dados no seu banco antes de partir para a programação.
    A solução para seus problemas podem ser bem mais simples do que você imagina, porém, se seu banco de dados estiver normalizado.
    avatar
    geanesq
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 03/01/2011

    VBA - Transpor dados de acordo com uma condição/filtro Empty Re: VBA - Transpor dados de acordo com uma condição/filtro

    Mensagem  geanesq 25/9/2020, 14:41

    Se eu entendi você quer fazer acréscimo em duas tabelas com base no setor

    eu colocaria no salvar ou sair e faria da seguinte forma

    Dim rs as recordset
    set rs = currentdb.openrecordset("Coloca sua consulta com o codigo e o setor")

    faz uma consulta pra validar se ja existe estes registros nas tabelas caso exista exclua para gerar as atializações

    rs.movefirst
    for i = 1 to rs.recordcount
    if rs("setor") = "Setor1" then
    'coloca consulta acrecimo com base no codigo e setor1
    elseif rs("setor") = "Setor2" then
    'coloca consulta acrecimo com base no codigo e setor2
    end if

    rs.movenext
    next

      Data/hora atual: 17/6/2021, 18:33