Probleme sur champ vide lors d'un publipostage word "methode signet" [Résolu]

[christ-94]

Bonjour

Je viens de crée un document de publipostage word
en utilisant le tuto du site
http://heureuxoli.developpez.com/publipostage/

J'ai utlisé la methode des signets, cela foction , mais quand les champs de ma base de données sont nul cela bug

Ci-joint le code

Code :

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
26
27
28
29
30
31
Private Sub Commande0_Click()
 
Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT * from table_publipostage"
 
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = New Word.Application
    chemin = CurrentProject.Path
wApp.Visible = True
 
While Not rs.EOF
With wApp
    .Documents.Open (chemin & "\Plan_de_prevention.doc")
.ActiveDocument.Bookmarks("Adresse_En").Range.Text = rs.Fields("Adresse_En") 'si le champ est vide j'ai une erreur
    .ActiveDocument.PrintOut
    .ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
 
Set wApp = Nothing
End Sub

j'ai plus de 50 chamlps dans ma base , pour l'exemple je n'ai utlise qu'un champ
y a t'il une solution simple ?
Merci d'avance

[hajeahmad]

Salut
peut etre avec une condition :

Code :

1
2
3
4
 
if not isnull (rs.Fields("Adresse_En") then
.ActiveDocument.Bookmarks("Adresse_En").Range.Text = rs.Fields("Adresse_En") 
 …..etc

cordialement
a.

[christ-94]

Merci pour cette réponse

Cela fonctionne
Mais j'ai peur que cela ralentisse le code
est il possible de supprime l'alarme ?

Cordialement

[hajeahmad]

re
ca veut dire quoi !

Code :

DoCmd.SetWarnings False

tu pensais à ca?

penses à voter et marquer resolu
cordialement
ahmad

[christ-94]

oui je pense a ca
mais avec cette ligne

Code :

DoCmd.SetWarnings False

j'ai toujours le message d'erreur lorsque le champ est null

sous excel la syntaxe est

Code :

'Application.DisplayAlerts = False

Cordialement

[hajeahmad]

re
ou elle est l'instruction

Code :

DoCmd.SetWarnings False

utilise la gestion d'erreur !!

Code :

on error resume next

ahmad

[christ-94]

Merci de l'interre que tu portes a mon probleme


Ci-joint le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande0_Click()

Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String

DoCmd.SetWarnings False

sql = "SELECT * from table_publipostage"

Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = New Word.Application
    chemin = CurrentProject.Path
wApp.Visible = True

While Not rs.EOF
With wApp
    .Documents.Open (chemin & "\Plan_de_prevention.doc")

Cordialement

[hajeahmad]

re

Code :

on error resume next

ca donne quoi ?

[christ-94]

UN GRAND MERCI

Cela fonctionne



La solution a toute fin utile
les 2 lignes en rouge pour stopper les alarmes

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String

'Application.DisplayAlerts = False

DoCmd.SetWarnings False
On Error Resume Next

sql = "SELECT * from table_publipostage"

Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = New Word.Application
    chemin = CurrentProject.Path
wApp.Visible = True

While Not rs.EOF
With wApp
    .Documents.Open (chemin & "\Plan_de_prevention.doc")

Merci encore

[hajeahmad]

ok
pense quand meme à mettre

Code :

DoCmd.SetWarnings True

à la fin de ta procedure
ahmad