[Resolvido]Abrir form

**toyebom** 8/1/2014, 19:51

toyebom: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012

Mensagem nº1

[Resolvido]Abrir form

Mensagem toyebom 8/1/2014, 19:51

Alguém consegue dizer como faço para ao clicar num botão para abrir um for só permita abrir no fim do mês?

Tipo

Ao fazer click if data atual = 28; 29; 30; 31 ou 01 do cmd openform "Form1" else if data atual = 28; 29; 30; 31 ou 01 them msgbox "Não tem permissão para aceder ao formulário "Form1" na data atual." do cmdclose.

A data a que me refiro tem de ser a do sistema.

.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

**Silvio** 8/1/2014, 21:07

Silvio

Silvio: Developer; Respeito às regras :

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

Mensagem nº2

Re: [Resolvido]Abrir form

Mensagem Silvio 8/1/2014, 21:07

if date()<> 28 or 29 or 30 or 31 then
msgbox" não é permitida a abertura desse formulário antes do dia 28",vbinformation, "Aviso..."
else
docmd.openform"nome do teu formulário aqui"

não testei.....

Qualquer coisa, de um grito.

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."

**Alexandre Neves** 8/1/2014, 21:10

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº3

Re: [Resolvido]Abrir form

Mensagem Alexandre Neves 8/1/2014, 21:10

Boa noite,
Não percebi bem o que pretende.
Aproveite a função
Fim do mês:
DateSerial(Year(Date()), Month(Date()) + 1, 0)

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

**toyebom** 9/1/2014, 22:45

toyebom

toyebom: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012

Mensagem nº4

Abrir form

Mensagem toyebom 9/1/2014, 22:45

Tentei os dois mas não consegui.

O que quero é ao clicar num botão do formulário "Form1" caso a data do PC "Windows" seja fim de algum mês (28; 29; 30 ou 31 depende do mês) ou inicio de outro (01) que me abra outro formulário "Form2" e caso a data Windows não seja fim do mês que não abra o "Form2" e que apareça um aviso de "Não tem permissão para aceder na data atual"

.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

**Alexandre Neves** 9/1/2014, 22:54

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº5

Re: [Resolvido]Abrir form

Mensagem Alexandre Neves 9/1/2014, 22:54

Boa noite,
Que tentativas fez?
Apresente o código que utilizou para facilitar

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

**toyebom** 9/1/2014, 23:03

toyebom

toyebom: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012

Mensagem nº6

Abrir form

Mensagem toyebom 9/1/2014, 23:03

Ok eu tentei assim:

Private Sub Comando1_Click()
If Date <> 28 Or 29 Or 30 Or 31 Then
MsgBox " não é permitida a abertura desse formulário na data atual", vbInformation, "Aviso..."
Else
DoCmd.OpenForm "Gestão"
End If
End Sub

mas mesmo no dia certo apenas aparece o aviso " não é permitida a abertura desse formulário na data atual"

.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

**Alexandre Neves** 9/1/2014, 23:16

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº7

Re: [Resolvido]Abrir form

Mensagem Alexandre Neves 9/1/2014, 23:16

Onde está a função que lhe indiquei?
Nomeie pelas regras de boa nomenclatura
Private Sub Comando1_Click()
If DateSerial(Year(Date()), Month(Date()),Day(Date))=DateSerial(Year(Date()), Month(Date()) + 1, 0) then
DoCmd.OpenForm "Gestão"
Else
MsgBox " não é permitida a abertura desse formulário na data atual", vbInformation, "Aviso..."
End If
End Sub

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

**toyebom** 9/1/2014, 23:24

toyebom

toyebom: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012

Mensagem nº8

Abrir form

Mensagem toyebom 9/1/2014, 23:24

Alexandre, deu certo para o ultimo dia do mês mas se for dia 1 já não abre aparecendo o aviso

Caso possas ajudar agradeço

.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

**Alexandre Neves** 10/1/2014, 20:53

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº9

Re: [Resolvido]Abrir form

Mensagem Alexandre Neves 10/1/2014, 20:53

Boa noite,
Esqueci-me do dia 1, mas isso devia se canja.
Private Sub Comando1_Click()
If DateSerial(Year(Date()), Month(Date()),Day(Date))=DateSerial(Year(Date()), Month(Date()) + 1, 0) or day(date)=1 then
DoCmd.OpenForm "Gestão"
Else
MsgBox " não é permitida a abertura desse formulário na data atual", vbInformation, "Aviso..."
End If
End Sub

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

**toyebom** 10/1/2014, 23:36

toyebom

toyebom: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012

Mensagem nº10

Abrir form

Mensagem toyebom 10/1/2014, 23:36

Alexandre, deu certo, obrigado.

.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

**Alexandre Neves** 11/1/2014, 11:38

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº11

Re: [Resolvido]Abrir form

Mensagem Alexandre Neves 11/1/2014, 11:38

[Resolvido]Abrir form MaximoAccess%20ResolvidoMarcado

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

**toyebom** 11/1/2014, 18:55

toyebom

toyebom: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 1128
Registrado : 18/07/2012

Mensagem nº12

Abrir form

Mensagem toyebom 11/1/2014, 18:55

Peço desculpa esqueci-me.

.................................................................................
Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº13

Re: [Resolvido]Abrir form

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Abrir form

[Resolvido]Abrir form

Re: [Resolvido]Abrir form

Re: [Resolvido]Abrir form

Abrir form

Re: [Resolvido]Abrir form

Abrir form

Re: [Resolvido]Abrir form

Abrir form

Re: [Resolvido]Abrir form

Abrir form

Re: [Resolvido]Abrir form

Abrir form

Re: [Resolvido]Abrir form

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada