MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Preencher Campo com conteúdo do campo anterior

    Compartilhe

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 29/04/2011

    Preencher Campo com conteúdo do campo anterior

    Mensagem  vinicius.anna em Seg 11 Nov 2013, 19:16

    Boa tarde

    Alguem tem alguma dica de como posso fazer o seguinte:
    Na tabela original, tenho o campo dtData e abaixo deste campo, demais lançamentos....... até que se encontre a próxima data preenchida.

    O que estou tendo dificuldade em fazer é com que, conforme exemplos abaixo, os próximos registros obtenham o mesmo valor do registro anterior (campo dtData) até que se encontre a próxima data preenchida...


    -Tabela Original


    Id_Reg Registro CentroCustos Conta Natureza SaldoInicial Devedora Credora Abertura dtData
    6765 I150 31012013 01012013 S 01012013
    6766 I155 11010102001 D 568,90 12 S
    6767 I155 11010208001 D 1,79 26 S
    6768 I155 11010201001 D 52,66 18 S
    6769 I155 11010204001 D 55,33 20 S
    6771 I155 11010209001 D 50,30 28 S
    6772 I155 11010201001 D 120,86 18 S
    6773 I155 11010209001 D 219,07 28 S
    6774 I155 22020101006 C 1162371,25 541 S
    6775 I155 22020101012 C 81756,48 546 S
    6776 I155 21040301002 C 41407,36 483 S
    7124 I150 28022013 01022013 S 01022013
    7125 I155 11010102001 D 455,86 12 S
    7126 I155 11010208001 D 1,79 26 S
    7127 I155 11010201001 D 0,92 18 S
    7129 I155 11010207001 D 1639,46 23 S
    7130 I155 11010209001 D 9,70 28 S
    7131 I155 11010201001 D 87,80 18 S
    7132 I155 11010209001 D 219,07 28 S
    7133 I155 22020101006 C 1119087,97 541 S
    7134 I155 22020101012 C 81756,48 546 S
    7135 I155 21040301002 C 22325,38 483 S


    - Tabela Ajustada

    Id_Reg Registro CentroCustos Conta Natureza SaldoInicial Devedora Credora Abertura dtData
    6765 I150 31012013 01012013 S 01012013
    6766 I155 11010102001 D 568,90 12 S 01012013
    6767 I155 11010208001 D 1,79 26 S 01012013
    6768 I155 11010201001 D 52,66 18 S 01012013
    6769 I155 11010204001 D 55,33 20 S 01012013
    6771 I155 11010209001 D 50,30 28 S 01012013
    6772 I155 11010201001 D 120,86 18 S 01012013
    6773 I155 11010209001 D 219,07 28 S 01012013
    6774 I155 22020101006 C 1162371,25 541 S 01012013
    6775 I155 22020101012 C 81756,48 546 S 01012013
    6776 I155 21040301002 C 41407,36 483 S 01012013
    7124 I150 28022013 01022013 S 01022013
    7125 I155 11010102001 D 455,86 12 S 01022013
    7126 I155 11010208001 D 1,79 26 S 01022013
    7127 I155 11010201001 D 0,92 18 S 01022013
    7129 I155 11010207001 D 1639,46 23 S 01022013
    7130 I155 11010209001 D 9,70 28 S 01022013
    7131 I155 11010201001 D 87,80 18 S 01022013
    7132 I155 11010209001 D 219,07 28 S 01022013
    7133 I155 22020101006 C 1119087,97 541 S 01022013
    7134 I155 22020101012 C 81756,48 546 S 01022013
    7135 I155 21040301002 C 22325,38 483 S 01022013


    Saudações
    Vinicius

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Preencher Campo com conteúdo do campo anterior

    Mensagem  Alexandre Neves em Seg 11 Nov 2013, 19:27

    Boa noite,
    Pela disposição dos dados, não consigo entender.
    Disponibilize em tabela access


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 29/04/2011

    Re: [Resolvido]Preencher Campo com conteúdo do campo anterior

    Mensagem  vinicius.anna em Seg 11 Nov 2013, 19:36

    Boa tarde Alexandre

    O que estou tentando fazer é com que o campo dtData receba o valor do registro anterior até que encontre a próxima data informada.

    Exemplo:
    Tabela Original
    Registro dtData
    1 01012013
    2
    3
    4
    5
    6 01022013
    7
    8
    9

    Registro dtData
    Tabela Ajustada
    1 01012013
    2 01012013
    3 01012013
    4 01012013
    5 01012013
    6 01022013
    7 01022013
    8 01022013
    9 01022013

    Att. Vinicius
    Anexos
    Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 5 vez(es)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Preencher Campo com conteúdo do campo anterior

    Mensagem  Alexandre Neves em Seg 11 Nov 2013, 20:20

    Sub PreencheVazios()
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' '
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' o código pode ser utilizado livremente, desde que mencionado este cabeçalho e acrescentado o utilizador '
    ' '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'em 2013-11-11 para vinicius.anna
    Dim Rst As DAO.Recordset, UltimoValor As String
    Set Rst = CurrentDb.OpenRecordset("reg_I155")
    Do While Not Rst.EOF
    If Rst("dtData") = "" Then
    Rst.Edit
    Rst("dtData") = UltimoValor
    Rst.Update
    Else
    UltimoValor = Rst("dtData")
    End If
    Rst.MoveNext
    Loop
    Set Rst = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 168
    Registrado : 29/04/2011

    Re: [Resolvido]Preencher Campo com conteúdo do campo anterior

    Mensagem  vinicius.anna em Ter 12 Nov 2013, 11:14

    Alexandre,

    Bom dia,

    Muito obrigado, problema resolvido, apenas fiz um ajuste na linha


    If IsNull(Rst("dtData")) Then

    Para que não retorne o erro 94.

    Saudações,
    Vinicius

      Data/hora atual: Qua 07 Dez 2016, 08:33