Discussion :

[flobos]

Bonjour,
Merci de prendre le temps de repondre à mon message

Lorsque j'éxecute mon état j'obtiens le messages d'erreur suivant.

Merci

[madefemere]

Bonjour,

1- Est-ce que tu as du code qui s'exécute lors de l'ouverture de ton état ?
2- Tu ouvres ton état à partir d'un formulaire ou directement du formulaire de navigation ?
A priori, il y a du problème dans les codes de ton état ou ses contrôles. Essaie de :
a- Compacter ta base. Si c'est une simple erreur, cela devrait le résoudre.
b- Si cela ne marche pas, essaie de refaire ton état.

Cordialement,

[flobos]

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
Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer)
TracerMotifCodeBarres128 Me.txtcodebarre, Me
End Sub
 
Private Sub EntêteGroupe3_Format(Cancel As Integer, FormatCount As Integer)
 
  Dim strChemin As String
 
  'On Error Resume Next
  On Error GoTo Catch02
 
 
    strChemin = "\\FRMEY-S-04\fabrication\Box Rotation\02 - BD images\Schémas\" & Me![Images]
 
  Me.imgApercuPV.Picture = strChemin
 
If [Texte173] = "M99999 010" Then
[PREVISU].Visible = True
Else: [PREVISU].Visible = False
End If
 
Catch02:
Select Case Err.Number
    Case 2114
        'Cas d'un type de fichier photo non supporté ...
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly
    Case 2220
        'Cas d'un emplacement non valide du fichier image
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : ", vbCritical + vbOKOnly
    Case Else
        ' tout autre cas d'erreur
End Select
Err.Clear
 
 
 
End Sub

Voila mon code ( en vérité je ne sais pas si c'est celui la je suis très novice en code Access :/)



2) Je l'ouvre depuis un formulaire mais j'ai déjà essayer de l'ouvrir à partir de la bande de navigation et le problème reste le même.

Je vais essayer de trouver un tutoriel pour compacter ma base.

Merci =)

[madefemere]

Bonjour,

1- Pour compacter, pas besoin de tuto. Tu vas dans le menu "Fichier" et sous Access 2010, dans la bande de navigation "Informations", tu as le bouton "Compacter et Réparer la base de données"
2- Pour ton code, je pense que c'est la définition de strChemin qui pose problème :

Code :

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

strChemin = "\\FRMEY-S-04\fabrication\Box Rotation\02 - BD images\Schémas\" & Me![Images]

Mets un

Code :

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

Debug.Print strChemin

avant le

Code :

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

Me.imgApercuPV.Picture = strChemin

pour voir ce que ça donne exactement.

Cordialement,

[flobos]

Mon dieu vous me sauvez la vie. J'ai rajouter le code et ça marche très bien. Un BIG BIG BIG BIG BIG BIG merci!

[madefemere]

T'as compacté ?!?
Normalement le code que j'ai donné était uniquement pour vérifier le chemin de l'image à ajouter, rien de spécial.

Mais si ça marche, tant mieux, n'oublie pas de mettre en RESOLU dans ce cas.

Cordialement,

[flobos]

J'ai compacté avant mais ça n'avait rien changé après fermeture et ouverture de la base.

J'y connais rien en code.
Tout ce que je vois c'est que ca marche donc RESPECT