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

    [Resolvido]Ajuda com Código!

    jparpinfo
    jparpinfo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Código! Empty [Resolvido]Ajuda com Código!

    Mensagem  jparpinfo 13/11/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?.
    asimoes
    asimoes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Código! Empty Re: [Resolvido]Ajuda com Código!

    Mensagem  asimoes 13/11/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.
    jparpinfo
    jparpinfo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com Código! Empty Ajuda!

    Mensagem  jparpinfo 14/11/2015, 20:48

    Perfeito, muito obrigado pela ajuda.

    Conteúdo patrocinado


    [Resolvido]Ajuda com Código! Empty Re: [Resolvido]Ajuda com Código!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:37