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


2 participantes

    [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério

    avatar
    #F@bio#
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 18/05/2015

    [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério Empty [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério

    Mensagem  #F@bio# 18/5/2015, 21:21

    Tenho um formulário que faz o contole de tarefas de uma empresa, por: DatadeRecebimento, Tarefa, Demandante, DatadaConclusão, etc. Minha dúvida é a seguinte: Ao abrir o formulário (Form_Load), gostaria que fosse emitida uma mensagem de acordo com a data atual, da seguinte forma:

    1- Caso haja atividade já cadastrada para o dia-> MsgBox " Existe tarefa agendada para hoje, favor verificar lista em tela." vbInformation, "TAREFAS"

    2- Caso NÃO haja atividade já cadastrada para o dia-> MsgBox " Ainda não existe tarefa agendada para hoje!" vbInformation, "TAREFAS"

    Minha idéia inicial era usar o DCount e como filtro uma variável TxtHoje que recebece =Data()

    If DCount("DatadeRecebimento","TabTarefas","TxtHoje") > 0 then
    MsgBox " Existe tarefa agendada para hoje, favor verificar lista em tela." vbInformation, "TAREFAS"
    Me.Undo

    Else

    MsgBox " Ainda não existe tarefa agendada para hoje!" vbInformation, "TAREFAS"


    End If

    Desde já agradeço a colaboração.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério Empty Re: [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério

    Mensagem  Silvio 18/5/2015, 22:58

    Olá, seja bem vindo ao fórum...

    Aqui vai uma dica para pensar e estudar...

    Dlookup....ao invés de Dcount.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    #F@bio#
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 18/05/2015

    [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério Empty Tópico Resolvido

    Mensagem  #F@bio# 19/5/2015, 13:58

    Silvio, muito obrigado pela dica, consegui resolver o problema da seguinte forma:

    Private Sub Form_Load()

    If DLookup("[DataRecebimento]", "TabTarefas", "[DataRecebimento]=TxtDataAltera") <> "" Then ' TxtDataAltera recebe-> =Data()

       MsgBox "Existe tarefa agendada para hoje, favor verificar lista em tela.", vbInformation, "TAREFAS"
       Me.Undo

    Else

       MsgBox "Ainda não existe tarefa agendada para hoje!", vbInformation, "TAREFAS"
       Me.Undo

    End If


    End Sub

    Abraço!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério Empty Re: [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério

    Mensagem  Silvio 19/5/2015, 14:53

    O fórum agradece o retorno.
    Bons estudos.
    abraços !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério Empty Re: [Resolvido]Na abertura do formulário emitir mensagem a partir de um critério

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:12