PROBLEME DANS ACCESS
Fermé
XZA1
Messages postés
4
Date d'inscription
mardi 27 novembre 2007
Statut
Membre
Dernière intervention
16 février 2011
-
Modifié par XZA1 le 3/02/2011 à 09:46
ralag Messages postés 15 Date d'inscription dimanche 27 février 2011 Statut Membre Dernière intervention 2 mars 2011 - 27 févr. 2011 à 14:09
ralag Messages postés 15 Date d'inscription dimanche 27 février 2011 Statut Membre Dernière intervention 2 mars 2011 - 27 févr. 2011 à 14:09
A voir également:
- PROBLEME DANS ACCESS
- Access appdata - Guide
- Acer quick access ✓ - Forum Windows
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Controller access network - Télécharger - Contrôle parental
- Hns-wan-access-port-fwd ✓ - Forum Réseau
3 réponses
Raymond PENTIER
Messages postés
58836
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 janvier 2025
17 275
3 févr. 2011 à 13:32
3 févr. 2011 à 13:32
NON.
Bonjour,
Je vais tenter de répondre, bien que mes connaissances d'access 2007 soit beaucoup moins vastes que celle de 2003.
Si vous avez mis en relation vos tables et appliqué l'intégrité référentiel, il vous sera impossible de faire ce que vous souhaitez, à moins de désactiver cette intégrité référentiel, ou bien de saisir exactement bien comme il faut les mêmes Noms et Adresses et tous ce dont vous avez besoin.
J'espère que cela pourra vous aider.
Cordialement,
Merik.
Je vais tenter de répondre, bien que mes connaissances d'access 2007 soit beaucoup moins vastes que celle de 2003.
Si vous avez mis en relation vos tables et appliqué l'intégrité référentiel, il vous sera impossible de faire ce que vous souhaitez, à moins de désactiver cette intégrité référentiel, ou bien de saisir exactement bien comme il faut les mêmes Noms et Adresses et tous ce dont vous avez besoin.
J'espère que cela pourra vous aider.
Cordialement,
Merik.
ralag
Messages postés
15
Date d'inscription
dimanche 27 février 2011
Statut
Membre
Dernière intervention
2 mars 2011
2
27 févr. 2011 à 14:09
27 févr. 2011 à 14:09
Bonjour,
voiçi une solution avec une fonction VBA et une requête en produit cartésien (sans jointure)
code VBA :
Function Fct_Vérif(ZP1, ZP2) As Double
Dim ZT1() As String
Dim ZT2() As String
Dim NB1 As Byte
Dim NB2 As Byte
Dim I1 As Byte
Dim I2 As Byte
Dim P As Double
ZT1 = Split(ZP1, " ")
ZT2 = Split(ZP2, " ")
NB1 = UBound(ZT1)
NB2 = UBound(ZT2)
For I1 = 0 To NB1
For I2 = 0 To NB2
If ZT1(I1) = ZT2(I2) Then
P = P + 1
End If
Next I2
Next I1
Fct_Vérif = P / (NB1 + 1)
End Function
Requête
SELECT T_1.Code1, T_1.Nom1, T_2.Code2, T_2.Nom2, Fct_Vérif([nom1],[nom2]) AS Pourcent
FROM T_1, T_2
WHERE (((Fct_Vérif([nom1],[nom2]))>0.5));
Le traitement peut être long et n'est pas parfait
voiçi une solution avec une fonction VBA et une requête en produit cartésien (sans jointure)
code VBA :
Function Fct_Vérif(ZP1, ZP2) As Double
Dim ZT1() As String
Dim ZT2() As String
Dim NB1 As Byte
Dim NB2 As Byte
Dim I1 As Byte
Dim I2 As Byte
Dim P As Double
ZT1 = Split(ZP1, " ")
ZT2 = Split(ZP2, " ")
NB1 = UBound(ZT1)
NB2 = UBound(ZT2)
For I1 = 0 To NB1
For I2 = 0 To NB2
If ZT1(I1) = ZT2(I2) Then
P = P + 1
End If
Next I2
Next I1
Fct_Vérif = P / (NB1 + 1)
End Function
Requête
SELECT T_1.Code1, T_1.Nom1, T_2.Code2, T_2.Nom2, Fct_Vérif([nom1],[nom2]) AS Pourcent
FROM T_1, T_2
WHERE (((Fct_Vérif([nom1],[nom2]))>0.5));
Le traitement peut être long et n'est pas parfait