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]Preencher Campo com conteúdo do campo anterior

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 28/04/2011

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

    Mensagem  vinicius.anna 11/11/2013, 16: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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 11/11/2013, 16: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
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 28/04/2011

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

    Mensagem  vinicius.anna 11/11/2013, 16: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
    [Resolvido]Preencher Campo com conteúdo do campo anterior AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 5 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 11/11/2013, 17: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
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 28/04/2011

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

    Mensagem  vinicius.anna 12/11/2013, 08: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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:35