Access Campo Sim ou Não

[higor.so]

Fala pessoal,

 

Estou fazendo um banco de dados para controle de contratos.

Os contratos com prazo (campo "prazo") acima de 60 meses não serão mais renovados.

Existe o campo "passível de renovação". Caso o prazo seja maior que 60 meses, gostaria que esse campo me retornasse Não, do contrario Sim.

 

To mandando um exemplo em anexo.

Se alguém puder me ajudar.

Database1.rar

[Basole]

Veja se é isso: se for <= a 60  ->  SIM; se for > a 60  -> NAO:

 

abx.

Sub Calcular_Meses()
    Dim d As Database
    Dim r As Recordset
    Dim DtI As Field, DtF As Field, Pr As Field, Dpf As Field
    Dim Pdr As Field
    Set d = CurrentDb()
    Set r = d.OpenRecordset("tabela1")
    Set DtI = r.Fields("Data inicial")
    Set DtF = r.Fields("Data Final")
    Set Pr = r.Fields("Prazo")
    Set Dpf = r.Fields("Dias")
    Set Pdr = r.Fields("Passível de Renovação")
    While Not r.EOF
        r.Edit
        DtF = DateAdd("m", Pr, DtI)
        Dpf = DateDiff("d", Date, DtF)
        Select Case Pr
        Case Is > 60
        Pdr = "NÃO"
        Case Is <= 60
          Pdr = "SIM"
         End Select
        r.Update
        r.MoveNext
    Wend
    r.Close
End Sub

[higor.so]

Essa expressão eu jogo no valor da padrão?

Tentei fazer como módulo, mas não consegui.... eis a minha expressão

 While Not r.EOF

        r.Edit

        If Pr > 60 Then

        Pdr = "Sim"

        

        End If

                        

        r.Update

        r.MoveNext

    Wend

 

 

Veja se é isso: se for <= a 60  ->  SIM; se for > a 60  -> NAO:

 

abx.

Sub Calcular_Meses()
    Dim d As Database
    Dim r As Recordset
    Dim DtI As Field, DtF As Field, Pr As Field, Dpf As Field
    Dim Pdr As Field
    Set d = CurrentDb()
    Set r = d.OpenRecordset("tabela1")
    Set DtI = r.Fields("Data inicial")
    Set DtF = r.Fields("Data Final")
    Set Pr = r.Fields("Prazo")
    Set Dpf = r.Fields("Dias")
    Set Pdr = r.Fields("Passível de Renovação")
    While Not r.EOF
        r.Edit
        DtF = DateAdd("m", Pr, DtI)
        Dpf = DateDiff("d", Date, DtF)
        Select Case Pr
        Case Is > 60
        Pdr = "NÃO"
        Case Is <= 60
          Pdr = "SIM"
         End Select
        r.Update
        r.MoveNext
    Wend
    r.Close
End Sub

[Basole]

Como assim fazer em um modulo? 

voce pode usar um unico modulo e escrever( criar ) varias macros. 

 

Tente assim:  

 While Not r.EOF        r.Edit        If Pr > 60 Then        Pdr = "Não"        Else        Pdr = "Sim"         End If                              r.Update        r.MoveNext    Wend

[higor.so]

Como eu faço pra executar esse código sempre que eu abrir o meu bancos de dados

[Basole]

Vja aqui tem um passo a passo p/ criar um autoexec p/ executar a macro ao abrir o bd: 

 

http://mikeperris.com/access/autoexec-macro-running-at-access-startup.html

 

abx.

[higor.so]

Eu fiz isso ai, mas quando ele executa a macro é gerado um erro "A expressão que você inseriu possui um nome de função que o Microsoft Access não pode localizar".....????

Consegui fazer, valeu!!!

[Basole]

Se o 'pobrema' é funcao ? faça novamente o procedimento e referencie esta função:

Function RodaMacro()Call Calcular_MesesMsgBox "Seja Bem Vindo! ", 0, "Olá "End Function 

cole o cod (funcao) acima no mesmo modulo: módulo1. ' * nao precisa criar outro modulo'