Início
Convidado 11/12/2010, 12:53Ola Pessoal,, para finalozar meu sistema e quero saber se alguem pode me explicar como eu faço uma tela de saudação como da Microsoft Office.
Abraços.
Abraços.
2 participantes
[Resolvido]Como faço um formulario de saudação?
Convidado- Convidado
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Explique melhor o que você quer que seja exibido na mensagem de saudação. Um bom dia/ boa tarde/ boa noite apenas? Quer exibir tambem a data, a hora, o nome do usuário logado?
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Convidado- Convidado
Eu quero na tela de apresentação tenha:
*NOME DO PROGRAMA
*CRIADO DO PROGRAMA
E DEPOIS DE 5 SEGUNDOS ABRE O MENU DO PROGRAMA.
É ISSO AI
*NOME DO PROGRAMA
*CRIADO DO PROGRAMA
E DEPOIS DE 5 SEGUNDOS ABRE O MENU DO PROGRAMA.
É ISSO AI
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Uma maneira de se fazer isso é a seguinte:
Crie um formulário com nome frmAbertura por exemplo. Coloque a mensagem que você quer. Coloque 5000 no intervalo do cronômetro. Vá no evento "No timer" e coloque:
DoCmd.Close
DoCmd.OpenForm "NomeDoFormDosMeus"
Defina o frmAbertura como form de início para abrir com a aplicação. Pronto, é mais ou menos isso.
Crie um formulário com nome frmAbertura por exemplo. Coloque a mensagem que você quer. Coloque 5000 no intervalo do cronômetro. Vá no evento "No timer" e coloque:
DoCmd.Close
DoCmd.OpenForm "NomeDoFormDosMeus"
Defina o frmAbertura como form de início para abrir com a aplicação. Pronto, é mais ou menos isso.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Rogiel, meu bom amigo
Então num form através de um label (etiqueta coloque esses dados) e no evento ao carregar do form:
On Error Resume Next
Dim msg, Style, Title
Style = vbExclamation
Title = "Rogiel"
If time() >= #6:00:00 AM# And time() < #12:00:00 PM# Then
Call MsgBox("O Rogiel deseja-lhe um Bom Dia", vbExclamation, "Rogiel")
Else
If time() >= #12:00:00 PM# And time() <= #6:00:00 PM# Then
Call MsgBox("O Rogiel deseja-lhe uma Boa Tarde", vbExclamation, "Rogiel")
Else
Call MsgBox("O Rogiel deseja-lhe uma Boa Noite", vbExclamation, "Rogiel")
End If
End If
DEpois:
Assinale o cronómetro para 1000 pelo menos e no evento do cronómetro:
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "seuform"
Então num form através de um label (etiqueta coloque esses dados) e no evento ao carregar do form:
On Error Resume Next
Dim msg, Style, Title
Style = vbExclamation
Title = "Rogiel"
If time() >= #6:00:00 AM# And time() < #12:00:00 PM# Then
Call MsgBox("O Rogiel deseja-lhe um Bom Dia", vbExclamation, "Rogiel")
Else
If time() >= #12:00:00 PM# And time() <= #6:00:00 PM# Then
Call MsgBox("O Rogiel deseja-lhe uma Boa Tarde", vbExclamation, "Rogiel")
Else
Call MsgBox("O Rogiel deseja-lhe uma Boa Noite", vbExclamation, "Rogiel")
End If
End If
DEpois:
Assinale o cronómetro para 1000 pelo menos e no evento do cronómetro:
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "seuform"
Convidado- Convidado
Obrigado Vieira e Criquio
Deu certo.
Muito obrigado.
Abraços
Deu certo.
Muito obrigado.
Abraços
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Abração e retorne sempre que precisar
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Valeu pelo retorno. Estamos aqui para compartilhar conhecimentos.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Rogiel
Que tal dar um toque mais profissional na app
Atenção:
Os ficheiros que se encontram dentro da pasta devem viajar sempre dentro da pasta da sua aplicação.
http://dl.dropbox.com/u/8157744/progress.rar
Diga se funfou
Que tal dar um toque mais profissional na app
Atenção:
Os ficheiros que se encontram dentro da pasta devem viajar sempre dentro da pasta da sua aplicação.
http://dl.dropbox.com/u/8157744/progress.rar
Diga se funfou
Convidado- Convidado
Muito obrigado
Ele funcionou perfeitamente.
Ele funcionou perfeitamente.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Abraço e bom trabalho, amigão
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Como faço para filtrar uma busca em caixa de combinação no meu formulário?
» Duvida no campo quantidade
» [Resolvido]Como faço pra fazer um historico de mudanças dentro de um formulario no Access
» [Resolvido]Interligar Dois subformulário a um formulário principal, Como faço isso?
» [Resolvido]Como faço formulário enviar informações para um arquivo executável
» Duvida no campo quantidade
» [Resolvido]Como faço pra fazer um historico de mudanças dentro de um formulario no Access
» [Resolvido]Interligar Dois subformulário a um formulário principal, Como faço isso?
» [Resolvido]Como faço formulário enviar informações para um arquivo executável