Discussion :

[pedro91]

Access version 2003 SP1

J'utilise deux fichiers access, un pour le programme (requetes, formulaires et autres) et un contenant uniquement les tables. A part quelques tables contenant des données d'archives, les tables actives sont donc liées.

Jai trouvé sur le site une procédure dans le cours de manipulation de données sous DAO au 5.4.3 mais, comme il est dit au 5.2 dans la description des types de recordset,

Code :

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

oDb.Openrecordset([Table],dbopentable)

ne fonctionne pas avec des tables liées. Comment faire?

En fait le but est d'ouvrir dans une table T1 au moins autant d'enregistrements qu'il en figure dans une table T2 périodiquement importée depuis un fichier Excel : la mise a jour des divers champs par des requetes mise à jour ne pose alors plus problème. J'ai donc besoin de tester le nombre d'enregistrement dans chaque table sous VBA puis créer si nécessaire les manquants.

Merci d'avance pour les conseils

[Heureux-oli]

Salut,

Avec une table liée, on n'y arrive pas, mais on peut y arriver autrement.

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
Sub AjoutDonnees()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
 
sql = "Select * from T1"
 
 
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
 
Debug.Print rs.RecordCount
rs.Edit
 
rs.AddNew
rs.Fields("Nom") = "Heureux-oli"
rs.Update
 
 
 
rs.Close
Set rs = Nothing
Set db = Nothing
 
End Sub

La différence est que je passe par une clause SQL pour ouvrir le jeu d'enregistrements.

[vodiem]

salut Heureux-oli et bienvenu pedro91,

sinon tu peux aussi ouvrir en dbOpenDYNASET,
tu n'as plus droit à Seek mais il y a FindFirst je t'ai trouvé un exemple ici

[Heureux-oli]

Sinon, il y a un tuto sur le DAO ici http://warin.developpez.com/access/dao/