Discussion :

[tornade69]

bonjour a tous

j'utilise une base Access avec le Jet 4, j'ai deux tables identiques, je prend les valeur de l'une et je les stocke dans une autre. au passage je fais sur certain champs de modifications.

Mon problème c'est que les valeurs de la ligne précédente ce recopie sur la ligne suivante si la valeur est null (dans le champs)

Exemple
A B C
D E

lorsque je lance la procedure le fichier resultant aura les valeurs suivante
A B C
A D E

Je ne comprends pas pourquoi il recopie la valeur de A

voici le code (nb version simplifier)

base.MDB.Open;
base.import.open;
base.Valid.Open;
base.import.first;
while not base.Import.Eof do
begin
base.Valid.Insert;
base.ValidRep.Value:=trim(base.ImportRep.Value);
base.ValidTitre.Value:=trim(base.ImportTitre.value);
base.ValidPrenom.Value:=trim(base.ImportPrenom.Value);
base.ValidNom.Value:=trim(uppercase(base.ImportNom.Value));
base.ValidSte.Value:=trim(uppercase(base.importste.Value));
base.ValidService.Value:=base.ImportService.Value;
base.ValidFonction.Value:=base.ImportFonction.Value;
......
base.ValidWeb.Value:=base.ImportWeb.value;
base.Valid.Post;
base.Import.Next;
end;

[tornade69]

Après plusieurs test, je constate que si lors de la lecture de la base, la valeur du champs est null, alors la valeur recupéré est la valeur précedente.

Je n'y comprend plus rien

Merci pour votre aide
Tornade

[Rayek]

Pour ma part j'aurais fait plutot comme ça

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
 
var
i : integer;
begin
 
...
 
  With Base do
  begin
    Valid.Insert;
 
    // on va lire les champs de la table import 1 à 1
    for i := 0 to Import.Fields.Count -1 do
    begin
      try
      // on assigne le champ de la table import à ceux de la table valid
      valid.fieldByName(Import.fields.Fields[i].Name).assign(Import.Fields.Fields[i]);
      Except
        // si le champ existe pas ca evite une erreur et ca continue
      end;
    end;
    Valid.Post;
  end; // with
end;

Sauf erreur de frappe ca devrait fonctionner et bien sûr avec ce code les champs de la table valid doivent être les même que ceux de la table import

[tornade69]

Merci pour cette réponse, je vais la tester


c'est beau, c'est propre ...

Etant donnée que j'étais très presser sur ce fichier, j'ai résolu une partie du probleme en faisant des test sur isnull de chaque champs :

Code :

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

1
2
3
4
    if base.importrep.IsNull then
      base.ValidRep.Value:=''
    else
      base.ValidRep.Value:=trim(base.ImportRep.Value);

Pas très rapide, y avait 40 champs au total, mais bon fallait que ce fichier soit prèt pour midi, mais j'ai d'autre fichiers a traiter cette après midi, et je vais tester avec tas solutions, car elle va me faire gagner enormement de temps.

Merci