MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Mostrar dados de consulta através de alerta - msgbox

    Jitano
    Jitano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Mostrar dados de consulta através de alerta - msgbox Empty [Resolvido]Mostrar dados de consulta através de alerta - msgbox

    Mensagem  Jitano em 14/2/2012, 11:07

    viva

    precisava de ajuda / orientação no seguinte...

    tenho uma tabela com vários campos, um deles é a data de abertura...

    eu quero arranjar uma maneira de gerar um alerta, para me lembrar dos registos que têm > 6 meses...

    ou seja, abria o programa e listava logo (se calhar através de msgbox) os registos > 6 meses...

    pens que podia fazer isto simplesmente na abertura do programa com a abertura automática da consulta on estejam só os registos > 6 meses... mas queria fazer algo mais elaborado...

    alguma orientação, exemplo que achem ser importante?

    obrigado em avanço
    avatar
    Convidad
    Convidado

    [Resolvido]Mostrar dados de consulta através de alerta - msgbox Empty Re: [Resolvido]Mostrar dados de consulta através de alerta - msgbox

    Mensagem  Convidad em 14/2/2012, 13:42

    Olá Jitano

    Ao invés da consulta, você pode fazer um Dcount() no evento abrir do formulário principal da tua aplicação:

    Seria mais ou menos assim:
    Código:

    If DCount("*","NoTabela","Month([data de abertura]) >" & Month(Date()) <> 0 then
      If Msgbox("Existem registros com mais de mais de 6 meses." &vbCrLf &"Deseja visualizá-los?", vbQuestion+vbYesNo,"Aviso")= vbYes then
      'Aqui abre-se um formulário com uma listbox ou um formulário continuo ou modo de dados listando os registros.
          Docmd.OpenForm "Nomedoform"
        Endif
    Endif
    O Código acima é uma idéia, é apenas um caminho a seguir.
    Ainda mais:
    Caso crie um formulário como disse acima; poderá fazer uma função que ao se clicar em um registro, abra um outro formulário, com o registro carregado para poder editar.

    Abraços

    Jitano
    Jitano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Localização : Portugal
    Mensagens : 99
    Registrado : 13/06/2011

    [Resolvido]Mostrar dados de consulta através de alerta - msgbox Empty Re: [Resolvido]Mostrar dados de consulta através de alerta - msgbox

    Mensagem  Jitano em 14/2/2012, 18:02

    Balem desde já obrigado pela ajuda... mas ainda não consegui testar a instrução... dá para dar mais uma ajudinha?

    Código:
    If DCount("*","NoTabela","Month([data de abertura]) >" & Month(Date()) <> 0 then

    * = tenho de substituir por algo?
    NoTabela = tabela onde tem o campo com a data de abertura
    data de abertura = campo com a data de abertura

    não percebi como fazer listar os registos > 6 meses nesta parte

    Código:
    Month([data de abertura]) >" & Month(Date()) <> 0 then
    avatar
    Convidad
    Convidado

    [Resolvido]Mostrar dados de consulta através de alerta - msgbox Empty Re: [Resolvido]Mostrar dados de consulta através de alerta - msgbox

    Mensagem  Convidad em 14/2/2012, 19:02

    Olá Jitano

    Como disse, era apenas um exemplo.

    O código é mais ou menos assim:

    If DCount("*","tblClientes","Month([DataNasc]) >" & (Month(Date)+6))

    O astérico quer dizer todos os campos da tabela
    tblClientes = substitua pela tua tabela
    DataNasc = substitua pelo campo [Data de abertura]

    Se teu campo tem esse nome "Data de abertura", evite usar espaço em nomes de campo e controles, melhor assim: DataDeAbertura - espaço só dará problemas para você.
    Acrescentei o numero 6 (tinha deixado para você descobrir).
    Assim ele retornará os registros a partir do mês atual + 6 meses, por exemplo, como estamos no mes de fevereiro (2) irá retornar registros a partir do més setembro (9)
    Esse código que te passei, é apenas para contar quantos registro existe na tabela que atende a condição.
    Se a contagem for acima de 0 ou seja, tem registro nessa condição então avisa o usuário com a msgbox já perguntando se quer visualizar esse registros.
    Abraços
    avatar
    Leandron
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 11/01/2011

    [Resolvido]Mostrar dados de consulta através de alerta - msgbox Empty Re: [Resolvido]Mostrar dados de consulta através de alerta - msgbox

    Mensagem  Leandron em 24/2/2012, 23:35

    caso queira uma msgbox que liste todos os dados que tenham mais de 6 meses, no evento "ao carregar" do formulário principal (que se coloca para abrir com o aplicativo) use o seguinte código

    Private Sub Form_Load()

    dim rs as recordset
    dim mensagem as string
    mensagem = "Os registros com mais de 6 meses são: " & chr(13)
    set rs = currentdb().openrecordset("select * from [NOME DA SUA TABELA] where [DATA ABERTURA] <= date()-180")

    while not rs.eof
    mensagem = mensagem & "Nome do registro: " & rs("NOME DO REGISTRADO") & "; Data de abertura: " & rs("NOME DO CAMPO DATA DE ABERTURA") & ";" & chr(13)
    rs.movenext
    wend
    msgbox mensagem
    rs.close
    End Sub

    os campos que vc precisaria substituir são os que estão escrito em maiúsculo.

    Conteúdo patrocinado

    [Resolvido]Mostrar dados de consulta através de alerta - msgbox Empty Re: [Resolvido]Mostrar dados de consulta através de alerta - msgbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 14:05