Discussion :

[alio30]

Bonjour à tous,

Me revoilà replongé dans Access après plus d'une dizaine d'années sans en faire. Autant dire qu'avec mes neurones vieillissants, je suis comme un vrai débutant car j'ai tout oublié.

Ci- après le problème auquel je rencontre :

En cliquant sur le bouton "imprimer etiquette", cela devrait ouvrir un onglet "etiquette" mais au lieu cela affiche actuellement:

Code :

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

1
2
3
4
#Type!
#Type!
#Type!
#Type!

En basculant sur "mode creation" de cet onglet, on a les 4 critères suivants :

Code :

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

1
2
3
4
=VraiFaux(![NomFacturation] Est Pas Null; SupprEspace(![NomFacturation]);" ")
=VraiFaux(![Address1] Est Pas Null; SupprEspace(![Address1]);" ")
=VraiFaux(![Address2] Est Pas Null; SupprEspace(![Address2]);" ")
=[Codepostal] & " " & [Ville]

Cela va faire plus de deux jours que je suis dessus. Si quelqu'un a une idée. Merci d'avance de m'aider SVP

[tee_grandbois]

bonjour,
je ne vois pas pourquoi le point d'exclamation avant le nom des champs apparait, mais ce n'est peut-être pas cela qui pose souci si ça fonctionnait avant.
Sinon on peut simplifier le code en supprimant le VraiFaux et en concaténant la chaine avec un espace " " ou rien "":

Code :

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

1
2
3
=SupprEspace([NomFacturation] & " ")
=SupprEspace([Address1]) & "")
=SupprEspace([Address2] & "")

[alio30]

Je vous remercie d'avoir pris le temps de me répondre.

Oui, on m'a dit que cela fonctionnait bien avant.
J'ai simplifié le code comme vous l'avez suggéré. C'est déjà ça de fait même si j'ai toujours les mêmes erreurs


Je vous mets ci-dessous le code relatif au bouton "imprimer etiquette" , au cas où cela vous inspirerait:

Code :

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

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Private Sub Bt_Imp_Etiq_Click()
Dim db As Database
Dim résultat As Recordset
Dim strrech As String
Dim i, j
Dim table(500, 7)
 
DoCmd.RunCommand acCmdRefresh
Select Case MsgBox("Voulez imprimez l'adresse de facturation ou de livraison ? " & Chr(10) & Chr(13) & "OUI = FACTURATION" & Chr(10) & Chr(13) & "NON = LIVRAISON", vbYesNoCancel)
    Case vbCancel
        Exit Sub
        Case vbYes ' facturation
        Set db = CurrentDb()
        strrech = "SELECT Clients.[PaysFacturation],Clients.[nbreétiquette],Clients.[VilleFacturation],Clients.[CodePostFacturation],Clients.[NomFacturation],Clients.[AdresseFacturation1],Clients.[AdresseFacturation2] FROM Clients WHERE Clients.[Selec fiche]=true "
        i = 1
        DoCmd.Hourglass True
        Set résultat = db.OpenRecordset(strrech)
        Do Until résultat.EOF
        table(i, 1) = résultat![NomFacturation]
            table(i, 2) = résultat![AdresseFacturation1]
            table(i, 3) = résultat![AdresseFacturation2]
            table(i, 4) = résultat![CodePostFacturation]
            table(i, 5) = résultat![VilleFacturation]
            table(i, 6) = résultat![nbreétiquette]
            table(i, 7) = résultat![PaysFacturation]
            i = i + 1
            résultat.MoveNext
            Debug.Print i
        Loop
        résultat.Close
    Case vbNo ' livraison
        Set db = CurrentDb()
        strrech = "SELECT Clients.[Ville],Clients.[nbreétiquette],Clients.[Pays],Clients.[NomEntreprise],Clients.[Adresse1],Clients.[Adresse2],Clients.[CodePostal] FROM Clients WHERE Clients.[Selec fiche]=true "
        i = 1
        DoCmd.Hourglass True
        Set résultat = db.OpenRecordset(strrech)
        Do Until résultat.EOF
            table(i, 1) = résultat![NomEntreprise]
            table(i, 2) = résultat![Adresse1]
            table(i, 3) = résultat![Adresse2]
            table(i, 4) = résultat![CodePostal]
            table(i, 5) = résultat![Ville]
            table(i, 6) = résultat![nbreétiquette]
            table(i, 7) = résultat![Pays]
            i = i + 1
            résultat.MoveNext
        Loop
        résultat.Close
End Select
Set résultat = db.OpenRecordset("Impression étiquettes", dbOpenTable)
Do Until résultat.EOF
    résultat.Delete
    résultat.MoveNext
Loop
j = 1
For i = 1 To 50
    If (Not (IsNull(table(i, 1)))) Then
        For j = 1 To table(i, 6)
            résultat.AddNew
            résultat![NomFacturation] = table(i, 1)
            résultat![Address1] = table(i, 2)
            résultat![Address2] = table(i, 3)
            résultat![CodePostal] = table(i, 4)
            résultat![Ville] = table(i, 5)
            résultat![Pays de liv] = table(i, 7)
            résultat.Update
        Next j
    End If
Next i
DoCmd.Hourglass False
DoCmd.OpenReport "etiquette adresse client", acPreview
End Sub
 
Private Sub Bt_Recopie_Adr_Click()
Select Case MsgBox("Voulez-vous écraser les coordonnées de l'entreprise par celle de la facturation ? ", vbYesNo)
    Case vbYes
        Me![NomEntreprise] = Me![NomFacturation]
        Me![Adresse] = Me![AdresseFacturation]
        Me![Adresse2] = Me![AdresseFacturation2]
        Me![CodePostal] = Me![CodePostFacturation]
        Me![Ville] = Me![VilleFacturation]
        Me![Région] = Me![RégionFacturation]
        Me![Pays] = Me![PaysFacturation]
    Case vbNo
        Exit Sub
End Select
End Sub

En vous remerciant d'avance de votre aide

[tee_grandbois]

bonjour,
malheureusement, si cela fonctionnait avant, je ne vois pas ce qui pourrait provoquer l'erreur en lisant le code qui me semble correct
désolé