Discussion :

[Yearning]

Bonjour,
j'ai une table nommée chercheur.DB de type Paradox7

ce que je veux, c'est tester la valeur contenue dans le DBEdit relié au champ (clé) Code_Ch de la Table Chercheur.

Mon But : si le champ est vide, je renvoie un message d'erreur au lieu de sauvegarder l'enregistrement

avec EDIT y a pas de blème, voilà le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
   If CodeCh_Edit.Text='' then Showmessage('Veuillez remplir le champ ''Code Chercheur'' SVP')
   else Chercheur_Table.Post;
end;

Mais le problème, est qu'avec le DBEdit je ne sais pas trop comment tester sa valeur, s'il est vide ou pas.


J'ai essayé un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if Chercheur_Table.FieldValues[('Code_Ch')]= ''
    then Showmessage('Veuillez remplir le champ ''Code Chercheur'' SVP')
    else
    Chercheur_Table.Post;

Tradusction : si le champ est vide, on demande à l'utilisateur de le remplir, sinon en enregistre.
Mais ce n'est pas juste, ça exécute sans problème et tout, mais ça ne me donne pas le résultat que je veux : je laisse le champ vide expré, mais il n'affiche pas le message d'erreur.

[Cl@udius]

Salut

Tu peux essayer ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  if Chercheur_Table.FieldByName('Code_Ch').IsNull or
     Trim(Chercheur_Table.FieldByName('Code_Ch').Value) = '' then
    //...

@+ Claudius

[Yearning]

beaucoup Cl@udius
j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  if Chercheur_Table.FieldByName('Code_Ch').IsNull
     then Showmessage('Veuillez remplir le champ ''Code Chercheur'' SVP')
  else Chercheur_Table.Post;

et ça a marché!

N.B. Pour celle ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trim(Chercheur_Table.FieldByName('Code_Ch').Value) = ''

J'ai eu le message Types incompatibles : 'String' et 'Boolean'