No meu projeto criei uma consulta qyrVencidos por data de vencimento. Agora eu quero que uma MsgBox abra toda as vezes em que algum registro esteja com a data vencida. Na consulta, inseri <=Data no critério do campo Data de Vencimento da tabela tblInqueritos. No evento ao Carregar do Formulário principal, inseri
If DCount("*", "qyrVencidos") > 0 Then
MsgBox "Inquéritos com data vencida: " & Format(............., "000/00") & "-", vbExclamation , "Atenção"
Gostaria de saber qual o código que devo inserir no local dos pontos acima para que mostre na caixa de mensagem os registros que estão com a data vencida. Inseri o formato "000/00", pois no campo inquérito, eles são mostrado pelo número/ano(001/11, 002/11...)?
Também gostaria de saber se existe uma maneira de inserir um botão OK e outro Imprimir na MsgBox, pois criei um relatório rltVencidos para imprimir os registros mostrados na MsgBox?
If DCount("*", "qyrVencidos") > 0 Then
MsgBox "Inquéritos com data vencida: " & Format(............., "000/00") & "-", vbExclamation , "Atenção"
Gostaria de saber qual o código que devo inserir no local dos pontos acima para que mostre na caixa de mensagem os registros que estão com a data vencida. Inseri o formato "000/00", pois no campo inquérito, eles são mostrado pelo número/ano(001/11, 002/11...)?
Também gostaria de saber se existe uma maneira de inserir um botão OK e outro Imprimir na MsgBox, pois criei um relatório rltVencidos para imprimir os registros mostrados na MsgBox?