Discussion :

[creal]

Bonjour,
Voila j'ai un projet informatique compliqué à réaliser. Il faut à partir d'EXCEL pouvoir modifier et ajouter des enregistrements dans ACCESS. Je m'occupe de la partie modification et c'est compliqué, je souhaite au départ en sélectionnant un numero, nom et prenom d'un individu obtenir toutes les infos le concernant (client, personne qui traite le dossier, chef de projet, lieux de suivi etc.. Puis je souhaite pouvoir modifier les données mais c'est la galère, voici mon code( dès que les lignes de code sont en commentaire ça ne fonctionne pas):

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Sub affichage_modification()
Dim requete_suivis As String
Dim requete_candidat As String
Dim requete_bu As String
Dim requete_client As String
Dim requete_consultant As String
Dim requete_presta As String
Dim requete_region As String
Dim requete_cdp As String
Dim Db, db1 As Database
Dim rs_suivis As Recordset
Dim rs_candidat, rs_client, rs_bu, rs_consultant, rs_presta, rs_region, rs_cdp As Recordset
Dim num_ville, num_region, num_client, num_bu, num_consultant, num_presta, num_cdp As Integer
Set Db = OpenDatabase(chemin)
 
 
 
 
requete_candidat = "select * from [CANDIDATS] where CANDIDATS.no_candidat= " & num_cible
Set rs_candidat = Db.OpenRecordset(requete_candidat, dbOpenDynaset)
 
num_ville = rs_candidat(4)
num_region = rs_candidat(5)
num_client = rs_candidat(3)
 
requete_region = "select * from [LIEUX SUIVI REGION] where [LIEUX SUIVI REGION].code_suivi_region=" & num_region
 Set rs_region = Db.OpenRecordset(requete_region, dbOpenDynaset)
 User_modification_client.zt_region = rs_region(1)
 num_cdp = rs_region(2)
 
 
 'requete_cdp = "select * from [CHEFS PROJET] where [CHEFS PROJET].code_chef=" & num_cdp
 ' requete_cdp = "select * from [CHEFS PROJET], [CANDIDATS] where CANDIDATS.no_candidat= " & num_cible
'Set rs_cdp = Db.OpenRecordset(requete_cdp, dbOpenDynaset)
 
 'User_modification_client.zt_chef = rs_cdp(1)
 'User_modification_client.E_mail_cdp = rs_cdp(3)
 'User_modification_client.tel_cdp = rs_cdp(4)
 
'requete_client = "select * from [CLIENTS] where [CLIENTS].nocli=" & num_client
'Set rs_client = Db.OpenRecordset(requete_client, dbOpenDynaset)
'User_modification_client.zt_nom_dossier = rs_client(1)
 
 
'rs_client.Close
'rs_candidat.Close
 
 
 
 
 
'requete_suivis = "select * from [SUIVIS] where SUIVIS.no_candidat=" & Str(num_cible) & ""
 
'Set rs_suivis = Db.OpenRecordset(requete_suivis, dbOpenDynaset)
 
'User_modification_client.zl_dem = rs_suivis(3)
'User_modification_client.zt_date_fin_reelle = rs_suivis(4)
'User_modification_client.zl_presta = rs_suivis(5)
'num_consultant = rs_suivis(1)
'num_presta = rs_suivis(6)
'rs_suivis.Close
 
'requete_presta = "select * from[PRESTATIONS] where PRESTATIONS.code_presta=num_presta"
'Set rs_presta = Db.OpenRecordset(requete_presta, dbOpenDynaset)
'User_modification_client.zl_presta = rs_presta(1)
 
 
'requete_consultant = "select * from [CONSULTANTS] where CONSULTANTS.no_consultant=" & num_consultant
'Set rs_consultant = Db.OpenRecordset(requete_consultant, dbOpenDynaset)
'User_modification_client.zt_consultant = rs_consultant(1)
'User_modification_client.zt_prenom_consultant = rs_consultant(2)
'num_bu = rs_consultant(4)
 
 
'requete_bu = "select * from [BU] where BU.code_bu= " & num_bu
'Set rs_bu = Db.OpenRecordset(requete_bu, dbOpenDynaset)
'User_modification_client.zl_bu = rs_bu(1)
 
