MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 172
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6211
    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 : 172
    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)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6211
    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 : 172
    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: Ter 27 Jun 2017, 21:47