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

    Gerando registro em lote

    avatar
    adelio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 12/06/2013

    Gerando registro em lote Empty Gerando registro em lote

    Mensagem  adelio 12/6/2013, 15:35

    Olá, desenvolvi um registro de inventário de bens, minha pergunta é: quanto vou cadastrar um lote de equipamentos, vamos supor: 1 lote de cadeiras (cada lote tem 40 cadeiras), o Access já duplique automaticamente.

    Pra exemplificar preencho:

    Nº PatrimônioDescrição
    000001Cadeira estudante
    Automaticamente o Access faria:

    Nº PatrimônioDescrição
    000001Cadeira estudante
    000002Cadeira estudante
    000003Cadeira estudante
    E assim por diante até o 40º registro...

    Peço desculpas e minha pergunta não se encaixar nessa seção...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Gerando registro em lote Empty Re: Gerando registro em lote

    Mensagem  criquio 24/6/2013, 19:41

    Olá, seja bem vindo ao fórum! Se bem entendi, coloque um campo desvinculado no formulário de nome txtQuantidade por exemplo. Outro campo de nome txtMaterial e um botão de nome btnCadastrar.

    No evento "Ao clicar" do botão:
    Código:
    Dim N As Integer

    For N = 1 To Me.txtQuantidade
            CurrentDb.Execute "INSERT INTO NomeDaTabela(NumeroPatrimonio, Descricao) VALUES(" & Format(N, "0000") & ", '" & Me.txtMaterial & "')"
    Next
    Uma pergunta: precisa mesmo cadastrar esse tanto de registros sobre um mesmo material? Não seria suficiente colocar apenas a descrição e a quantidade.

    Uma dica: observe os nomes que dei aos campos tanto da tabela quanto do formulário. Quanto mais simples for o nome, melhor. Procure evitar nomes com espaços e com caracteres especiais como Nº por exemplo. Isso pode lhe trazer grandes dores de cabeça.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 7/11/2024, 19:40