Argus

Tenta essa aí: WHERE dataInicio <= ultimoDiaMes(mes/ano escolhido pelo usuario) AND dataFinal >= primeiroDiaMes(mes/ano escolhido pelo usuario) Claro que você deve criar uma função que encontre o primeiroDiaMes(argumento) e ultimoDiaMes(argumento). Se não souber como criar as funções me avise. Até a próxima.

No formulário crie um procedimento para a caixa de texto no evento ApósAtualizar. No exemplo que utilizei para testar criei uma caixa com o nome CaixaStatus, então você pode adaptar para o nome do seu campo e colocar as cores que você quiser. O código fica assim: Private Sub CaixaStatus_AfterUpdate() If Not IsNull(CaixaStatus.Value) Then Select Case CaixaStatus.Value Case "ADIMPLENTE" CaixaStatus.ForeColor = vbBlue Case "INADIMPLENTE" CaixaStatus.ForeColor = vbRed Case "VERIFICAR" CaixaStatus.ForeColor = vbGreen Case Else CaixaStatus.ForeColor = vbBlack End Select End If End Sub