MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    como iniciar neste programa.

    avatar
    Catarina Oliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 1
    Registrado : 09/07/2015

    como iniciar neste programa. Empty como iniciar neste programa.

    Mensagem  Catarina Oliveira 9/7/2015, 11:41

    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
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    como iniciar neste programa. Empty como iniciar neste programa

    Mensagem  good guy 9/7/2015, 15:26

    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.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/09/2011

    como iniciar neste programa. Empty Re: como iniciar neste programa.

    Mensagem  cleverson_manaus 10/7/2015, 04:47

    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


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

      Data/hora atual: 5/12/2022, 02:29