[AC-2007] Parcours des enregistrements d'une table liée [Résolu]

[oreoolep]

Bonjour,

Je voudrais lire les enregistrements d'une table liée. Le problème c'est que la méthode recordset ne semble marcher que sur des tables appartenant à la base :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function lire_enr_tbl1()
 
Dim champ1 As String
 
Dim Rs As DAO.Recordset
 
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenTable)
 
champ1 = Rs.Fields(0)
 
MsgBox champ1
 
End Function

Existe-t-il une méthode adaptée aux tables liées ?

Merci d'avance.

[Philippe JOCHMANS]

Bonjour

Si on peut, essayes en changeant dbOpenTable en dbOpenDynaset

Philippe

[GAYOT]

Bonjour
Cela marche avec les tables liées:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function lire_enr_tbl1()
 
Dim champ1 As String
Dim oDb As DAO.Database 
Dim Rs As DAO.Recordset
 
Set Odb = CurrentDb 
Set Rs = Odb.OpenRecordset("Table1", dbOpenSnapshot)
 
If Not Rs.EOF Then
   champ1 = Nz(Rs.Fields(0))
   MsgBox champ1
Else
   MsgBox "Pas d'enregistrement" 
End if
    Odb.close
    Set Odb = Nothing
    Set Rs = Nothing
 
End Function

Ah Philippe vient de passer, pendant que j'écrivais ::

[oreoolep]

Parfait cela marche, merci messieurs !