[Conception]Duplication de données

[thierrybatlle]

Bonjour,

Je souhaite enregistrer des données d'un champ d'une table dans une autre table, mais avant d'insérer les données je veux faire une comparaison de la donnée à insérer avec celles déjà insérées, pour éviter les redondances.

Comment faire?

Merci.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub btn_four_Click()
    Dim tableClient As DAO.Recordset
    Dim tableRev As DAO.Recordset
 
    Set tableClient = CurrentDb.OpenRecordset("CLIENTS")
    Set tableRev = CurrentDb.OpenRecordset("T_revendeurs")
 
    While Not tableClient.EOF
        'tableRev.Edit
        While Not tableRev.EOF
            If Trim(tableClient!rev) <> Trim(tableRev!nom_rev) Then
                tableRev!nom_rev = Trim(tableClient!rev)
                tableRev.Update
            End If
        Wend
    Wend

[Philippe JOCHMANS]

Bonjour

Au lieu d'imbriquer 2 recordset, utilise la fonction DLookup, pour la syntaxe.

Tu test avec cette fonction s'il y'a la valeur dans ta deuxième table, tu fais un test, si la valeur est nulle, tu ajoutes.

Petite remarque ton code est pas mal, cependant tu auras une boucle infinie, regarde les méthodes du recordset sur MoveNext.

Que faisait ton code ?, Je suis sûr qu'il ne s'arrêtait jamais.

Starec

[thierrybatlle]

Bonjour,

j'ai regardé l'aide et je ne vois pas trop comment l'employer.
Sans vouloir être exigeant, comment peu se traduire mon code avec cette fonction.

Merci bien.