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
Partager