Discussion :

[Filou78C]

Bonjour,

Je débute dans l'écriture des macros accees mais je connais les macro vba excel.

Je vais donc petit à petit....

Une simple question : quel est le code pour ouvrir une table ? j'ai trouvé ce code ci-dessous mais ça buggue...

Code :

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

Set rcd = Bd.OpenRecordset(TMF, dbOpenTable, dbDenyRead)

[Nodens_swiss]

Hello
http://access.developpez.com/faq/?page=Champs#NbChpTabl

Tu peux faire comme suite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NbDeChamps(NomTable as string) As Integer
On error goto err
Dim Db As DAO.Database
Dim T As DAO.TableDef
Set Db=CurrentDb
Set T=Db.Tabledefs(NomTable)
NbDeChamps=T.fields.count
While not T.eof
	Msgbox(T![le nom de ton champs]
	t.movenext
wend
err:
End Function