como iniciar neste programa.

Bom dia

Alguem me consegue dar uma ajuda. É a primeira vez que mexo no acess. Gostaria de criar uma lista de serviços, com diferentes datas, para posteriormente o programa me avisar sobre o que terei de realizar no dia. Tem alguma dica?! Obrigada.

Catarina Oliveira

Olá Catarina,

Não sei seu nível de conhecimento em Access e muito menos em Lógica de Programação, mas pense um pouco e planeje de que forma deve funcionar de acordo com este raciocínio exposto. Senão vejamos, você precisa que o aplicativo informe as tarefas de um determinado dia já pré-configuradas na tabela pelo campo DatadoEvento ou algo parecido, certo?

Se DatadeHoje for igual a DatadoEvento então
 Exiba as tarefas do dia
Caso contrário
 Não faça nada
Fim do Programa

Em Access VBA no evento Form_Open de seu formulário principal:

Código:


Dim sDate as Date
Dim sDataEvento As Date
Dim i As Integer
Dim rs As DAO.Recordset
dim sInfo As String

Set rs = Currentdb.OpenRecordset("SuaTabela", dbOpenTable)

'Looping para percorrer a tabela atrás de dados que satisfação a condição If...Then (Se... Então)
For i = 1 to rs.RecordCount    (Sai percorrendo desde o código de número 1 até o último código da tabela pelo total de registros. Tente com rs.EOF também
sDate = Date()
sDataEvento = DLookup("DatadoEvento","SuaTabela","Código = " & i)
sInfo = DLookup("Tarefa","SuaTabela","Código = " & i)

If sDate = sDatadoEvento Then
    
    MsgBox sInfo,vbInformation,"Nome do Seu Aplicativo"
Else
   Exit For
   MsgBox "Não foi encontrada nenhuma tarefa para hoje !!!", vbInformation, "Nome do seu aplicativo"
End If    
Next i

Obs: NÃO testei o programa, só usei a minha lógica.

Acredito que vc precisa de uma agenda.

Partindo dessa idéia, vc pode criar uma tabela onde listaria todos os serviços, e uma segunda tabela com os campos Serviço, Data e Hora.
Em seguida cadastre os serviços com hora e data.

É apenas uma sugestão.

Abraços