Discussion :

[Razmote]

Bonjour à tous,

Je savais pas ou poser ma question, je la mets ici en espérant que ça soit le bon endroit.

J'ai 2 base de données Accès 2010 à comparer au niveau du code VB.

J'ai des outils pour faire de la comparaison de texte qui me permettent de coller du code des 2 bases pour voir les différences.

Le souci c'est que, dans une des 2 bases accès j'ai des mots clés qui contiennent des majuscules et dans l'autre non.

J'ai cherché dans les options d'accès et dans le module de saisie du code si il 'y avait des différences et je n'ai rien trouvé.

Par exemple j'ai comme différence :
Err.Number et err.Number
rs.Source et rs.source

Ca n'est pas génant pour le fonctionnement d'accès mais c'est assez embêtant quand on cherche les différences entre 2 modules VB car il y a plein de différences sur la casse.

Si quelqu'un à une idée...

Merci d'avance.

[Invité]

Bonjour,
tu peux te faire un dictionnaire, ou considérer que la police de la base1 est conforme et pas la base2!

Code avec dictionnaire :

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

1
2
3
4
5
6
7
Sub test()
Dim rplce
rplce = Array("Err.Number", "Chevale", "Autruche") 
For i = 0 To UBound(rplce)
    CurrentDb.Execute "update Table set  [User]=Replace([User],'" & rplce(i) & "','" & rplce(i) & "') "
Next
End Sub

Code Base1 Ok Base2 Ko :

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

Sql = "update table innert join (select [User] from table in 'c:\rep\base1.accdb') as frm on table.[User]=frm.[User] set table.[User]=frm.[User]"

[Razmote]

Salut rdurupt,

Mon souci c'est que si je corrige manuellement err.Number par Err.number ça revient automatiquement en err.Number...

Et j'ai pas trop compris le coup de ton dictionnaire... tu veux remplacer tous les caractères par programmation ?

J'ai cité 2 exemples mais j'ai surement d'autres mots qui sont dans le même cas...

Merci pour ton aide.

[Invité]

c'est bien pour cela que je t'ai proposé 2 solution une par un replace à partir d'un dictionnaire que tu construis!

l'autre en considérant comme valide les données de la base1 et non valide es données de la base2!

ainsi les information commune au inner join auront la même police car par définition elles ont déjà la même valeur!

Mon souci c'est que si je corrige manuellement err.Number par Err.number ça revient automatiquement en err.Number...

ne confonds as ce que tu fais manuellement et ce que tu fais par requête!

[Razmote]

Ok, j'ai bien compris

J'aurai quand même bien voulu savoir d'ou pouvait venir cette différence, parce que j'ai cherché partout et je n'ai pas trouvé...

Merci