Discussion :

[hugues03]

Bonjour à tous,

Je cherche à vérifier par le biais d'une macro, la présence dans ma base de données Access, d'une donnée qui est dans un tableau croisé dynamique sous excel.

Je sais lire les données 1 à 1 aussi bien dans mon champs de tableau croisé dynamique que dans ma base de données Access mais je n'arrive pas à trouver le code pour me dire:

J'ai trouvé une donnée dans ton tableau croisé dynamique que tu n'as pas dans ta table de données Access, il faut mettre à jour votre base de données...

Merci par avance.

[mayekeul]

bonjour,

avant de te répondre.

comment fait tu pour lire les données access?

[hugues03]

Salut, pour faire une recherche avec une inpubox dans ma base de données Access je fais:

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
 
Sub recherche()
 
Dim Var1 As String
Var1 = InputBox("Titre", "Texte")
 
Dim db As Database
Dim rs As Recordset
 
Set db = DBEngine.OpenDatabase("C:\mabasededonnées.mdb")
var_requete = "select * from MaTable where Champs1;"
 
Set rs = db.OpenRecordset(var_requete)
Do While Not rs.EOF
    If Var1 = rs.Fields("Champs1") Then
    MsgBox "Var1 dans la base de données"
    Exit Sub
    Else
    End If
    rs.MoveNext
Loop
MsgBox "Var1 pas dans la base de données", vbCritical, "Information sur la recherche..."
rs.Close
end sub

Merci.

[mayekeul]

ben donc je pense que tu devrais faire simplement

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
 
Set db = DBEngine.OpenDatabase("C:\mabasededonnées.mdb")
var_requete = "select * from MaTable where Champs1;"
 
Set rs = db.OpenRecordset(var_requete)
ok=false
Do While Not rs.EOF
    If Var1 = rs.Fields("Champs1") Then
     ok =true
    MsgBox "Var1 dans la base de données"
    Exit Sub
    End If
    rs.MoveNext
Loop
if not ok then MsgBox "Var1 pas dans la base de données", vbCritical, "Information sur la recherche..."
rs.Close
end sub

[mayekeul]

sorry, je viens de voir, que je n'avais pas bien compris ta demande

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
 
Sub recherche()
 
Dim Var1 As String
 
Dim db As Database
Dim rs As Recordset
dim C as range
 
Set db = DBEngine.OpenDatabase("C:\mabasededonnées.mdb")
var_requete = "select * from MaTable where Champs1;"
 
Set rs = db.OpenRecordset(var_requete)
for each C in range("A1:A10").cells 'range est donné a titre d'exemple, il faut adapter selon ton cas
Do While Not rs.EOF
    If Var1 = rs.Fields("Champs1") Then
         MsgBox "Var1 dans la base de données"
         Exit Sub
    End If
    rs.MoveNext
Loop
rs.movefirst
next c
MsgBox "Var1 pas dans la base de données", vbCritical, "Information sur la recherche..."
rs.Close
end sub

[hugues03]

Merci pour ta réponse, mais ca ne fonctionne pas...

J'ai beau y mettre dans tout les sens ca ne veut pas...

Soit ca me met tout les valeurs de mon tableau croisé ou soit ca me met uniquement la dernière valeur...

Je ne comprend pas pourtant quand on lit le code ca devrait fonctionner...