Início![[Resolvido]Formulário Diario Empty](https://2img.net/i/empty.gif)
videosom3d 16/12/2011, 23:41É possível que o access abra um formulário no inicio automaticamente mas apenas um a vez ao dia
2 participantes
[Resolvido]Formulário Diario
videosom3d- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 06/12/2011
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Coloque um campo em uma tabela chamada de tblConfig por exemplo. O campo pode se chamar AbriuHoje por exemplo. Aí você coloca o campo da data tambem na tabela para comparar as datas. No evento "Ao carregar" de um formulário:
If DLookup("AbriuHoje", "tblConfig", "Código=1" And Data=#" & Format(now, "mm/dd/yyyy") = "Sim" Then
Exit Sub
Else
DoCmd.OpenForm "NomeDoFormulário"
CurrentDb.Execute "UPDATE tblConfig SET Data='" & Date & "', AbriuHoje='Sim'"
End If
If DLookup("AbriuHoje", "tblConfig", "Código=1" And Data=#" & Format(now, "mm/dd/yyyy") = "Sim" Then
Exit Sub
Else
DoCmd.OpenForm "NomeDoFormulário"
CurrentDb.Execute "UPDATE tblConfig SET Data='" & Date & "', AbriuHoje='Sim'"
End If
.................................................................................
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. |
videosom3d- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 06/12/2011
Desculpa mas fiquei um pouco confuso.
Campo em uma tabela = tblConfig
O campo pode chamar-se = Abriu hoje
ou
Tabela =tblConfig
Campo = AbriuHoje
e colocar o campo da data quer dizer Tipo de Dados
Desculpa mas é um pouco dificil porque os nomes do access daí é diferente do daqui não pode fazer um bd e enviar só a fazer isso.
Ou envio eu e mete o codigo.ok
Obrigado
Campo em uma tabela = tblConfig
O campo pode chamar-se = Abriu hoje
ou
Tabela =tblConfig
Campo = AbriuHoje
e colocar o campo da data quer dizer Tipo de Dados
Desculpa mas é um pouco dificil porque os nomes do access daí é diferente do daqui não pode fazer um bd e enviar só a fazer isso.
Ou envio eu e mete o codigo.ok
Obrigado
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Abaixo um pequeno exemplo que fiz meio às pressas:
- Anexos
![[Resolvido]Formulário Diario Attachment](https://2img.net/i/fa/attachment.png)
AbrirUmaVezNoDia.zip - Exemplo que abre um formulário caso seja a primeira abertura do sistema no dia
- Você não tem permissão para fazer download dos arquivos anexados.
- (23 Kb) Baixado 73 vez(es)
.................................................................................
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. |
videosom3d- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 06/12/2011
Olha o erro que dá, eu tenho o office 2010 64b será disso
![[Resolvido]Formulário Diario Errojv](https://2img.net/r/ihimizer/img64/5701/errojv.jpg)
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Eu me esqueci de verificar as referências. Deve ter algumas AUSENTE aí. Abra o módulo mdlAbriuHoje e vá no menu Ferramentas > Referências e desmarque as AUSENTE.
.................................................................................
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. |
videosom3d- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 06/12/2011
Tenho assim qual desmarco
![[Resolvido]Formulário Diario Qual](https://2img.net/r/ihimizer/img683/4531/qual.jpg)
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
As que estiver escrito MISSING (AUSENTE). Pode desmarcar tambem a 5ª, a 8ª, a 9ª, e 11ª. Desmarque elas antes das MISSING para não perder a posição delas.
.................................................................................
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. |
videosom3d- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 06/12/2011
Resolvido muito Obrigado criquio.
|
|
|