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

    [Resolvido]Ajuda com Código!

    Compartilhe

    jparpinfo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 26/06/2014

    [Resolvido]Ajuda com Código!

    Mensagem  jparpinfo em Sex 13 Nov - 8:12

    Bom dia!

    Amigos do fórum, tenho um formulário com os campos numero, quantidade e nome.
    Preciso que quando coloque o numero (exemplo 50) e a quantidade (Exemplo 10) ele conte 50, 51, 52, 53 até o 60 to quebrando a cabeça mas não consigo fazer, alguém poderia me ajudar?.

    asimoes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 30/04/2013

    Re: [Resolvido]Ajuda com Código!

    Mensagem  asimoes em Sex 13 Nov - 12:05

    Se pretende que os dados sejam inseridos em uma tabela, vc pode utiliza/modificar o código abaixo:

    Crie uma tabela1 com as colunas numero, qtde, nome, Contagem


    Crie um form e coloque 3 textbox e renomei-as como txtNumero, txtQuantidade e txtNome
    coloque tbm 1 botão e no evendo clique do botão coloque o código abaixo:

    Código:


    Private Sub bt_Envia_Click()

    Dim valor As Long

    valor = CLng(Me.txtNumero.Value) + CLng(Me.txtQuantidade.Value)

    For x = Me.txtNumero To valor
        
        CurrentDb.Execute " INSERT INTO tabela1 (numero, qtde, nome, contagem) VALUES ('" & Me.txtNumero & "','" & Me.txtQuantidade & "','" & Me.txtNome & "', '" & x & "')"
        
     Next x

    End Sub



    espero que ajude


    .................................................................................
    Não tenho medo de compartilhar conhecimento.
    Essa é a unica coisa que as pessoas não poderão roubar de mim, pois ninguém nunca sabe igual, mesmo que saiba a mesma coisa.

    jparpinfo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 26/06/2014

    Ajuda!

    Mensagem  jparpinfo em Sab 14 Nov - 16:48

    Perfeito, muito obrigado pela ajuda.

      Data/hora atual: Qua 7 Dez - 14:13