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

    [Resolvido]Acrescentar registro em subformulário.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Acrescentar registro em subformulário. Empty [Resolvido]Acrescentar registro em subformulário.

    Mensagem  XPTOS 26/4/2021, 01:10

    Pessoal, boa noite,
    Estou incluindo alguns registros em formulário com o código abaixo, acontece que o loop não percorre todos os registros para incluir em tabela. Ou seja, o código executa sempre o mesmo registro em cada linha da tabela.
    Podem me dar uma sugestão?

    Código:
          StrSQLRec = "SELECT * FROM ComparativoDetalhe WHERE Nota ='" & [Forms]![AAAfrmCriaRecursoSelect]![Texto31] & "'"
    '--------------------------------------
    'Seto o recordset com a sql da consulta
    '--------------------------------------
    Set rsRecebidos = CurrentDb.OpenRecordset(StrSQLRec)
    '------------------------------------------------------------------
    'Movo o ponteiro do recordset para o final em seguida para o início
    '------------------------------------------------------------------
    rsRecebidos.MoveLast: rsRecebidos.MoveFirst

    '-------------------------------------------------------------------------------------
    'Caso retorne 1 ou mais registros seta o recordset baseado na tabela
    'executo loop pelo recordset baseado na tabela Recebidos, adicionando um novo registro
    'na tabela comparativo.
    '-------------------------------------------------------------------------------------
    If rsRecebidos.RecordCount > 0 Then
    '
    Set rsRecebidos = CurrentDb.OpenRecordset("tblRecursoRegistros")
    '
    Do While Not rsRecebidos.EOF
    '
    With rsRecebidos
        .AddNew
        rsRecebidos!IDOS = Forms!AAAfrmCriaRecurso!IDOS
        rsRecebidos!NomeUsuário = Forms!AAAfrmCriaRecursoSelect!NomeUsuário
        rsRecebidos!CódUsuário = Forms!AAAfrmCriaRecursoSelect!CódUsuário
        rsRecebidos!CódGuia = Forms!AAAfrmCriaRecursoSelect!CódGuia
        rsRecebidos!DtAtendimento = Forms!AAAfrmCriaRecursoSelect!DtAtendimento
        rsRecebidos!CódServiço = Forms!AAAfrmCriaRecursoSelect!CódServiço
        rsRecebidos!NomeServiço = Forms!AAAfrmCriaRecursoSelect!NomeServiço
        rsRecebidos!SomaDeQuantidadeServiço = Forms!AAAfrmCriaRecursoSelect!SomaDeQuantidadeServiço
        rsRecebidos!SomaDeValorPago = Forms!AAAfrmCriaRecursoSelect!SomaDeValorPago
        rsRecebidos!valorTotalRecebido = Forms!AAAfrmCriaRecursoSelect![Vl. Glosado]
        rsRecebidos!CodGlosa = Forms!AAAfrmCriaRecursoSelect!txtMotivoTISS

    .Update
    '
    End With
    'nCount = nCount + 1
    rsRecebidos.MoveNext

    Loop

       Set rsRecebidos = Nothing
       rsRecebidos.Close
          
    End If


    .................................................................................
    Grato,

    crysostomo gosta desta mensagem

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Acrescentar registro em subformulário. Empty Re: [Resolvido]Acrescentar registro em subformulário.

    Mensagem  XPTOS 27/4/2021, 01:35

    Segue solução caso alguém passe pelo mesmo problema que tive.



    .................................................................................
    Grato,

      Data/hora atual: 14/6/2021, 07:24