MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Código inserir itens com VBA

    Compartilhe

    Convidado
    Convidado

    Código inserir itens com VBA

    Mensagem  Convidado em Sex 08 Ago 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 Sex 08 Ago 2014, 21:04, editado 2 vez(es)

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Código inserir itens com VBA

    Mensagem  mathusalmeida em Sex 08 Ago 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.

    Convidado
    Convidado

    como inserir itens com VBA

    Mensagem  Convidado em Sex 08 Ago 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 Sex 08 Ago 2014, 21:08, editado 1 vez(es)

    Convidado
    Convidado

    Re: Código inserir itens com VBA

    Mensagem  Convidado em Sex 08 Ago 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?

    Convidado
    Convidado

    Re: Código inserir itens com VBA

    Mensagem  Convidado em Sex 08 Ago 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)

    Convidado
    Convidado

    Re: Código inserir itens com VBA

    Mensagem  Convidado em Sex 15 Ago 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?

      Data/hora atual: Seg 05 Dez 2016, 16:30