MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda com Código!

    Compartilhe
    avatar
    jparpinfo
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Ajuda com Código!

    Mensagem  jparpinfo em Sex 13 Nov 2015, 12: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?.
    avatar
    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 2015, 16: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.
    avatar
    jparpinfo
    Novato
    Novato

    Respeito às Regras 100%

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

    Ajuda!

    Mensagem  jparpinfo em Sab 14 Nov 2015, 20:48

    Perfeito, muito obrigado pela ajuda.

      Data/hora atual: Seg 26 Jun 2017, 18:11