[AC-2003] Requete Access - Word 2003

[pepleloup]

Bonjour, j'ai cree une table appellee une tableTaglist en Access 2003 dans laquelle figurents les champs: Tag-Sous-systeme-Form.
Exemples:
Tag Form Sous-systeme
1 12 1A
2 13 2A
3 11 3A

Les differents 'form' (11-12-13,...) sont en word et stockes sur le bureau.
Pourriez-vous, svp, me dire comment obtenir un menu deroulant qui me demande le No du Tag pour ensuite aller rechercher le Form correspondant et l'ouvrir en Word avec les champs Tag et sous-systemes deja remplis.
Merci par avance.
Giuseppe

[FtF Nemesis]

Explique un peu mieux stp. Tes numéro lié au tag sont dans une table avec eux, dans un autre champs ou non ????

[FtF Nemesis]

Je crois que j'ai compris: alors:
-tu met une liste déroulante (Access seulement)
- Dans ses propriété tu met en source ta table et le champs "tag"
-tu place un bouton à côté
- tu ajoutes une procédure VBA à ton boutton :

Code :

1
2
3
4
5
6
dim a as integer, Record as dao.recordset
 
a= Forms![NomDuForm].NomDeLaListDeroulante.Value
set Record  =currentdb.openrecordset("NomDeLaTable",dbopentable)
Record.index="NomDeLIndexDeLaTable"
Record.seek"=",a

Je finirai demain matin là je doit partir, désolé

Hadrien

[FtF Nemesis]

Donc ensuite, maintenant que tu as trouvé l'enregstrement correspondant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim NomWord As String, Chemin as string 'à mettre au début
Dim wdapp As Object 'à mettre au début
 
NomWord= Record!NomDuChampWord
NomWord=NomWord & ".doc
' ou NomWord=NomWord & ".docx selon le format
 
Chemin= "C/User/Bureau ' Par exemple, c'est l'adresse du bureau ou sont tes words
 
NomWord = Chemin & "/" & NomWord
 
Set wdapp = CreateObject("Word.Application")
wdapp.Visible = True
wdapp.Documents.Open (NomWord), ReadOnly:=Moddd  'ouverture du word
 
Record.close
Set wdapp = Nothing
set Record =nothing

Voila, il te suffit juste de l'adapter à tes nom de table et de champs