Re : Recordset access sous Excel
Re, j'ai un peu avancé mais j'ai toujours des recordset qui ne fonctionnent pas, j'aurai bien envie de vous montrer ma base ACCESS mais je ne peux pas car pas possible de mettre en pièce jointe.
voici mon code ( ça bloque a partir de requete_cdp (erreur type) puis client (trop peu de paramètre: 1attendu):
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
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