[Resolvido]Valor padrão

jferna 8/7/2011, 14:10

jferna: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 100
Registrado : 20/05/2010

Mensagem nº1

Valor padrão

Mensagem jferna 8/7/2011, 14:10

Bom dia pessoal,procurei no ajuda e não encontrei, por isso peço ajuda a vcs,
Tenho um formulario que tem uma caixa de texto que é uma data e gostaria que ao abrir esse formularia ele viesse com a data do dia primeiro do mes corrente como valor padrão.
ats,
jorge

**OsmarJr** 8/7/2011, 15:15

OsmarJr

OsmarJr: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 42
Registrado : 20/10/2010

Mensagem nº2

Re: [Resolvido]Valor padrão

Mensagem OsmarJr 8/7/2011, 15:15

Coloque, no Valor Padrão do campo:

Código:: =DateSerial(Year(Date()), Month(Date()),0) + 1

.

Vai trazer, sempre, o primeiro dia do mês corrente.

.................................................................................
affraid

Diferença entre mulher na TPM e pitbull com raiva: O BATOM (hoje apanho em casa)... affraid

jferna 8/7/2011, 16:47

jferna

jferna: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 100
Registrado : 20/05/2010

Mensagem nº3

Re: [Resolvido]Valor padrão

Mensagem jferna 8/7/2011, 16:47

Boa tarde Osmar, deu o seguinte erro:
A expressão que você inseriu contém sintaxe inválida.
Você omitiu um operando ou operador, inseriu uma vírgula ou caractere inválido ou, inseriu texto sem dilimitá-lo por aspas.
Ats,
Jorge.

**Jungli** 8/7/2011, 17:19

Jungli

Jungli: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 715
Registrado : 07/05/2010

Mensagem nº4

Re: [Resolvido]Valor padrão

Mensagem Jungli 8/7/2011, 17:19

Com a permissão do mestre OsmarJr

Tende assim:

Private Sub Form_Current()
Me![SEU CAMPO] = DateSerial(Year(Date), Month(Date), 0) + 1
End Sub

.................................................................................
"Somos o que repetidamente fazemos.
A excelência, portanto, não é um feito,
mas um hábito."

Aristóteles

criquio 8/7/2011, 17:26

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº5

Re: [Resolvido]Valor padrão

Mensagem criquio 8/7/2011, 17:26

Ou assim na origem do campo, substituindo vírgulas por ponto e vírgula:

=DateSerial(Year(Date());Month(Date());0) + 1

Aonde usamos vírgula no vba, usamos ponto e vírgula na origem do campo em formulários, relatórios e consultas.

.................................................................................

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.

jferna 8/7/2011, 17:40

jferna

jferna: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 100
Registrado : 20/05/2010

Mensagem nº6

Re: [Resolvido]Valor padrão

Mensagem jferna 8/7/2011, 17:40

Tambem não deu.
ats,
jorge.

criquio 8/7/2011, 17:43

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº7

Re: [Resolvido]Valor padrão

Mensagem criquio 8/7/2011, 17:43

Alguma coisa está influindo no resultado, pois testei aqui e funcionou tal qual eu passei no post acima.

.................................................................................

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.