[Resolvido]Mostrar dados de consulta através de alerta - msgbox

viva

precisava de ajuda / orientação no seguinte...

tenho uma tabela com vários campos, um deles é a data de abertura...

eu quero arranjar uma maneira de gerar um alerta, para me lembrar dos registos que têm > 6 meses...

ou seja, abria o programa e listava logo (se calhar através de msgbox) os registos > 6 meses...

pens que podia fazer isto simplesmente na abertura do programa com a abertura automática da consulta on estejam só os registos > 6 meses... mas queria fazer algo mais elaborado...

alguma orientação, exemplo que achem ser importante?

obrigado em avanço

Olá Jitano

Ao invés da consulta, você pode fazer um Dcount() no evento abrir do formulário principal da tua aplicação:

Seria mais ou menos assim:

Código:


If DCount("*","NoTabela","Month([data de abertura]) >" & Month(Date()) <> 0 then
  If Msgbox("Existem registros com mais de mais de 6 meses." &vbCrLf &"Deseja visualizá-los?", vbQuestion+vbYesNo,"Aviso")= vbYes then
  'Aqui abre-se um formulário com uma listbox ou um formulário continuo ou modo de dados listando os registros.
      Docmd.OpenForm "Nomedoform"
    Endif
Endif


O Código acima é uma idéia, é apenas um caminho a seguir.
Ainda mais:
Caso crie um formulário como disse acima; poderá fazer uma função que ao se clicar em um registro, abra um outro formulário, com o registro carregado para poder editar.

Abraços

Balem desde já obrigado pela ajuda... mas ainda não consegui testar a instrução... dá para dar mais uma ajudinha?

Código:

If DCount("*","NoTabela","Month([data de abertura]) >" & Month(Date()) <> 0 then

* = tenho de substituir por algo?
NoTabela = tabela onde tem o campo com a data de abertura
data de abertura = campo com a data de abertura

não percebi como fazer listar os registos > 6 meses nesta parte

Código:

Month([data de abertura]) >" & Month(Date()) <> 0 then

Olá Jitano

Como disse, era apenas um exemplo.

O código é mais ou menos assim:

If DCount("*","tblClientes","Month([DataNasc]) >" & (Month(Date)+6))

O astérico quer dizer todos os campos da tabela
tblClientes = substitua pela tua tabela
DataNasc = substitua pelo campo [Data de abertura]

Se teu campo tem esse nome "Data de abertura", evite usar espaço em nomes de campo e controles, melhor assim: DataDeAbertura - espaço só dará problemas para você.
Acrescentei o numero 6 (tinha deixado para você descobrir).
Assim ele retornará os registros a partir do mês atual + 6 meses, por exemplo, como estamos no mes de fevereiro (2) irá retornar registros a partir do més setembro (9)
Esse código que te passei, é apenas para contar quantos registro existe na tabela que atende a condição.
Se a contagem for acima de 0 ou seja, tem registro nessa condição então avisa o usuário com a msgbox já perguntando se quer visualizar esse registros.
Abraços

caso queira uma msgbox que liste todos os dados que tenham mais de 6 meses, no evento "ao carregar" do formulário principal (que se coloca para abrir com o aplicativo) use o seguinte código

Private Sub Form_Load()

dim rs as recordset
dim mensagem as string
mensagem = "Os registros com mais de 6 meses são: " & chr(13)
set rs = currentdb().openrecordset("select * from [NOME DA SUA TABELA] where [DATA ABERTURA] <= date()-180")

while not rs.eof
mensagem = mensagem & "Nome do registro: " & rs("NOME DO REGISTRADO") & "; Data de abertura: " & rs("NOME DO CAMPO DATA DE ABERTURA") & ";" & chr(13)
rs.movenext
wend
msgbox mensagem
rs.close
End Sub

os campos que vc precisaria substituir são os que estão escrito em maiúsculo.