Convidado 2/6/2011, 17:45
Neste exemplo do JP o form exemplo abre ao inciar, se tiver aniversariantes AVISA, caso nao exibe mensagem
Não existem aniversariantes para semana..
Pode Criar uma macro ou na Macro Autoexec, abrir este form em oculto...
e no codigo deste form
Private Sub Form_Load()
'By JPaulo ® Maximo Access
Dim ContaLinhasNaListbox As Integer
Dim AcertaAlturaDaListBox As Integer
If Me.lstAlerta.ListCount = 0 Then
MsgBox "Não existem aniversariantes esta semana....", vbCritical
DoCmd.CancelEvent
DoCmd.Close acForm, "frmExemplo"
Else
DoCmd.OpenForm "NomeDoForm"
ContaLinhasNaListbox = Me.lstAlerta.ListCount
AcertaAlturaDaListBox = 317
Me.lstAlerta.Height = ContaLinhasNaListbox * AcertaAlturaDaListBox
Me.lstAlerta.Requery
End If
End Sub
As demais linhas que pupulam a lstalerta, veja se quer deixar ou retirar...
pode Reexibir o form que abre em oculto, e abri-lo juntamente com seu form..
Use a imaginação
Saudações