Discussion :

[campamsam]

Bonjour.
As-tu attribué les sub à chaque bouton ???
Dans les propriétés du bouton onglet Événement ligne au clic As-tu sélectionné procédure événementielle ???

Alors je n'avais pas sélectionné procédure événementielle pour un des deux bontons, mais je pense qu'il y a un autre problème car ni le libellé ni le code ne s'affiche sur l'état..
J'utilise access 2016, peut-il y avoir des problèmes de compatibilité du code ?

Merci beaucoup

[Tazzou]

tout d'abord pardon pour l'attente de reponse...

J'utilise beaucoup cette application sous Access 2003 mais il me semble l'avoir également testé sous 2016...

Envoie moi ta base que j'y regarde un peu... Si tu veux bien

[campamsam]

Désolée d'avoir mis si longtemps à répondre !

Alors finalement j'ai résolu mon problème en créant une nouvelle base de donnée que j'ai tout de suite enregistrée sous format Access 2000 et j'ai ensuite tout recopier dedans et ça fonctionne ainsi !

Je ne peux pas envoyer ma base il y a des informations confidentielles dedans, mais en tout cas merci beaucoup de vous être intéressés à mon problème !

[kabamel]

Bonjour
Tuto vraiment intéressant. Mais voila j'ai quelques soucies.
Le Code marche bien. Mais si tante d'imprimer l'Etat une erreur se produit à l'ouverture.
Voila les Codes:
Code du Formulaire:

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
Option Compare Database
 
Private Sub cmdApercuImpression_Click()
 
    'Déclaration de l'objet et des variables
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = CurrentDb
    Set rst = db.OpenRecordset("select * from tblCodesBarres")
 
        'Variable recevant le code 128, après encodage de la chaîne de caractères
    Dim strChaine As String
    'Variable recevant successivement chaque caractère du code 128, avant leur conversion
    Dim strCaractere As String
    'Variable recevant successivement les caractères du code 128, après conversion
    Dim strBarres
    'Variable contenant le code 128 converti
    Dim strCodeBarres As String
 
    On Error GoTo GestionErreurs
    Me.txtCodeBarres.Visible = False
 
    'Suppression des enregistrements de la table tblCodesBarres
    CurrentDb.Execute "DELETE tblCodesBarres.CodeBarres FROM tblCodesBarres where Libelle='" & Me.txtChaineCaracteres & "'" & ";", dbFailOnError
 
        'Encodage de la chaîne de caractères en code 128
    strChaine = Code128(Me.txtChaineCaracteres)
 
    'Conversion des caractères. Le chiffre "1" représente les barres, le chiffre "0" les espaces
    For i = 1 To Len(strChaine)
        strCaractere = Mid(strChaine, i, 1)
        strBarres = MotifCodeBarres128(strCaractere)
        strCodeBarres = strCodeBarres & strBarres
    Next i
 
    'Ajout des "Quiet zone" en début et en fin du code-barres
    strCodeBarres = "00000000000" & strCodeBarres & "00000000000"
 
    rst.AddNew
        rst("CodeBarres") = strCodeBarres
        rst("Libelle") = Me.txtChaineCaracteres
    rst.Update
 
    'Ouverture de l'état rptEtiquettes en le maximisant et en l'ajustant à la fenêtre Access
    DoCmd.OpenReport "Exemple", acViewPreview, , "Libelle='" & Me.txtChaineCaracteres & "'"
    DoCmd.Maximize
    DoCmd.RunCommand acCmdFitToWindow
 
    'Sortie de la procédure
    Exit Sub
 
GestionErreurs:
 
    'Affichage d'un message
    MsgBox "Une erreur inattendue s'est produite !" & vbNewLine & vbNewLine & _
    "Source : " & Err.Source & vbNewLine & _
    "Erreur no : " & Err.Number & vbNewLine & _
    "Description : " & Err.Description, vbCritical, "Erreur !"
 
End Sub

Code de l'Etat:

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
Option Compare Database
Option Explicit
 
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 
    On Error GoTo GestionErreurs
 
    'Appel de la fonction de traçage des codes-barres
    TracerMotifCodeBarres128 Me.txtCodeBarres, Me
 
    'Sortie de la procédure
    Exit Sub
 
GestionErreurs:
 
    'Affichage d'un message
    MsgBox "Une erreur inattendue s'est produite !" & vbNewLine & vbNewLine & _
    "Source : " & Err.Source & vbNewLine & _
    "Erreur no : " & Err.Number & vbNewLine & _
    "Description : " & Err.Description, vbCritical, "Erreur !"
 
    'Envoi de la touche Esc pour forcer la fermeture de l'état
    SendKeys "{ESC}"
 
End Sub
 
Private Sub Report_Open(Cancel As Integer)
    On Error GoTo GestionErreurs
 
    'Mode de traçage des étiquettes : 1953 = Traçage horizontal : 1954 = Traçage vertical
    Me.Printer.ItemLayout = lngTracageColonne
 
    If lngLargeurCodeBarres > Me.txtCodeBarres.Width Then
 
        'Annulation de l'ouverture de l'état. L'erreur est gérée dans la procédure appelante
        Cancel = True
 
    End If
 
    'Sortie de la procédure
    Exit Sub
 
GestionErreurs:
 
    'Affichage d'un message
    MsgBox "Une erreur inattendue s'est produite !" & vbNewLine & "Erreur no : " _
    & Err.Number & vbNewLine & Err.Description, vbCritical, "Erreur !"
 
    'Envoi de la touche Esc pour forcer la fermeture de l'état
    SendKeys "{ESC}"
 
End Sub

Et voilà le fichier en question
Merci pour le tuto et votre aide

[kabamel]

salut, j'ai pas toujours de solution à mon problème.
Quelqu'un peut jeter un coup d’œil.
Merci

[mrenaud91]

Bonjour,
Merci pour ce tuto, j'ai cependant quelques soucis dans mon code que je n'arrive pas à démêler.
Y a t-il quelqu'un à qui je peux poser mes questions?
(pour infos : j'ai des notions de codage mais je suis assez recente dans l'utilisation de VBA)

Merci d'avance

[LMAYEUR]

Merci pour cette production très bien expliquée.

J'ai toutefois eu quelques minis soucis avec l'apparition d'un code erreur 5 au moment de l'ouverture de l'état, qui est résolue.

Par ailleurs, étant sous Access 2010, j'ai remplacé quelques écritures ce qui a permis valider le fonctionnement, à savoir:

- rst("codeBarres") = Null et rst("Libelle") = Null par rst!codeBarres = Null et rst!Libelle = Null...pourquoi ??

- Me. par Me!

- et surprenant, dans la fonction
Private Sub Report_Open(Cancel As Integer),
Me.Printer.ItemLayout = lngTracageColonne par
Me.Printer.ItemLayout = lngTracageColonne + 1953 pour éviter de basculer en erreur.

Voilà, sinon, très bon programme, encore une fois, et merci, c'est très pédagogique...

Bonjour je suis novice dans le VBA
mais j'ai suivi à lettre et j'ai aussi l'erreur 5
Comment as tu fait pour la faire disparaitre
Merci par avance

[Thumb down]

Bonjour,
Perso je n'ai jamais compris l'intérêt de passer par du VBA alors qu'il suffit de télécharger et d'installer la police de caractère AN128!

[LMAYEUR]

Bonjour,
Perso je n'ai jamais compris l'intérêt de passer par du VBA alors qu'il suffit de télécharger et d'installer la police de caractère AN128!

Merci de votre réponse. Pourriez vous me donner le lien pour telecharger cette police AN128?
Vous m'enlèveriez une grosse épine du pied.