Discussion :

[strouve]

* Bonjour, *

Je cherche mais je ne trouve pas !! aie aie aie !

je dispose d'un formulaire dans lequel se trouve les resultats d'une requete auquel je veus soumettre les uns apres les autres une fonction de traitement d'image.

j'ai fini la foncton pour l'enregistrement en cour ou selectionner, mais je veus pouvoir appliquer cette fonction a l'ensemble des résultats. Y a t'il une commande du type : " For each" et si oui comment l'appliquer?
Et si non, faut il creer une boucle qui reprend le nombre total des enregistrement, et qui va lire les enregistrement ligne par ligne ? (ce que j'ai fait, mais je bloque sur le code vba pour indiquer quel ligne a lire j'ai essaye avec range mais ca marche pas :

voici mon bout de code (j'ai simplifier pour plus de clartée)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function adobephotoshopboucletest()
  Dim ligne
  ligne = 1
  For i = 1 To 5
          Range("ligne").Select
           droplet1 = Forms![form select article]![Pro_vm_product_cheval1_2012 sous-formulaire]![droplet][3]
           'mainurl1 = Forms![form select article]![Pro_vm_product_cheval1_2012 sous-formulaire]![MaiimageURL](ligne)
           'strfile1 = Forms![form select article]![Pro_vm_product_cheval1_2012 sous-formulaire]![Image](ligne)
           MsgBox "Vous avez sélectionné le fichier : " & droplet1, vbInformation
           'call photoshop_boucle
    ligne = ligne + 1
  Next
  End Function

* Merci *

[drakkar_agfa]

Bonjour,

Est-ce possible de décrire un peu plus c'est quoi exactement un "enregistrement" dans votre cas (listebox, requete DAO, lignes dans une feuille, etc...) Alors il sera probablement possible d'utiliser un FOR EACH et de l'appliquer au type d'enregistrement.

Merci!

[strouve]

je suis dans access et une requête me donne un certain nombre de résultats affichés sous forme de ligne. il faut que je récupère pour chacune des ligne 3 champs ou valeurs pour les transmettent à une fonction. Cette fonction traite l'image puis doit recommencer avec la ligne suivante. etc jusqu’à épuisement des lignes.

[drakkar_agfa]

Bonjour,

En utilisant le DAO (une référence est nécessaire)
Le code suivant te permet de boucler dans une requête et de passer en paramètre les champs de la requêtes :

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
Sub aaa()
     Dim rstRequete As DAO.Recordset
     Set rstRequete = CurrentDb.OpenRecordset("SELECT * FROM MaTable")
     If rstRequete.RecordCount > 0 Then
          If Not rstRequete.EOF Then
               rstRequete.MoveFirst
               Do Until .EOF
                    Call MaFunction(rstRequete.Fields("Champ1"), rstRequete.Fields("Champ2"))
                    rstRequete.MoveNext
               Loop
          End If
     End If
     rstRequete.Close
     Set rstRequete = Nothing
End Sub

Il te reste à adapter!

[strouve]

le mais est le suivant , j'ai adapter nickel, et toujour pour tester, j'apelle en premier une mesbox et ca marche. la boite s'affiche avec chaque enregistrement.

le probleme intervient lorsque je fais le call avec ma fonction, il opere une premiere boucle avec le traitement des images, revient sur le DAO pour effectuer une seconde boucle et se stop en erreur sur le call avec un message d'erreur
Erreur dexecution 13 : incompatibilité de type

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
Sub boucle_fichier_image()
     Dim rstRequete As DAO.Recordset
     Set rstRequete = CurrentDb.OpenRecordset("SELECT * FROM [Pro_vm_product_cheval1_2012]")
     If rstRequete.RecordCount > 0 Then
          If Not rstRequete.EOF Then
               rstRequete.MoveFirst
               Do Until rstRequete.EOF
 
               droplet1 = rstRequete.Fields("droplet")
               mainurl1 = rstRequete.Fields("MaiimageURL")
               strfile1 = rstRequete.Fields("image")
                    Position = InStr(droplet1, "R")
                    If Position = 0 Then
                    strfile1 = "jpeg_rect\" & strfile1 & ".jpg"
                    Else:
                    strfile1 = "jpeg_rond\" & strfile1 & ".jpg"
                    End If
            'MsgBox "Vous avez sélectionné le fichier : " & droplet1 & "   " & mainurl1 & "    " & strfile1, vbInformation
            Call testadobephotoshop(droplet1, mainurl1, strfile1)
                    rstRequete.MoveNext
               Loop
          End If
     End If
     rstRequete.Close
     Set rstRequete = Nothing
End Sub

[User]

Salut,

Tu n'aurais pas une valeur nulle dans ta source ?

As-tu essayé un pas à pas détaillé pour scruter ta fonction ?

A+

[strouve]

en faite l'erreur apparait des que je fait le call a une fonction, le Enf fonction produit l'erreur.

j'ai donc inclut toute la procedure en lieu et palce du call et l'affaire roule toute seul.