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]registro sequencial de acordo com caixa de texto

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]registro sequencial de acordo com caixa de texto Empty [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  ifahidalgo 19/2/2015, 16:15

    tenho uma caixa de texto onde coloco um valor numerico "100", e outra caixa de texto que coloco outro valor "5"

    preciso que com essa informação aconteça o seguinte
    seja incluido em uma tabela
    100
    101
    102
    103
    104

    se colocar outro numero "y" na primeira caixa e na segunda colocar "x"
    onde o "y" é o numero inicical e "x" será o numero de vezes a serem somados.

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]registro sequencial de acordo com caixa de texto Empty Re: [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  Alvaro Teixeira 19/2/2015, 17:02

    Olá, veja se atende:
    Código:
    Option Compare Database

    Sub gera_seq()
       
        intInicial = 100
        intNumVezes = 5
       
        intSequencia = intInicial
       
        For intSequencia = intInicial To intInicial + intNumVezes
            MsgBox intSequencia
            ' Aqui coloca o que pretende efetuar
        Next

    End Sub

    Abraço
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]registro sequencial de acordo com caixa de texto Empty Re: [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  ifahidalgo 19/2/2015, 17:47

    teixeira

    fiz conforme abaixo, mas ele fica infinitamente

    Dim strSql As String, rstTemp As dao.Recordset

    intInicial = txtregistro
    intNumVezes = txtnum
    'intsequencia = intInicial

    For intsequencia = intInicial To intInicial + intNumVezes
    MsgBox intsequencia
    strSql = "Select * from tbnumero where numero = '" & txtregistro & "'"
    Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
    rstTemp.AddNew
    rstTemp("numero") = intsequencia
    rstTemp.Update
    rstTemp.Close
    ' Aqui coloca o que pretende efetuar

    Next

    coloquei 100 no txtregistro e 5 no txtnum, mas tive que brecar pq ficou loop infinito.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]registro sequencial de acordo com caixa de texto Empty Re: [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  Alvaro Teixeira 19/2/2015, 18:13

    Bom, estou no telemóvel e não posso ajudar muito.
    Testou a dar só a mensagem? Pendurou?
    Também se a ideia é fazer os registos seguidos, não precisa estar abrir e fechar o recordset, bastava movenext
    Pode também optar por colocar logo a instrução sql, exeplo

    Docmd.execute"insert into ...."

    Abraço
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]registro sequencial de acordo com caixa de texto Empty Re: [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  ifahidalgo 19/2/2015, 18:17

    entendi. está fazendo a função corretamente mas exemplo coloquei no txtregistro = 100 e txtnum = 5
    ele deveria passar pelo for 5 vezes e incluir na tabela até o 105, mas a mensagem passa do 105 e vai embora.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]registro sequencial de acordo com caixa de texto Empty Re: [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  Alvaro Teixeira 19/2/2015, 23:31

    Olá o problema está por ser campo txt (string), então 100 + 5 é igual a 1005 (vezes).
    Coloque antes de iniciar assim:

    Código:
    Dim intInicial As Integer
    Dim intNumVezes As Integer
    Dim intSequencia As Integer

    Veja o meu teste do_ifahidalgo.zip
    Abraço


    Última edição por ahteixeira em 20/11/2015, 15:07, editado 1 vez(es)
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]registro sequencial de acordo com caixa de texto Empty Re: [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  ifahidalgo 26/2/2015, 00:18

    perfeito. obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]registro sequencial de acordo com caixa de texto Empty Re: [Resolvido]registro sequencial de acordo com caixa de texto

    Mensagem  Alvaro Teixeira 26/2/2015, 16:27

    Olá, obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: 5/12/2022, 00:54