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]Repetições - inserido dados na tabela com o for mas repetindo alguns dados

    avatar
    Rosivaldo Melo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 30/09/2011

    [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados Empty [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados

    Mensagem  Rosivaldo Melo 15/5/2022, 02:15

    Olá,

    Estou enfrentando um problema pra gerar um código.
    Preciso criar um comando que insira registros na tabela da seguinte forma:

    Livro | Folha | Frent/Verso | Matrícula
    -----------------------------------------------
    A1--------1------------F----------1001
    A1--------1------------F----------1002
    A1--------1------------V----------1003
    A1--------1------------V----------1004
    A1--------2------------F----------1005
    A1--------2------------F----------1006
    A1--------2------------V----------1007
    A1--------2------------V----------1008

    Só que cada lote a ser gerador tem em média 1200 registros, utilizando o
    for i = matricula_inicial to matricula_final
    rs.addnew
    rs("livro") = me.livro
    rs("folha") = me.???
    rs("fv") = "F"
    rs("matricula") = i

    rs.update

    a sequencia da folhas não se repete, apenas gera 1, 2, 3, 4...

    Me ajudem.

    Desde já agradeço.


    Última edição por Rosivaldo Melo em 15/5/2022, 21:03, editado 1 vez(es)
    avatar
    Rosivaldo Melo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 30/09/2011

    [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados Empty Repetições - inserido dados na tabela com o for mas repetindo alguns dados

    Mensagem  Rosivaldo Melo 15/5/2022, 02:27

    Estou utilizando esse código:
    Código:
    Private Sub btnGerar_Click()
    Dim DB As DAO.Database
    Dim rs As DAO.Recordset

    Dim LIVRO As String
    Dim fls As Integer
    Dim ini As Integer
    Dim final As Integer
    Dim contador As Integer

    contador = 0

    LIVRO = Me.txtlivro
    fls = Me.txtFolhas
    ini = Me.txtRI
    final = ini + fls - 1


    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("reg")


    For i = ini To final

        rs.AddNew
        rs("livro") = Me.txtlivro
        rs("folha") = contador + 1
        rs("f-v") = "F"
        rs("matricula") = i
        rs.Update
        
        
    Next


    rs.Close
    DB.Close


    End Sub
    avatar
    Rosivaldo Melo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 30/09/2011

    [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados Empty Repetições - inserido dados na tabela com o for mas repetindo alguns dados

    Mensagem  Rosivaldo Melo 15/5/2022, 02:32

    Eis o banco.
    Anexos
    [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados AttachmentINDICE RC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 7 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados Empty Re: [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados

    Mensagem  DamascenoJr. 15/5/2022, 03:33

    Código:
    Dim DB As DAO.Database
    Dim rs As DAO.Recordset

    Dim LIVRO As String
    Dim fls As Integer
    Dim ini As Integer
    Dim final As Integer
    Dim intContador1 As Integer
    Dim bytContador2 As Byte
    Dim booFV As Boolean

    LIVRO = Me.txtlivro
    fls = Me.txtFolhas
    ini = Me.txtRI
    final = ini + fls - 1

    booFV = True


    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("reg")

    For i = ini To final
       
        If bytContador2 Mod 2 = 0 Then booFV = Not booFV
           
        If bytContador2 Mod 4 = 0 Then
            intContador1 = intContador1 + 1
            bytContador2 = 0
        End If

        rs.AddNew
            rs("livro") = Me.txtlivro
            rs("folha") = intContador1
            rs("f-v") = IIf(booFV, "V", "F")
            rs("matricula") = i
        rs.Update
       
        bytContador2 = bytContador2 + 1
       
    Next

    Call rs.Close: Set rs = Nothing
    Set DB = Nothing

    Não esqueça o resolvido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Rosivaldo Melo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 30/09/2011

    [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados Empty Repetições - inserido dados na tabela com o for mas repetindo alguns dados

    Mensagem  Rosivaldo Melo 15/5/2022, 15:07

    Como é maravilhoso poder contar com profissionais extraordinários.

    Muito Obrigado! lol!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados Empty Re: [Resolvido]Repetições - inserido dados na tabela com o for mas repetindo alguns dados

    Mensagem  DamascenoJr. 15/5/2022, 16:20

    Rosivaldo, faltou o resolvido.

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/10/2022, 16:36