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


    [Resolvido]Alerta de Aniversario em Formulario

    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Alerta de Aniversario em Formulario Empty Alerta de Aniversario em Formulario

    Mensagem  lupe 2/6/2011, 17:31

    Olá pessoal!

    Baixei o exemplo de alerta de aniversario do JPaulo e gostaria de, em vez de uma mensagem, abrir um formulario. Alguem sabe como fazer isso? O exemplo que estou falando é o "AlertaAniversariantes_V".

    Abraços!
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Alerta de Aniversario em Formulario Empty Re: [Resolvido]Alerta de Aniversario em Formulario

    Mensagem  lupe 2/6/2011, 17:35

    Desculpem....

    postei no lugar errado. Alguem pode mudar pra mim, fazendo favor.

    Obrigado!
    avatar
    Convidado
    Convidado


    [Resolvido]Alerta de Aniversario em Formulario Empty Re: [Resolvido]Alerta de Aniversario em Formulario

    Mensagem  Convidado 2/6/2011, 17:45

    Neste exemplo do JP o form exemplo abre ao inciar, se tiver aniversariantes AVISA, caso nao exibe mensagem
    Não existem aniversariantes para semana..

    Pode Criar uma macro ou na Macro Autoexec, abrir este form em oculto...
    e no codigo deste form

    Private Sub Form_Load()
    'By JPaulo ® Maximo Access
    Dim ContaLinhasNaListbox As Integer
    Dim AcertaAlturaDaListBox As Integer
    If Me.lstAlerta.ListCount = 0 Then
    MsgBox "Não existem aniversariantes esta semana....", vbCritical
    DoCmd.CancelEvent
    DoCmd.Close acForm, "frmExemplo"
    Else
    DoCmd.OpenForm "NomeDoForm"

    ContaLinhasNaListbox = Me.lstAlerta.ListCount
    AcertaAlturaDaListBox = 317
    Me.lstAlerta.Height = ContaLinhasNaListbox * AcertaAlturaDaListBox
    Me.lstAlerta.Requery
    End If
    End Sub

    As demais linhas que pupulam a lstalerta, veja se quer deixar ou retirar...
    pode Reexibir o form que abre em oculto, e abri-lo juntamente com seu form..

    Use a imaginação

    Saudações
    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Alerta de Aniversario em Formulario Empty Re: [Resolvido]Alerta de Aniversario em Formulario

    Mensagem  lupe 2/6/2011, 18:01

    Valeu Harysohn!

    Resolvido. Obrigado pela força!

    Abraço!
    avatar
    Convidado
    Convidado


    [Resolvido]Alerta de Aniversario em Formulario Empty Re: [Resolvido]Alerta de Aniversario em Formulario

    Mensagem  Convidado 2/6/2011, 18:21

    O Fórum agradece o retorno..
    Bom trabalho

    Conteúdo patrocinado


    [Resolvido]Alerta de Aniversario em Formulario Empty Re: [Resolvido]Alerta de Aniversario em Formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 3/5/2024, 00:18