[Resolvido]Ao abrir BD dar alerta de data...

Boa tarde prezados.

Preciso construir um módulo, mas não sei como, entendo o básico de VBA.

Quero que ao abrir meu Banco de Dados "Controle de Estoque", seja analisado em qual dia do mês estamos e se estivermos entre o 1º e 5º dia útil, seja retornada uma mensagem do tipo: "Estamos em período de envio do relatório de baixa de materiais."

Como sempre, sei que serei ajudado por alguém deste veículo de transmissão de conhecimento.

Muito obrigado a todos.

Pessoal, se tiver como retornar uma mensagem caso esteja entre dia 1 e 10 do mês já está muito bom, esqueçam o negócio dos dias úteis.

obrigado

Num modulo novo, cole esta função e salve;

Public Function AlertaDiaEntre1e10()
'By JPaulo ® Maximo Access
Dim strData As Date

strData = Date

                If strData >= DateSerial(Year(Date), Month(Date), 1) And strData <= DateSerial(Year(Date), Month(Date), 10) Then
                
              MsgBox "Estamos em período de envio do relatório de baixa de materiais.", vbInformation

              Else
            Exit Function
    End If
End Function

Para chamar a função no seu formulario;


Private Sub Form_Load()
Call AlertaDiaEntre1e10
End Sub

E ae, funfou ????

Como de costume, sempre sou ajudado, obrigado JPaulo, obrigado a todos.

Obrigado pelo retorno o forum agradece.