[Resolvido]Codigo do Excel para o Access

Galera,

Eu tenho uma planilha no excel com seguinte modulo em macro:

Sub meses()

lin = 5

Do Until Cells(lin, 12) = ""
If Cells(lin, 12) = "X" Then
Cells(lin, 13) = "S/ PRAZO"
End If


If Cells(lin, 11) <= Cells(5, 25) - 15 Then
Cells(lin, 12) = "15 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 30 Then
Cells(lin, 12) = "30 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 45 Then
Cells(lin, 12) = "45 dias"
End If


If Cells(lin, 11) <= Cells(5, 25) - 60 Then
Cells(lin, 12) = "60 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 90 Then
Cells(lin, 12) = "90 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 120 Then
Cells(lin, 12) = "120 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 150 Then
Cells(lin, 12) = "150 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 180 Then
Cells(lin, 13) = "180 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 210 Then
Cells(lin, 13) = "210 dias"
End If

If Cells(lin, 11) <= Cells(2, 25) - 240 Then
Cells(lin, 13) = "240 dias"
End If

If Cells(lin, 11) <= Cells(2, 25) - 270 Then
Cells(lin, 13) = "270 dias"
End If

If Cells(lin, 11) <= Cells(2, 25) - 300 Then
Cells(lin, 13) = "300 dias"
End If

If Cells(lin, 11) <= Cells(2, 25) - 330 Then
Cells(lin, 13) = "330 dias"
End If

If Cells(lin, 11) <= Cells(2, 25) - 360 Then
Cells(lin, 13) = "360 dias"
End If

If Cells(lin, 11) <= Cells(5, 25) - 30 And Cells(lin, 9) = "AGUARD. PRAZO RECURSAL" Then
Cells(lin, 12) = "Vencido"
End If

If Cells(lin, 11) <= Cells(5, 25) - 15 And Cells(lin, 9) = "AGUARD. PRAZO RECURSAL 02" Then
Cells(lin, 12) = "Vencido"
End If

If Cells(lin, 11) <= Cells(5, 25) - 45 And Cells(lin, 9) = "EM PROC. DE INSCRIÇÃO EM D.A." Then
Cells(lin, 12) = "Vencido"
End If

If Cells(lin, 11) <= Cells(5, 25) - 120 And Cells(lin, 9) = "AGUARD. PRAZO AJUR" Then
Cells(lin, 12) = "Vencido"
End If

lin = lin + 1
Loop

End Sub

O codigo é bem simples, pega um valor de uma celula, compara e da o valor determinado por mim. Agora gostaria de botar esse codigo no access, mas nao estou conseguindo. Queria tb q ele sobscrevesse os valores antigos quando fosse atualizada e precisasse mais clicar em um botao, como era antigamente, fosse feito 1 vez ao dia, por exemplo. Alguem poderia me dar uma ajuda ?

Boa tarde Gustavo,

Olha, acho que será mais produtivo se você explicar direto o que quer no access, entende?

1 - Se puder poste o seu banco;
2 - Informe os nomes dos objetos que fazem parte da dúvida;
3 - Explique com detalhes o que quer.

Até mais

Fala Leandro,

Vamos la, a dúvida está relacionada com os campos "ultima alteração", "prazo" e "status" da Table1. O que eu preciso é q a macro faça uma varredura no campo ultima alteração, comparando com campo status e dando o resultado no campo prazo. Os status "Aguard. prazo recursal", "Aguard. prazo Recursal 02","EM PROC. DE INSCRIÇÃO EM D.A." e "AGUARD. PRAZO AJUR" são situaçoes especiais. Se essas situações estiverem no campo do status, após 30 dias para o Aguard prazo recursal aparecera como vencido, 15 dias para o prazo recursal 02, 120 dias para o prazo ajur e 45 para o proc. de inscriçao em divida. QUando nao tiver qualquer um desses valores, ele simplesmente vai contando de 15 em 15 dias. 15 dias, 30 dias, 45 dias, 60 dias. No excel funcionava perfeitamente, mas as vezes ele nao conseguia sobscrever o ultimo valor e tambem era necessário apertar em botao para macro rodar. Se isso fosse feito automaticamente um vez ao dia, seria melhor. Acho q é isso, valeu por tentar ajudar.

Ps: Cara, nao estou com o arquivo mais atualizado aqui, mandei um mais antigo como referencia.

Fala Galera, ninguem ? To precisando MUITO disso. Ja tentei, pesquisei, mas nao consigo de jeito nenhum ...

Boa tarde, gustavo
Não entendi a descrição da dúvida
Disponibilize em formato 2003 ou 2007

Fala Alexandre veja por favor se consegue abrir esse. Se precisar, a senha é 123.
Entao, eu preciso fazer com que o access pegue os valores do campo "ultima alteração" e compare com a data atual. Após passado 15 dias, aparecerei "15 dias", 30 dias apareceria "30 dias" e assim por diante. Nao tem problema aparecer de 15 em 15 e ter esse "hiato". O outro detalhe é que quando tiver certos prazos no campo "status", após passado certo tempo, ele vai aparecer como "vencido".

Entao:
- Quando tiver "Aguard. Prazo Recursal" no campo "status", após 30 dias aparece "vencido".
- Quando tiver "Em proc. de Inscrição em D.A." no campo "status", após 45 dias ele apareceria "vencido".

