Bonjour


J'ai quelques problemes dans un probleme que je "tente" de developper depuis quelques temps.

J'ai disposer sur une meme page des DBEdit et DBComboBox, reliés a differentes base de donnees acces, par l'intermediaire de diverses datasources.
Mon bouton de validation de ressemble a ceci :

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
 
procedure TForm4.Button1Click(Sender: TObject);
begin
  With Datamodule2.Adoquery1 do
  begin
    // Vérifie si on a fait des modif ou non
   // if State in [dsInsert,dsEdit] then
      Post; // valide les données
  end;
  begin
  With Datamodule2.Adoquery10 do
  begin
  //  if State in [dsInsert,dsEdit] then
      Post;
  end;
  begin
  With Datamodule2.Adoquery2 do
  begin
  //  if State in [dsInsert,dsEdit] then
      Post; 
 
.........
Comme c'est indiquer ce code est senser verifier s'il y a eu des modifications dans les champs ou non... mais cela ne fonctionne pas
Je me retrouve avec une erreur du type:
- identificateur non declare: dsinsert
- Type incompatible : Tdatasetstate et integer

Et si je les enleve (comme c'est le cas actuellement avec les //) et que je ne modifie pas TOUT les champs j'ai une erreur me disant que tels ou tels AdoQuery n'est pas en mode insertion / edition...

Pourvez vous m'aider a corriger mon code de verification ?
Merci d'avance