Discussion :

[harry226h]

Bonjour le forum
je viens solliciter votre aide.
J'essai de construire une boucle pour rechercher des données et remplir des controles. Vu le nombre de controles, je souhaitais passer par une boucle, mais je suis confronté a une erreur que je n'arrive pas a resoudre.
ci dessous le code :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim i As Integer
        For i = 1 To 5
        If IsNull(DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = i")) Then
           Controls("ctld" & i) = ""
        Else
           Controls("ctld" & i) = DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = i")
        End If
        Next

Le probleme se trouve au niveau du i comme dernier critere.

besoin de votre aide.

merci d'avance

Cordialement

[harry226h]

L'erreur renvoyée : l'expression entrée comme paramètre de requête est à l'origine de l'erreur suivante : <<i>>.

Help please

[marot_r]

Bonjour.

Code :

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

1
2
3
4
5
6
7
8
9
 
        Dim i As Integer
        For i = 1 To 5
            If IsNull(DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i)) Then
               Controls("ctld" & i) = ""
           Else
               Controls("ctld" & i) = DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i)
            End If
        Next

A+

[harry226h]

Merci pour le solution Marot, ca marche du tonnerre.

Une autre question pendant que j'y suis, serait il possible de placer ceci en module et l'appeler au besoin? Comment procéder?

NB : les formulaire ont la meme structure.

merci d'avance

[marot_r]

Bonjour.

Oui c'est possible, tu peux en faire une procédure publique et l'appeler.

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
public sub AfficherDonneesFormulaire(prmForm as form)
        Dim i As Integer
        For i = 1 To 5
            If IsNull(DLookup("[Externe]", "employe", "[fr] = '" & prmForm.fr & "' and [Rec] = '" & prmForm.Rec & "' And [Sec] = " & i)) Then
               prmForm.Controls("ctld" & i) = ""
           Else
               prmForm.Controls("ctld" & i) = DLookup("[Externe]", "employe", "[fr] = '" & prmForm.fr & "' and [Rec] = '" & prmForm.Rec & "' And [Sec] = " & i)
            End If
        Next
end sub

prm est une abréviation perso pour "paramètre".

Dans le formulaire concerné tu mets :

Code :

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

call AfficherDonneesFormulaire(me)

Tu appelles ta procédure en lui passant le formulaire courrant (me).

A+