'Db.Close
End Sub

Help c'est super compliqué! Merci!!!

[Invité]

je suppose que tu dispose d'Access?
si oui, effectues ta requête dans Acces, puis passe en mode SQL et copies la requête au format texte dans ton VBA.

n'oublis pas que tu peux faire de INNER JOIN :

Code :

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

1
2
Sql = "select * from [CANDIDATS]   INNER JOIN [LIEUX SUIVI REGION]"
Sql = Sql & " On [LIEUX SUIVI REGION].code_suivi_region= CANDIDATS.num_cible where CANDIDATS.no_candidat= " & num_cible

Code :

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

sqlSelect="Select [Champ1], [Champ2] from Table where ??=??;"

Code :

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

sqlSelect2="Insert into table1 (Champ1,Champ2) Values ('AAA',10);"

Code :

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

sqlSelect3="insert into Table1 (select * from Table2 where Champ2=10);"

Code :

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

sqlSelect4="Update Table set Champ1='TITI' where Champ2=10;"

[creal]

Merci, je vais essayer. mais je connais pas bien inner join. Je suis débutant en sql....

[Invité]

Merci, je vais essayer. mais je connais pas bien inner join. Je suis débutant en sql....

utilise Access tous ce fait en mode graphique.
test ta rquête et commute en fenêtre Sql.

[creal]

re, j'y arrive pas bien. Normalement j'avais mis mon fichier ACCES en fichier joint, en fait il faut que ça s’enchaîne avec le numero du candidat, je trouve le numero du client et apres normalement je peux tout trouver mais la j'y arrive pas avec l'assistant de requête....

ça aurait été bien si en une requête je peux avoir tout mes champs, tu penses c'est possible?

[creal]

re, j'ai réussi ma requête mais c'est difficile de la mettre sous excel, la voiila:

Code :

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

1
2
3
SELECT  BU.lib_BU, CONSULTANTS.*, PRESTATIONS.lib_presta, [CHEFS PROJET].*, [LIEUX SUIVI REGION].lib_region, CLIENTS.nom_cli, CANDIDATS.*, SUIVIS.*, [LIEUX SUIVI VILLE].nom_ville
FROM ((BU INNER JOIN CONSULTANTS ON BU.code_BU = CONSULTANTS.code_BU) INNER JOIN (CLIENTS INNER JOIN (PRESTATIONS INNER JOIN ((([CHEFS PROJET] INNER JOIN [LIEUX SUIVI REGION] ON [CHEFS PROJET].code_chef = [LIEUX SUIVI REGION].code_chef) INNER JOIN CANDIDATS ON [LIEUX SUIVI REGION].code_suivi_region = CANDIDATS.code_suivi_region) INNER JOIN SUIVIS ON CANDIDATS.no_candidat = SUIVIS.no_candidat) ON PRESTATIONS.code_presta = SUIVIS.code_presta) ON CLIENTS.no_cli = CANDIDATS.no_cli) ON CONSULTANTS.no_consultant = SUIVIS.no_consultant) INNER JOIN [LIEUX SUIVI VILLE] ON ([LIEUX SUIVI VILLE].code_suivi_ville = CANDIDATS.code_suivi_ville) AND ([LIEUX SUIVI REGION].code_suivi_region = [LIEUX SUIVI VILLE].code_suivi_region)
WHERE (((CANDIDATS.no_candidat)=121) AND (([LIEUX SUIVI REGION].code_suivi_region)=[CANDIDATS].[code_suivi_region]) AND (([CHEFS PROJET].code_chef)=[LIEUX SUIVI REGION].[code_chef]) AND ((CLIENTS.no_cli)=[CANDIDATS].[no_cli]) AND (([LIEUX SUIVI VILLE].code_suivi_ville)=[candidats].[code_suivi_ville]) AND ((SUIVIS.no_candidat)=[candidats].[no_candidat]) AND ((SUIVIS.no_consultant)=[CONSULTANTS].[no_consultant]) AND ((PRESTATIONS.code_presta)=[suivis].[code_presta]));

[Invité]

si il n'y a pas de données confidentielles, Zip ta base et joins le zip.
si non fais une base avec des datas bidons.