Discussion :

[pierrot67]

Bonjour

Je voudrais insérer la date du jour à partir d'une table d'un module de donnée dans le "after insert" mais cela ne fonctionne pas.
il me dit opérateur ou point virgule manquant.

Code :

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

1
2
3
4
5
 
procedure TDataModule2.ComptantAfterInsert(DataSet: TDataSet);
begin
comptantdate.value:=(Date());
end;

Merci

[Bernard B]

Je ne suis pas spécialiste des base de données, mais je mettrais Date(Now)...

[SergioMaster]

Bonjour,

C'est plutôt l'événement qui peut poser soucis, il vaudrait mieux le mettre dans le BeforePost ou le OnNewRecord.
et enlever toutes ces parenthèses

Code :

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

1
2
3
4
5
procedure TDataModule2.ComptantNewRecord(DataSet: TDataSet);
begin
comptantdate.value:=Date;
// Dataset['Date'].asDateTime:=Date;
end;

ceci étant, indiquer la version de Delphi, le composant de connexion à base et même le SGBD peut aider

[pierrot67]

Merci à vous mais ça ne marche pas hors si je met un bouton sur une fiche et que je lui donne le même code tout fonctionne.
Le soucis est à partir d'une table d'un module de données que ça ne fonctionne pas.

[pierrot67]

Version delphi XE2 bd paradox

[SergioMaster]

Bonjour,
lorsque vous le faites par code (par un bouton) c'est que vous êtes en mode Edit.

le soucis est à partir d'une table d'un module de données que ça ne fonctionne pas.

Il n'y a aucune raison. S'il s'agit d'une Date de création alors le code devrait être dans le OnNewRecord sinon dans le BeforePost

[pierrot67]

oui et la ça fonctionne!

Code :

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

1
2
3
4
 
comptant.insert;
comptantDate.value:=(Date());
comptant.post;

Mais si je passe par la table ça ne marche pas il me dit opérateur ou point virgule manquant,
et si j'enlève les parenthèses il me dit que tdatetime ttable types incompatibles.