[Resolvido]Mudança de diversas formas em de "Status"

Bom dia pessoal, sou novo no fórum e estou estudando, desculpe se já existe essa pergunta mas como é abrangente e de diversas formas, inclusive por isso estou disponibilizando um exemplo de projeto para tal função, o que estou precisando nada mais é do Alterar um "Status" das seguintes formas conforme projeto em anexo:

no Formulário Contratos: Se a data de vencimento for maior que a atual, mudar o status para "Vencido"
no Formulário Funções: Se o Contrato estiver "Ativo" alterar status (de Funções) para "Contratado" e se estiver o Contrato estiver "Vencido" alterar o status para "Disponível".
no Formulário Recibos: Como o restante a logica do Vencimento ( Se a data de vencimento for maior que a atual, mudar o status para "Vencido") é a mesma, só gostaria de saber então: Se o campo Pago em estiver preenchido com alguma data alterar o status para "Pago"

Obs. Já havia pesquisado e tentando um código VBA que está no "Contratos" mas não funcionou.

Desculpem qualquer coisa ! E desde já obrigado !

Abraço

Amigão, se você está a enviar texto para uma caixa, terá de colocar o texto entre aspas duplas.

Código:

Me.Status = "Vencido"

Ok, agradeço sua ajuda, mas chegasse a ver o exemplo ? Na verdade havia esquecido das ", mas já modifiquei (acrescentei as ", ali no código que havia colocado para uma das funções no form "Contratos") pois as de mais não consegui, mas não mudou nada.


Vou atualizar então o projeto, mas ainda continua sem alterar o Status.

Amigão, o status não muda só porque você faz um IF.

Tem de adicionar o Requery para atualizar, ou até transformar o current do form de Private para Public.

Veja;

Só fiz no form "Contratos"

Download

Leonardo Favale, Em seu código você esta pedindo para atualizar o campo data_final para "Vencido". como este e um campo do tipo "Data", o sistema não permite.

Alterei seu código no formulário "Contratos" e funcionou corretamente.

Segue o código

Código:

Private Sub Form_Current()
If Len(Me.Data_Final & "") > 0 Then
        If Me.Data_Final < Date Then
            Me.Status = "Vencido"
        Else
        If Me.Data_Final > Date Then
            Me.Status = "Contratado"
        End If
    End If
End If
End Sub

Pessoal muito obrigado com base no que me foi dito aqui consegui resolver quase todos os problemas, a minha unica dúvida é em relação agora ao formulário Recibo, no campo pagamento no caso:

no Formulário Recibos: Se a data de vencimento for maior que a data atual, o Status muda para "Ativo", se a data de vencimento for menor muda para "Vencido" até ai ok, isso já está funcionando.... Mas e se o campo "Pago Em" estiver preenchido com alguma data (de pagamento no caso) gostaria que ai desconsidera-se a questão da data (ser maior ou menor) e altera-se o status para "Pago".

Como fazer isso ? Pois se acrescento a mesma ideia junto ao campo pago ele não muda, ele fica com a codificação da data.

Segue novamente já funcionando os demais então.

Abraço !!

Oi Leonardo

Espero que seja de sua ajuda

Saludos desde Bolivia

Opa !!! Obrigado era isso mesmo que estava faltando !

Valeu a todos, mesmo muito obrigado !!

Abração !

Bom!!!