Discussion :

[mlww]

Bonjour,
Je n'arrive pas a lire mes enregistrement sur un table liée
pourtant se code fonctionne parfaitement sur une autre table de ma bdd

Si quelqu' un pourrait m' aider, merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Var_Para_Contact = 0: Var_Para_SerV = 0
Var_Para_AdrLiv = 0: Var_Para_AdrFac = 0
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT Para_Contact,Para_SerV,Para_AdrLiv,Para_AdrFac from Parametres", dbOpenDynaset)
Var_Para_Contact = oRst.Fields("Para_Contact")
Var_Para_SerV = oRst.Fields("Para_SerV")
Var_Para_AdrLiv = oRst.Fields("Para_AdrLiv")
Var_Para_AdrFac = oRst.Fields("Para_AdrFac")
Set oRst = Nothing
Set oDb = Nothing

[jimbolion]

mlww,

Même si ce code ne permet la lecture que d'un seul enregistrement, il fonctionne.

As tu un message d'erreur ?

Es tu réellement sûr qu'il ne fonctionne pas ? Ta table contient elle des enregistrements ? As tu essayé de mettre un point d'arrêt sur ton code pour suivre son déroulement ?

En créant une nouvelle requête et en copiant/collant en mode SQL dans le volet de navigation d'Access celle ci te retourne t'elle des valeurs ?

Code sql :

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

SELECT Para_Contact,Para_SerV,Para_AdrLiv,Para_AdrFac from Parametres

Es tu sûr du nom de ta table et de tes champs ?

Jimbolion

[mlww]

J'ai pas compris,

j'ai retapé tout mon code
et maintenant ca marche
Navre pour le post inutile
Mais merci d'avoir repondus

[jimbolion]

mlww,

Finalement ni toi ni moi n'avons compris l'origine de l'erreur et afin de ne pas mourir idiots, peux tu poster ton nouveau code afin d'identifier l'erreur initiale ?

Jimbolion