Abs e valeu por tentar ajudar Alexandre.

gustavo,
Campos para armazenar datas devem ser do tipo Data/Hora
Os nomes dos campos e controlos devem obedecer a regras de boa nomenclatura, já falada inúmeras vezes.
Onde deve aparecer "15 dias", "30 dias",...?

fala alexandre, cara to aprendendo access na marra, disseram q eu tinha q fazer esse bd e estou indo aos poucos, valeu pelo toque. os dias vao no campo "prazo". tb tem a condiccao q citei, caso tenha "aguard. prazo recursal" no campo status, ao inves de aparecer 30 dias vai aparecer vencido.

Gustavo,
Nenhum campo deve armazenar cálculos: se o campo "Prazo" é calculado entre o campo "Ultima Alteração" e data actual, não deve armazenar na tabela. Basta que, ao abrir a tabela (para formulário, consulta ou relatório) o cálculo seja efectuado.
Ainda não entendi a mecânica do que pretende. Explique com detalhe todas as situações possíveis

fala alexandre, vou tentar explicar o dia a dia pra ficar mais facil. eu trabalho em uma are de controle de processos. ha diversos tipos, autos de infracao, comunicado e informe, apostilamento etc. entre esses processos, ee necessario ter um controle de prazo. exemplo: um auto de infracao, apos ser dada a ciencia, tem 30 dias para vencer. Para facilitar o traba!hp, e interessante ter esse controle para saber quais processos ja venceram. Porem, em outros tipos de processo, eu so preciso saber o tempo q aquele processo esta ali. entao resumindo: quando eu cadastro um novo processo, dependendo do "status" dele, ele vai simplesmente contar o prazo data q lancei em "ultima alteracao" comparar com a data do dia e ir contando prazos; 15 dias, 30 dias e assim por diante. so para eu saber a quanto tempo ele esta ali. e nos outros casos, como eles tem um periodo de vida determinado, facilita muito a minha aparecer q eles venceram. com isso posso ir direto nesses processos vencidos e arquiva-los.

de forma tecnica: quando eu cadastrar um processo, so vou mudar os campos de " ultima alteracao" e "status", o campo "prazo" vai sempre ser preenchido pela macro. ele vai pegar a data q lancei, comparar com a data do dia e ver se e um caso especial. se nao for vai simplesmente ir contando de 15 em 15 dias. se for, quando ele chegar o prazo limite vai aparecer como vencido. explicando assim parece meio enrolado, mas a logica e bem simples.

Boa tarde, gustavo
Diz que ver se e um caso especial. se nao for vai simplesmente ir contando de 15 em 15 dias. se for, quando ele chegar o prazo limite vai aparecer como vencido.
Como se vê se é caso especial? diga todos os elementos de casos especiais
Deve descrever o fluxograma do processo para se criar o código.
No Access, o que corresponde à célula Y5 do Excel?
No Access, o que corresponde à coluna I do Excel?
No Access, o que corresponde à coluna K do Excel?
No Access, o que corresponde à coluna L do Excel?
No Access, o que corresponde à coluna M do Excel?

Fala Alexandre, vamos la, respondendo:

Boa tarde, gustavo
Diz que ver se e um caso especial. se nao for vai simplesmente ir contando de 15 em 15 dias. se for, quando ele chegar o prazo limite vai aparecer como vencido.
Exatamente !!


Como se vê se é caso especial? diga todos os elementos de casos especiais

Os casos especiais, sao algumas situaçoes do campo "status" (no excel referente ao campo "I", são elas:

Aguard. PRAZO RECURSAL = após 30 dias estará vencido.
AGUARD. PRAZO ESPECIAL = após 15 dias estará vencido.
EM PROC. DE INSCRIÇÃO EM D.A = após 45 dias estará vencido.
AGUARD. PRAZO AJUR = após 120 dias estará vencido.



Deve descrever o fluxograma do processo para se criar o código.
No Access, o que corresponde à célula Y5 do Excel?
Foi simplesmente uma celula que botei "hoje()" pra ele pegar a data do dia atual e fazer a conta.

No Access, o que corresponde à coluna I do Excel?
Referente a "Status"


No Access, o que corresponde à coluna K do Excel?
Referente a "Ultima Alteração"

No Access, o que corresponde à coluna L do Excel?
Referente ao "Prazo"

No Access, o que corresponde à coluna M do Excel?
Refente a "Observações", mas nesse caso, nao vai servir para nada.


ps: anexei o meu arquivo de excel com essa formula funcionando. É so clicar no botao "atualizar" no canto superior direito.

Abraçao Alexandre.

Coloque o campo Ultima Alteração como data
Se bem percebi, o código abaixo executa o que pretende.
Crie um módulo e cole. Execute este procedimento AoAbrir a bd ou onde pretender executar
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 Rst("Ultima Alteração") = "X" 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

Poxa Alexandre, MUITO obrigado ! Funcionou perfeitamente !!!! Só queria mudar um detalhe. Antes, quando e colocava "x" ele jogava "S/ Prazo", agora, como o campo é de data, ele nao aceita outro valor q nao seja data. Como faço para quando o campo "Ultima Alteração" estiver vazio ele colocar no "Prazo" S/ Prazo ? Entrei no codigo e tentei simplesmente tirar o x de dentro das aspas mas nao funcionou.

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
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, valeu mesmo cara !! Perfeito !!!