Discussion :

[snoopy69]

Bonjour à tous ...

Ma question est la suivante : Est-il possible de comparer le contenu de deux colonnes d'une même table ?

Voici un exemple :

Prennons la table :

TB_RESULTAT
nom_entreprise_access ....... nom_entreprise_slx
Entreprise_1 ...................... Entreprise_1
Entreprise_2 ...................... Entreprise_2
Entreprise_3......................Enttrreepprrise_3

Ce que je cherche à faire c'est faire ressortir la 3ème ligne de la table car il y a une différence entre les deux noms d'entreprise.

Le but de tout cela c'est de pouvoir comparer des noms d'entreprise et si il y a un changement alors je fais des mises à jour ...

Si vous avez une petite idée pour me donner un ptit coup de pouce cela serait volontiers ...

Merci d'avance pour votre aide ...

A tout bientôt ...

[Jeannot45]

Bonjour,

Simplement en utilisant une petite requete du style :

Code :

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

1
2
3
SELECT Table1.NomSocAccess
FROM Table1
WHERE Table1.NomSocAccess<>[NomSocXls];

Bonne journée

[Invité]

Bonjour

Tu dois pouvoir faire cela avec un code de ce style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim rst As DAO.Recordset
    Dim strSql As String
    strSql = "SELECT nom_entreprise_access, nom_entreprise_xls FROM TB_RESULTAT;"
 
    Set rst = CurrentDb.OpenRecordset(strSql)
    While Not rst.EOF
        If rst("nom_entreprise_access") <> rst("nom_entreprise_xls") Then
            ' ce que tu veux
        End If
        rst.MoveNext
    Wend
 
    rst.Close
    Set rst = Nothing

En utilisant DAO.

Remarque : J'ai tapé le code à la main, pas vérifié.

Starec

[snoopy69]

Merci pour vos réponses ..

C'est super ... une en SQL et l'autre en VBA ... c'est droit ce qu'il me fallait ...

Merci à vous deux ...

Je vais faire quelques tests et je posterai ma solution car cela peut peut-être aider qqn d'autre.

Merci d'avance pour votre aide ...

Salutations à tous ...

[Invité]

Re

En complément

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
Public Sub Comp()
    Dim rst As DAO.Recordset
    Dim strSql As String
    strSql = "SELECT nom_entreprise_access, nom_entreprise_xls FROM TB_RESULTAT;"
 
    Set rst = CurrentDb.OpenRecordset(strSql)
    While Not rst.EOF
        If rst("nom_entreprise_access") <> rst("nom_entreprise_xls") Then
            ' mise à jour
            CurrentDb.Execute "UPDATE TB_RESULTAT SET nom_entreprise_xls='" & rst("nom_entreprise_access") & "';"
        End If
        rst.MoveNext
    Wend
 
    rst.Clone
    Set rst = Nothing
 
End Sub

Cela devrait remplacer le nom de nom_entreprise_xls par le nom de nom_entreprise_access
Starec

[snoopy69]

Re ...

Merci vraiment pour votre aide ...

Alors j'ai fait quelques modifications et cela fonctionne parfaitement ...

Pour résumé le tout voici mon code et quelques commentaires en fin du post :

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
'** ENTREPRISE TABLE TB_CAHIER_CHARGE **
    Dim rst_EntrepriseCDC As DAO.Recordset
    Dim str_ReqEntrepriseCDC As String
    Dim var_PkCahierCharge As Variant
 
    '##### ENTREPRISE #####
        '** ENTREPRISE TABLE TB_CAHIER_CHARGE **
        Set base_donnee = Application.CurrentDb
        Set rst_EntrepriseCDC = base_donnee.OpenRecordset("REQ_NomEntrepriseTBCAHIERDESCHARGES")
        str_ReqEntrepriseCDC = ("SELECT ACCOUNT.ACCOUNTID, ACCOUNT.ACCOUNT, TB_CAHIER_CHARGE.nom_entreprise_avant_vente, TB_CAHIER_CHARGE.pk_cahier_des_charges FROM TB_CAHIER_CHARGE INNER JOIN ACCOUNT ON TB_CAHIER_CHARGE.num_reference_entreprise_slx = ACCOUNT.ACCOUNTID")
        Set rst_EntrepriseCDC = base_donnee.OpenRecordset(str_ReqEntrepriseCDC, dbOpenDynaset)
 
        'On parcourt le résultat de la requête ouverte précédement.
        While Not rst_EntrepriseCDC.EOF
            'On test si il y a une différence entre les deux noms.
            If rst_EntrepriseCDC("nom_entreprise_avant_vente") <> rst_EntrepriseCDC("ACCOUNT") Then
                'Récupération de la pk du CDC pour savoir quelle ligne il faut mettre à jour dans la requête suivante.
                var_PkCahierCharge = rst_EntrepriseCDC("pk_cahier_des_charges")
 
                'Si il y a une différence il faut mettre à jour les champs des tables correspondantes dans Access.
                CurrentDb.Execute "UPDATE TB_CAHIER_CHARGE SET nom_entreprise_avant_vente='" & rst_EntrepriseCDC("ACCOUNT") & _
                "' WHERE pk_cahier_des_charges LIKE'" & var_PkCahierCharge & "';"
            End If
        rst_EntrepriseCDC.MoveNext
        Wend

Comme vous pouvez le voir j'utilise le recordset avec une requête ... c'est plus pratique pour moi que faire de la copie de données à tort et à travers dans la base pour mettre à jour mes données.

Je rappel le but de ce code :
Avec ma requête je recherche tous les noms d'entreprise qui sont dans la table TB_1 et dans la table TB_2. Une fois que j'ai un résultat je teste si le nom de l'entreprise est différent d'une table à l'autre. Si il est différent je mets à jour le nom de l'entreprise dans ma table désirée. J'ai préalablement décidé quelle était la table "MAITRE" pour mettre à jour mes données.

Voila ...

Merci encore à tous pour votre aide ... j'espère que ce bout de code pourra aider des autres personnes ...

A tout bientôt ...