Then put a few more MessageBox(), for debugging purposes. You might check:
The actual value of the field.
The selected alias (alias() function).
The recno() - to make sure you are on the record you think you are.
>The code below shows some erros message
>When I edit the record, the field is not empty
>
>
>
>SCAN FOR cert_pt = 0
>
>
>DO CASE
>
>CASE EMPTY(certificados.nome_cert)
>
>= MESSAGEBOX("Campo NOME_CERT vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>CASE EMPTY(certificados.curso)
>= MESSAGEBOX("Campo CURSO vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>CASE EMPTY(certificados.data_curso)
>= MESSAGEBOX("Campo DATA vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
> CASE EMPTY(certificados.horas)
> = MESSAGEBOX("Campo HORAS vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>
>CASE empty(certificados.nome)
> = MESSAGEBOX("Campo NOME vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>CASE EMPTY(certificados.end)
> = MESSAGEBOX("Campo ENDEREÇO vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>
>CASE EMPTY(certificados.cidade)
>= MESSAGEBOX("Campo CIDADE vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>
>CASE EMPTY(certificados.EST)
>= MESSAGEBOX("Campo CIDADE vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>
>CASE EMPTY(certificados.CEP)
>= MESSAGEBOX("Campo CEP vazio na ficha do aluno: " + STR(COD))
>N_ERROS = N_ERROS + 1
>
>ENDCASE
>
>ENDSCAN
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
