erro em campo data

[Julio]

Boa Tarde Pessoal


To com um erro em uns campos data, até ja exclui o form e comecei do zero umas 3 vezes.

Esta apresentando este erro UNKNOWN MEMBER TXTDTENTRADA, este campo esta criado na tabela dtentrada D 8.

Alguma ajuda possivel
Obrigado

julio

[Julio]

Pessoal consegui descobrir que o erro esta nesta linha.
Tenho uma rotina de critica de dados. ja utilizei esta mesma critica em um outro form de um ouro projeto e funciona mas neste o "bicho ta pegando".

o erro é nesta linha

Código:

IF STR(YEAR(Thisform.txtDtentrada.value),4)=<>" "

Código:

*!* Critica data entrada
IF STR(YEAR(Thisform.txtDtentrada.value),4)=<>" "
  *!*
  *ELSE
    MESSAGEBOX(;
      "Necessário informar a Data de Entrada do Documento.",;
      0+16, "Critica de Dados")
      *!* Posiciona o cursor no campo Data de Entrada Documento
      Thisform.txtDtentrada.SetFocus()
      RETURN .F.
ENDIF

[Julio]

Pessoal Resolvido

Desculpem minha ignorancia, eu copie e colei o codigo e esqueci que neste form eu estou usando pageframe e tenho que alterar o caminho, burrice minha, mas consegui encontrar o erro.

O codigo correto ficou assim:

Código:

*!* Critica data entrada
IF STR(YEAR(Thisform.pg.pg1.txtDtentrada.value),4)<>" "
  *!*
  *ELSE
    MESSAGEBOX(;
      "Necessário informar a Data de Entrada do Documento.",;
      0+16, "Critica de Dados")
      *!* Posiciona o cursor no campo Data de Entrada Documento
      Thisform.txtDtentrada.SetFocus()
      RETURN .F.
ENDIF

Obrigado

Julio

[alceu11]

nao sei se resolveu o erro
mais podera fazer assim tb

Código:


if VAL(STR(YEAR(DATE()),4))>0
**e verdadeiro
**faca sua rotina
else
 ***esta vazio...............
*****usuario nao preencheu,,,,,,,,,,,,,
MESSAGEBOX(;
      "Necessário informar a Data de Entrada do Documento.",;
      0+16, "Critica de Dados")
      *!* Posiciona o cursor no campo Data de Entrada Documento
      Thisform.txtDtentrada.SetFocus()
      RETURN .F

 

[Julio]

Alceu

Consegui resolver sim, foi burrada minha, o codigo eu usava em um form e este formulario novo tem pageframe, era so eu colocar o caminho

Código:

THISFORM.PAGEFRAME.PAGE1.TEXTBOX

Mas obrigado pela dica, vai mais uma para a coleção.

abs

julio