Access
Bonjour,
strChemin = CurrentProject.Path
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
'ouverture du document Word
wApp.Documents.Add Template:=strChemin & "\contrat.dot", NewTemplate:=False, DocumentType:=0
stSQL01 = "Select * from tblcontrat where idcontrat =" & idctrt
mais ca ne marche pas
strChemin = CurrentProject.Path
Set wApp = New Word.Application
wApp.Visible = True 'permet d'afficher à l'écran le transfert de texte
'ouverture du document Word
wApp.Documents.Add Template:=strChemin & "\contrat.dot", NewTemplate:=False, DocumentType:=0
stSQL01 = "Select * from tblcontrat where idcontrat =" & idctrt
mais ca ne marche pas
Configuration: Windows XP Firefox 2.0.0.20
2 réponses
-
I manque un morceau là
stSQL01 = "Select * from tblcontrat where idcontrat =" & idctrt
Où mets-tu "stSQL01",
A ma connaissance, les intructions SQL se terminent toujours par un ";" sous Access
Peut-être est il ajouté dans ton code à la suite de "stSQL01"... -
SALUT
NON CA NE MARCHE PAS
PEUX TU ME FAIRE UN PETIT EXEMPLE ET ME L ENVOYER PAR MAIL
comment faire pour genere sur un document word a partir de donnees d une bdd access
