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]Adicionar uma variavel a um codigo

    avatar
    gustavovon
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 07/10/2012

    [Resolvido]Adicionar uma variavel a um codigo Empty [Resolvido]Adicionar uma variavel a um codigo

    Mensagem  gustavovon 6/11/2012, 14:43

    galera, estava precisando de uma ajuda rapida. O alexandre_neves aqui do forum escreveu esse codigo pra mim. O codigo esta perfeito, mas precisava adicionar uma variavel. eu queria q sempre q o codigo fosse iniciado, ele apagasse todos os dados do campo "prazos". O problema e o seguinte; quando uma contagem e reiniciada, por exemplo, o campo prazos continua com o valor antigo ate q um novo valor possa ser sobscrito. dessa forma ele mantem o valor antigo ate q isso aconteca, oq nao e legal. Entao queria q o codigo sempre q fosse iniciado apagasse todos os valores da coluna prazos, e ai sim atualizasse com os novos valores. Alexandre, piloto ou alguem poderia dar uma ajuda?


    Sub ActualizaPrazos()
    'criada por Alexandre Neves www.esnips.com\web\alexandreneves
    'em 2012-10-27
    'para gustavovon
    'do fórum MaximoAccess
    Dim Rst As DAO.Recordset
    Set Rst = CurrentDb.OpenRecordset("Table1")
    Do While Not Rst.EOF
    Rst.Edit
    Select Case Rst("Status")
    Case "Aguard. PRAZO RECURSAL"
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 30 Then Rst("Prazo") = "Vencido"
    Case "AGUARD. PRAZO ESPECIAL"
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 15 Then Rst("Prazo") = "Vencido"
    Case "EM PROC. DE INSCRIÇÃO EM D.A."
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 45 Then Rst("Prazo") = "Vencido"
    Case "AGUARD. PRAZO AJUR"
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 120 Then Rst("Prazo") = "Vencido"
    Case Else
    If IsNull(Rst("Ultima Alteração")) Then
    Rst("Prazo") = "S/ PRAZO"
    ElseIf IsDate(Rst("Ultima Alteração")) Then
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 360 Then
    Rst("Prazo") = "360 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 330 Then
    Rst("Prazo") = "330 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 300 Then
    Rst("Prazo") = "300 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 270 Then
    Rst("Prazo") = "270 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 240 Then
    Rst("Prazo") = "240 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 210 Then
    Rst("Prazo") = "210 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 180 Then
    Rst("Prazo") = "180 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 150 Then
    Rst("Prazo") = "150 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 120 Then
    Rst("Prazo") = "120 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 90 Then
    Rst("Prazo") = "90 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 60 Then
    Rst("Prazo") = "60 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 45 Then
    Rst("Prazo") = "45 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 30 Then
    Rst("Prazo") = "30 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 15 Then
    Rst("Prazo") = "15 dias"
    End If
    End If
    End Select
    Rst.Update
    Rst.MoveNext
    Loop
    Set Rst = Nothing
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Adicionar uma variavel a um codigo Empty Re: [Resolvido]Adicionar uma variavel a um codigo

    Mensagem  Alexandre Neves 6/11/2012, 16:30

    Tentou adaptar?
    Será
    Sub ActualizaPrazos()
    'criada por Alexandre Neves www.esnips.com\web\alexandreneves
    'em 2012-10-27
    'para gustavovon
    'do fórum MaximoAccess
    Dim Rst As DAO.Recordset
    currentdb.execute "UPDATE Table1 SET Prazo=Null;"
    Set Rst = CurrentDb.OpenRecordset("Table1")
    Do While Not Rst.EOF
    Rst.Edit
    Select Case Rst("Status")
    Case "Aguard. PRAZO RECURSAL"
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 30 Then Rst("Prazo") = "Vencido"
    Case "AGUARD. PRAZO ESPECIAL"
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 15 Then Rst("Prazo") = "Vencido"
    Case "EM PROC. DE INSCRIÇÃO EM D.A."
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 45 Then Rst("Prazo") = "Vencido"
    Case "AGUARD. PRAZO AJUR"
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 120 Then Rst("Prazo") = "Vencido"
    Case Else
    If IsNull(Rst("Ultima Alteração")) Then
    Rst("Prazo") = "S/ PRAZO"
    ElseIf IsDate(Rst("Ultima Alteração")) Then
    If DateDiff("d", Rst("Ultima Alteração"), Date) > 360 Then
    Rst("Prazo") = "360 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 330 Then
    Rst("Prazo") = "330 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 300 Then
    Rst("Prazo") = "300 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 270 Then
    Rst("Prazo") = "270 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 240 Then
    Rst("Prazo") = "240 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 210 Then
    Rst("Prazo") = "210 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 180 Then
    Rst("Prazo") = "180 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 150 Then
    Rst("Prazo") = "150 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 120 Then
    Rst("Prazo") = "120 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 90 Then
    Rst("Prazo") = "90 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 60 Then
    Rst("Prazo") = "60 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 45 Then
    Rst("Prazo") = "45 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 30 Then
    Rst("Prazo") = "30 dias"
    ElseIf DateDiff("d", Rst("Ultima Alteração"), Date) > 15 Then
    Rst("Prazo") = "15 dias"
    End If
    End If
    End Select
    Rst.Update
    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
    gustavovon
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 07/10/2012

    [Resolvido]Adicionar uma variavel a um codigo Empty Re: [Resolvido]Adicionar uma variavel a um codigo

    Mensagem  gustavovon 6/11/2012, 19:45

    Fala Alexandre !! Tinha tentado mas sem sucesso. Vou experimentar aqui e retorno para confirmar.

    Obrigado mais uma vez.

    Conteúdo patrocinado


    [Resolvido]Adicionar uma variavel a um codigo Empty Re: [Resolvido]Adicionar uma variavel a um codigo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 05:57