Exportation du contenu d'un champ dans un formulaire word
jeje
-
3 juil. 2000 à 11:29
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
27 juil. 2007 à 15:50
bonjour,
je voudrais envoyer dans un champs d'un formulaire word le contenu d'un champs "mémo" d'une base access.
pb: mon champs fait plus de 255 caractères. Et lors de l'expoartation j'ai une erreur : string too long.
Extrait de mon code:
Set db = CurrentDb
'création d'un pointeur sur Word
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
'ouverture du fichier spécifique
oApp.Documents.Open Filename:=nomrep & "\extractortemplatetest"
'boucle pour parcourir l'interval d'ORs spécifié
For num = mini To maxi
With oApp.activeDocument
fic = nomrep + "\or" & num & ".doc"
'.saveas fic
'récupération de toutes les information de l'OR num
ssql = "select * from incident where [or reference]=" & num
Set rec = db.OpenRecordset(ssql)
'affectation de chacune des informations à son
'emplacement dans le document Word
If Len(rec![Description Incident]) > 255 Then
.formfields("descript").result = Left(rec![Description Incident], 255)
If Len(rec![Description Incident]) > 255 * 2 Then
.formfields("descript2").result = Mid(rec![Description Incident], 256, 255)
If Len(rec![Description Incident]) > 255 * 3 Then
.formfields("descript3").result = Mid(rec![Description Incident], 255 * 2 + 1, 255)
.formfields("descript4").result = Right(rec![Description Incident], Len(rec![Description Incident]) - 255 * 3)
Else
.formfields("descript4").result = Right(rec![Description Incident], Len(rec![Description Incident]) - 255 * 2)
End If
Else
.formfields("descript2").result = Right(rec![Description Incident], Len(rec![Description Incident]) - 255)
End If
Else
.formfields("descript").result = rec![Description Incident]
End If
If rec![Reproductible] <> "" Then
.formfields("repro").result = rec![Reproductible]
End If
If rec![Domaine Concerné] <> "" Then
.formfields("domain").result = rec![Domaine Concerné]
End If
If rec![Produit concerné] <> "" Then
.formfields("prod").result = rec![Produit concerné]
End If
If rec![Composant Concerné] <> "" Then
.formfields("comp").result = rec![Composant Concerné]
End If
If rec![Version Concernée] <> "" Then
.formfields("vers").result = rec![Version Concernée]
End If
If rec![Version OS] <> "" Then
.formfields("os").result = rec![Version OS]
End If
If rec![Machine] <> "" Then
.formfields("machine").result = rec![Machine]
End If
If rec![Réseau] <> "" Then
.formfields("réseau").result = rec![Réseau]
End If
If rec![Eléments Analyse] <> "" Then
If Len(rec![Eléments Analyse]) > 255 Then
.formfields("reproduc").result = Left(rec![Eléments Analyse], 255)
.formfields("reproduc2").result = Right(rec![Eléments Analyse], Len(rec![Eléments Analyse]) - 255)
Else
.formfields("reproduc").result = rec![Eléments Analyse]
End If
End If
A voir également:
Exportation du contenu d'un champ dans un formulaire word