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


    Código inserir itens com VBA

    avatar
    Convidado
    Convidado


    Código inserir itens com VBA Empty Código inserir itens com VBA

    Mensagem  Convidado 8/8/2014, 14:40

    Pessoal, estou com muita dificuldade já há algumas semanas neste problema.
    O que ocorre é que preciso criar um novo registro que insere automaticamente todos os itens da tabela de itens.
    Não sei como resolver.
    O colega Alexandre Neves já tentou me ajudar mas não dá certo.
    Alguem tem alguma idéia de como fazer? Esta bd ItensFixos foi feita pelo Alexandre. O que eu preciso esta no outro post mais abaixo.


    Última edição por jrozsas em 8/8/2014, 21:04, editado 2 vez(es)
    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 30/08/2011

    Código inserir itens com VBA Empty Re: Código inserir itens com VBA

    Mensagem  mathusalmeida 8/8/2014, 14:53

    Olá amigo.

    Detalhe melhor sua necessidade. Diga quais formulários e tabelas envolvidos, especifique em que botão o evento não está dando certo.

    Aguardo.
    avatar
    Convidado
    Convidado


    Código inserir itens com VBA Empty como inserir itens com VBA

    Mensagem  Convidado 8/8/2014, 15:07

    Segue em anexo a bd de como preciso que funcione. Vejam que ao criar um novo registro no formulario, o subformulario deve carregar automaticamente todos os itens que estão na tabela tbl_itens com a caixa "Utilizar" marcada.

    Comparei com a bd que postei anteriormente e que foi feita pelo Alexandre Neves, mas não funciona. Tentei adptar o código do botão GRAVAR, mas não deu  Neutral 


    Última edição por jrozsas em 8/8/2014, 21:08, editado 1 vez(es)
    avatar
    Convidado
    Convidado


    Código inserir itens com VBA Empty Re: Código inserir itens com VBA

    Mensagem  Convidado 8/8/2014, 15:11

    Mathusalmeida,

    Veja a bd Checklistprecisoassim.accdb que postei agora há pouco. É desse jeito que preciso.
    Quando criar um novo registro no formulario1, o subformulario deve carregar todos os itens que estão na tbl_itens e que estão marcados com "utilizar" na caixa Sim/não.
    Claro, ao fechar/salvar, a tabela tbl_detalheinspeção deve ser atualizada.

    É como se fosse um cheklist para fazer todos os dias,  e que sempre serão realizados em todos os itens da tbl_itens onde "utilizar" = sim

    Observe que na BD feita pelo Alexandre Neves (ItensFixos.accdb), "quase" acontece isso. Mas nunca é criado um novo código de inspeção, pois o Formulario1 nunca cria um novo registro para associar na tbl_detalheinspecao.

    ATENÇÃO: Existe um erro no VBA: para testar faça a seguinte alteração no código do botão GRAVAR:
    If DCount("*", "Tbl_Detalheinspecao", "DataInspecao=#" & dtDataPreenchida & "#") Then

    Isso porque o nome da tabela e do campo data estavam errados.

    Bom,  mesmo assim corrigido, na tbl_detalheinspeção, vai inserindo o código do vistoriador e não o  código da inspeção. Vaja a tbl_inspecao - Não insere nada! Então, não há como relacionar o Código da inspeção na tbl_inspecao com a tbl_detalhe inspecao.
    Será que consegui explicar?
    avatar
    Convidado
    Convidado


    Código inserir itens com VBA Empty Re: Código inserir itens com VBA

    Mensagem  Convidado 8/8/2014, 17:54

    o que consegui até o momento?
    Bom, corrigindo um probleminha no VBA e acertando alguns nomes de campo,  tenho isso da bd que estou postando agora: ItensFixos_corrigido1
    O que acertei? aquela linha do vba que tinha o nome da tabela e campo errado.
    Funciona? ainda não
    Veja que a tbl_inspecao continua em branco. Não é inserido um novo registro quando clico em GRAVAR, portanto,  ainda não posso relacionar as tabelas.

    Assim também não é possível criar um FORM que eu tenha os campos datainspecao, Vistoriador, Codinspecao (que viriam da tbl_inspecao) e um subformulário relacionado.

    Depois , preciso que isto funcione na bd que postei anteriormente (Chekclist_precisoassim)
    avatar
    Convidado
    Convidado


    Código inserir itens com VBA Empty Re: Código inserir itens com VBA

    Mensagem  Convidado 15/8/2014, 12:33

    Pessoal,
    Parece que é muito difícil solucionar este problema, visto que poucas pessoas postaram algum comentário.
    Alguém tem alguma ideia de onde eu poderia conseguir informação para resolver isso?

    Conteúdo patrocinado


    Código inserir itens com VBA Empty Re: Código inserir itens com VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:32