Discussion :

[Adel31]

Bonjour loufab,
le code bug toujours, il reconnait pas les formulaires, j'ai trouvé ce matin un autre bug.
j'ai tester mon programme pour enregistrer les pièces jointes, il ouvre mais il es enregistre pas, voici le code :

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
Public Function maFonction0405Click()


 Dim varI As Variant
 
 If Forms![Formulaire103DocAssocies]![Controle0402Liste].ItemsSelected.Count = 0 Then
    MsgBox "Veuillez selectionner un document. Si vous avez déjà sélectionné un document, celui-ci n'est pas disponible."
  Else
  
  
  Dim objShell As Shell
Dim objFolder As Folder

Set objShell = New Shell
Set objFolder = objShell.BrowseForFolder(0, "Enregistrer sous", 0)
  
  If Not objFolder Is Nothing Then
  
  Dim i As Integer
  i = 0
  
    For Each varI In Forms![Formulaire103DocAssocies]![Controle0402Liste].ItemsSelected
      

Dim oRst As DAO.Recordset
Dim FilePath As String

''''''''''''''''''''Set oRst = CurrentDb.OpenRecordset("SELECT Table01Machines.[Documents associés].FileData FROM Table01Machines WHERE Table01Machines.N°= " & Forms![Formulaire102FicheMachine]![Controle0309TexteCache1].[Value] & " AND Table01Machines.[Documents associés].FileName= '" & Forms![Formulaire103DocAssocies]![Controle0402Liste].ItemData(varI) & "';")
        Set oRst = CurrentDb.OpenRecordset("SELECT Table01Machines1PJDocAssocies.Contenu.FileData FROM Table01Machines1PJDocAssocies WHERE Table01Machines1PJDocAssocies.N°= " & Forms![Formulaire102FicheMachine]![Controle0309TexteCache1].[Value] & " AND Table01Machines1PJDocAssocies.Contenu.FileName= '" & Forms![Formulaire103DocAssocies]![Controle0402Liste].ItemData(varI) & "';")
          
        FilePath = "S:\Z_Archive Fichiers et Dossiers\Base principal\" + "\" + Forms![Formulaire103DocAssocies]![Controle0402Liste].ItemData(varI)

        oRst.Fields(0).SaveToFile FilePath
        
        objFolder.MoveHere FilePath
        
        i = i + 1
        
   Next varI
   
   If i = 1 Then
   MsgBox "Le fichier a été enregistré dans " & objFolder & "."
   Else
   MsgBox "Les " & Forms![Formulaire103DocAssocies]![Controle0402Liste].ItemsSelected.Count & " fichiers ont été enregistrés dans " & objFolder & "."
   End If
   
  End If
  
  End If

End Function

lorsque je clic sur le bouton enregistrer sous, il me sort la fenêtre ou je veux l'enregistrer mais après il y a rien dans l'endroit d'enregistrement!!!!
après débogage de la fonction, il me montre l'erreur en rouge.
j'ai besoin de votre aide s'il vous plait.

[loufab]

Pourquoi tu utilises des syntaxes d'ACCESS 2.00 ?

Code :

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

If Forms![Formulaire103DocAssocies]![Controle0402Liste].ItemsSelected.Count = 0 Then

Le ! a une signification très spéciale. Remplace par des points. En plus tu y gagneras l'autocomplétion.

Une autre truc me chiffone, tu semble être dans un module standard pourtant toute tes fonctions travaille avec un formulaire spécifique.
Personnellement j'aurais mis tout ça dans le module du formulaire avec un Me ou alors j'aurais déclaré un variable Form pour le formulaire.
Mais bon tout cela est à l'appréciation du développeur.

Cordialement,

[Adel31]

bonjour loufab et merci pour ta patience
j'ai essayer de changer les ! avec des points :

Code :

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

1
2
3
4
5
Public Function maFonction0203AfterUpdate()

Forms.[Formulaire101Recherche].[Controle0205Liste].Requery

End Function

il m’écrit : propriété ou méthode non gérée par cet objet.

[loufab]

Code :

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

Forms("Formulaire101Recherche").Controls("Controle0205Liste").Requery

regardes mon tuto sur les appels formulaires.

Lorsque tu tapes le point il affiche une liste, à part certains cas particuliers tout ce qui n'est pas dans la liste ne peut être utilisé.

[Adel31]

bonjour loufab,
j'ai essayer le code que tu ma donner mais il me sort le même message, il trouve pas le formulaire101recherche, et aussi je trouve pas ton tuto
merci.

[loufab]

peux-tu poster un copier d'écran de la fenêtre des objets Formulaire stp ?

[Adel31]

re loufab, voici le formulaire101recherche en image :

merci

[loufab]

Non c'est ceci qu'il me faut, avec les objets formulaires :

[Adel31]

bonjour loufab,
désolé pour la réponse tardif, voici ci-joint presque la totalité des formulaires :

merci

[loufab]

J'ai fait des tests avec les noms et les mêmes instructions, aucun problème.

Je ne vois qu'un problème de fichier altéré.

[Adel31]

bonjour loufab,
merci pour la réponse et désolé pour la réponse tardive, pour le bug, il me signal toujours le non reconnaissance des formulaires, mais tout marche bien dans l’exécution.
il me reste seulement le problème de validation de date dans le formulaire planning, j'ai met le problème dans une autre discussion, mais j'ai pas encore trouvé la solution.
merci pour ton aide
cordialement.

[loufab]

Si la décompil n'a pas fonctionné il ne reste que l'import des objets dans un nouveau fichier.

[Adel31]

bonjour loufab ,
désolé pour la réponse tardive, je fait comment l'import des objets dans un nouveau fichier s'il te plait?
a+

[loufab]

Créer un base vierge puis ruban Données externe/ Importer et Lier / Access...

[Adel31]

bonjour loufab,
je vais le faire, et je te tien au courant.
merci