Discussion :

[Just-Soft]

Bonjour

J'ai écris une exception dans le OnValidate d'un champ d'une table de données mais en faisant une compilation pas à pas je m'aperçois que ce bout de programme n'est jamais appelé ! que peut-être l'erreur ?
Composant ADO
BD Access
Delphi 7

Merci par avance

[liazidf]

Salut Just,
il serait préférable d'utiliser le onchange, car si j'ai bien compris l'exception se déclenche lors des changements de valeur.

[SergioMaster]

Bonjour ,

J'ai souvent utilisé le OnValidate avec succès , très pratique .
Bien sur celui ci n'est appelé que lors d'un Post . C'est peut-être ça le hic ?

[Just-Soft]

Bonjour ,

J'ai souvent utilisé le OnValidate avec succès , très pratique .
Bien sur celui ci n'est appelé que lors d'un Post . C'est peut-être ça le hic ?

Très logique et c'est ce qui m'étonne de plus en plus, je fais un F5 sur le post mais jamais le code du OnValidate du champ en question n'est évoqué, j'ai compilé en pas à pas pour voir mais rien, il l'ignore comme s'il n'existait pas !

[SergioMaster]

Étonnant !
une option manquante/mise quelque part dans tes composants peut-être ?
Difficile de pouvoir le dire en n'ayant que du théorique. Le cas ne m'est jamais arrivé donc je n'ai pas de piste a proposer.

Quand j'ai un problème de ce genre je refais un petit programme test utilisant juste la fonction a tester . Je pose les composants avec leur valeurs par défauts et ensuite le debug pour tracer tout ca . Evidemment généralement ca fonctionne alors la suite logique est de détecter la différence (pourtant évidente mais que l'on a pas vue )

[Just-Soft]

Salut Just,
il serait préférable d'utiliser le onchange, car si j'ai bien compris l'exception se déclenche lors des changements de valeur.

Merci mais ce n'est pas ce que je cherche.

[TryExceptEnd]

Bonjour

J'ai écris une exception dans le OnValidate d'un champ d'une table de données mais en faisant une compilation pas à pas je m'aperçois que ce bout de programme n'est jamais appelé ! que peut-être l'erreur ?
Composant ADO
BD Access
Delphi 7

Merci par avance

Et quel est le code que vous avez écrit ?

[Just-Soft]

Bonjour

un code très simple dont voici un exemple sur le champ nom_prenom

Code :

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

1
2
3
4
5
procedure TDModuleAdo.TClientsNom_PrenomValidate(Sender: TField);
begin
  if (TClientsNom_Prenom.Value = '') then
    raise Exception.CreateFmt('Champ à renseigner obligatoirement de l''enregistrement %d', [TClients.RecNo]);
end;

[SergioMaster]

j'aurais plutôt mis Sender.value , le dataset n'est pas encore modifié , puisque on teste AVANT sa modification (c'est du moins comme cela que je l'entend) .

Code :

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

1
2
3
4
5
procedure TDModuleAdo.TClientsNom_PrenomValidate(Sender: TField);
begin
  if (sender.Value = '') then
    raise Exception.CreateFmt('Champ à renseigner obligatoirement de l''enregistrement %d', [TClients.RecNo]);
end;

Edit . PS , j'aurais aussi plutôt mis un asString que value ou un isNull . Un Trim également pour éviter des Espaces malins

[Just-Soft]

j'aurais plutôt mis Sender.value , le dataset n'est pas encore modifié , puisque on teste AVANT sa modification (c'est du moins comme cela que je l'entend) .

Code :

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

1
2
3
4
5
procedure TDModuleAdo.TClientsNom_PrenomValidate(Sender: TField);
begin
  if (sender.Value = '') then
    raise Exception.CreateFmt('Champ à renseigner obligatoirement de l''enregistrement %d', [TClients.RecNo]);
end;

Edit . PS , j'aurais aussi plutôt mis un asString que value ou un isNull . Un Trim également pour éviter des Espaces malins

C'était mon 1er essai et ça n'a rien donné. Je viens de tester avec isNull mais rien aussi.

En complément, j'ajoute le code qui devrait, normalement, provoquer l'appel à OnValidate

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TfrmClient.bValiderClick(Sender: TObject);
begin
  try
    dbDate_debut.Visible := True;
    DateTimePicker1.Visible := False;
    etat_groupe_boutton(True);
 
    // date
    DModuleAdo.TAbonnementsdebut_abn.Value := DateTimePicker1.DateTime;
 
    // code
    DModuleAdo.TAbonnementsCode_client.Value := DModuleAdo.enr_cours + 1;
 
    // type abonnement
    case DModuleAdo.TTypescode_type_abn.Value of
      1 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 30;   // mensuel
      2 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 91;   // trimestriel
      3 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 182;  // semestriel
      4 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 365;  // annuel
    end;
 
    // état de l'abonnement
    if ((DModuleAdo.TAbonnementsdebut_abn.Value >= now) and (now < DModuleAdo.TAbonnementsfin_abn.Value)) then
      DModuleAdo.TClientsActive.Value := True
    else DModuleAdo.TClientsActive.Value := False;
    DModuleAdo.TClients.Post; // c'est là où le code devrait être évoquer mais rien ne se passe !!
 
  Except
    ShowMessage('Problème lors de la sauvegarde de l''enregistrement');
  end;
  etat_groupe_boutton(True);
end;

[TryExceptEnd]

En complément, j'ajoute le code qui devrait, normalement, provoquer l'appel à OnValidate

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TfrmClient.bValiderClick(Sender: TObject);
begin
  try
    dbDate_debut.Visible := True;
    DateTimePicker1.Visible := False;
    etat_groupe_boutton(True);
 
    // date
    DModuleAdo.TAbonnementsdebut_abn.Value := DateTimePicker1.DateTime;
 
    // code
    DModuleAdo.TAbonnementsCode_client.Value := DModuleAdo.enr_cours + 1;
 
    // type abonnement
    case DModuleAdo.TTypescode_type_abn.Value of
      1 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 30;   // mensuel
      2 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 91;   // trimestriel
      3 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 182;  // semestriel
      4 : DModuleAdo.TAbonnementsfin_abn.Value := DateTimePicker1.DateTime + 365;  // annuel
    end;
 
    // état de l'abonnement
    if ((DModuleAdo.TAbonnementsdebut_abn.Value >= now) and (now < DModuleAdo.TAbonnementsfin_abn.Value)) then
      DModuleAdo.TClientsActive.Value := True
    else DModuleAdo.TClientsActive.Value := False;
    DModuleAdo.TClients.Post; // c'est là où le code devrait être évoquer mais rien ne se passe !!
 
  Except
    ShowMessage('Problème lors de la sauvegarde de l''enregistrement');
  end;
  etat_groupe_boutton(True);
end;

Je ne vois pas ou le champ Nom/Prenom est modifié dans ton code ?