Discussion :

[helenafr]

Bonjour!
Voilà un sub pour trouver les différences des colonnes "demand" et "stock".
j'aimerais demander que, dans IF-END IF, quand il trouve une différence s et d, comment trouver en meme temps l'index de cette ligne?
1.Supposons que la table "Difference" comprend seulement 3 champs: Index, demand, stock
2. mais quand l'index de la table est basé sur 3 champs, par ex: Nom, Prenom, age ---- 3 clé première; comment sortir l'index?

merci!

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
 
 
Sub test()
    Dim s
    Dim DB As DAO.Database
    Dim RS As DAO.Recordset
    Set DB = Application.CurrentDb
    Set RS = DB.OpenRecordset("Difference", dbOpenTable, dbReadOnly)
    RS.MoveFirst
    Do
        If CStr(RS.Fields("demand").Value) <> CStr(RS.Fields("stock").Value) Then
            s = RS.Fields("Stock").Value
            d=RS.Fields("demand").Value
            MsgBox s
        End If
    RS.MoveNext
    Loop Until RS.EOF = True
    RS.Close
    Set RS = Nothing
    Set DB = Nothing
End Sub

[argyronet]

Bonjour,

Voici un exemple:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Function GetIndexes(ByVal TableName As String) As String()
Dim oDB As Database
Dim oTDF As TableDef
Dim oRS As Recordset
Dim oIDX As Index
Dim strIndexes() As String
Dim I As Integer
 
 
  Set oDB = CurrentDb
  Set oRS = oDB.OpenRecordset(TableName)
  Set oTDF = oDB.TableDefs(TableName)
 
  With oRS
      For Each oIDX In oTDF.Indexes
        I = I + 1
        ReDim Preserve strIndexes(1 To I)
        strIndexes(I) = oIDX.Name
      Next oIDX
  End With
  oDB.Close
  Set oDB = Nothing
  Set oRS = Nothing
  Set oTDF = Nothing
  GetIndexes = strIndexes()
  Erase strIndexes()
End Function
 
Sub Test()
Dim strTableName As String
Dim strIndexes() As String
Dim I As Integer
 
  strTableName = "Difference"
  strIndexes() = GetIndexes(strTableName)
  For I = LBound(strIndexes()) To UBound(strIndexes())
    Debug.Print I & "e Index = " & strIndexes(I)
  Next
End Sub

Argy

[Tofalu]

A vrai dire je n'ai pas compris la question

[helenafr]

supposons que la table Difference est :

Code :

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

1
2
3
4
 
pays   company    old.manager    new.manager       old.scope      new.scope
A        a            aa!               aa              aaa             aaa
B        b            bb                bb              bbb             bbbb

Le code suivant compare les 2 champs "old.scope" et "new.scope".
et n1,n2 retour la différence. (Ici le résultat est : n1=bbb, n2= bbbb)

Le problème est: comme je peux retour l'index de la ligne qui correspond la différence "bbb, bbbb", dans IF-ENDIF? c'est à dire, comment trouver:Index_company = "bb" finalement ?

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
 
Sub test() 
    Dim n1,n2
    Dim DB As DAO.Database 
    Dim RS As DAO.Recordset 
    Set DB = Application.CurrentDb 
    Set RS = DB.OpenRecordset("Difference", dbOpenTable) 
    RS.MoveFirst 
    Do 
        If CStr(RS.Fields("old.scope").Value) <> CStr(RS.Fields("new.scope").Value) Then 
            n1  = RS.Fields("old.scope").Value 
            n2 =RS.Fields("new.scope").Value 
           'comment trouver:Index_company = "bb" finalement ? 
            Index_company =?
            MsgBox n1, n2 
        End If 
    RS.MoveNext 
    Loop Until RS.EOF = True 
    RS.Close 
    Set RS = Nothing 
    Set DB = Nothing 
End Sub

[/quote]

[helenafr]

salut argyronet, merci de ton exemple
mais il parait un peu compliqué, en fait, ce que je veux est seulement d'ajouter une ligne dans IF-ENDIF , pour trouver l'index de n1 et n2, quand n1!= n2
il y a une commande pour trouver l'index?
merci!

[Tofalu]

C'est quoi que tu appelles l'index ? Parce qu'à vrai dire, ce n'est toujours pas clair

[helenafr]

je veux dire Clé-première.
ca peut etre un seul champ, comme NOM; et aussi peut etre plusieurs champs, comme NOM, Prenom, Age

[random]

le problème c'est de savoir dans quel ordre prendre les champs
les plus discrimants en premier ou dans l'ordre
si c'est dans l'ordre c'est assez facile
tu constitues une chaine unique par concaténation de tous les champs
et tu testes pour 1 to len si gauche de chaine reste identique la première occurence distincte te donne ta clef il te reste à savoir combien de champs sont impliqués
si c'est avec recherche d'optimal je ne sais pas comment je ferais
mais on peut envisager une procédure récursive testant les combinaisons
on doit pouvoir l'améliorer en calculant un indice de dispersion par axe
par exemple dans une entreprise la date de naissance doit avoir un coefficient discriminant assez fort

nb en termes de bases de données on choisit une clef indépendante des données