Discussion :

[harry226h]

Bonjour le forum
Besoin d'aide pour mettre la procédure ci-dessous dans un module et y faire appel en cas de besoin.

Code :

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

1
2
3
4
5
6
7
8
        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

[Jean-Philippe André]

Bonjour,

quel est exactement le soucis ?

- créer un module ?
- faire un Public Sub ?
- copier - coller le code ?

[harry226h]

Merci pour l'interet Philippe
J'ai creer le module, copier coller le code en public sub mais j'ai une erreur a l'execution ''objet non defini ou bloc with non defini'', ca me souligne ''controls''

[Jean-Philippe André]

Ton code est sensé fonctionner avec un formulaire ?

aussi le code n'ira pas dans un module mais dans le code du formulaire en question

[harry226h]

Oui il fonctionne dans le formulaire sans soucis.
J'ai plusieur formulaire a la meme structure et je voulais si possible placer le code en module et l'appeler au lieu de le saisir dans tous les formulaire

[harry226h]

Si c'est faisable, sinon je m'en contenterais

[harry226h]

Bonjour le forum

Merci encore à vous pour l'aide précieuse. Tee, Philippe, Marot et tous les autres.
Le code marche mais l'execution est lent vu que j'ai plusieur controls a remplir et j'aimerai savoir s'il est possible d'y remedier ou passer par un recordset (ca je sais pas faire).
Possible de m'aider dans ce sens?

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
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
 
        For i = 1 To 5
            If IsNull(DLookup("[interne]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i)) Then
               Controls("ctldk" & i) = ""
           Else
               Controls("ctldk" & i) = DLookup("[interne]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i)
            End If
        Next

Merci davance

[Jean-Philippe André]

Salut,

tu peux faire un seul appel

Code :

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

1
2
3
4
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

à transformer en

Code :

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

Controls("ctld" & i) = Nz(DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i),"")

[marot_r]

Bonjour.

Tu peux faire quelque chose comme :

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
dim db as dao.database:set db=currentdb
dim r as dao.database:set r=db.openrecordset("employe", dbOpenSnapshot) 'Ouvre les données pour lecture seule
 
dim i as long
 
'=== Efface les valeurs existantes
for i=1 to 5
   me.Contols("ctld" & i)=""
   me.Contols("ctldk" & i)=""
next i
'--- Efface les valeurs existantes
 
dim critere as string
critere="[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & " and [Sec] between 1 and 5"
 
r.findfirst(critere)
 
'=== Rempli le contrôle avec les valeurs
do while not r.nomatch()
    me.Contols("ctld" & i)=r![Externe]
    me.Contols("ctldk" & i)=r![Interne]
    r.findnext(critere)
loop
'--- Rempli le contrôle avec les valeurs
 
r.close:set r=nothing
r.Close:set r=nothing
db.close: set db=nothing

Enfin une solution sans doute encore plus efficace serait de faire un sous-formulaire basé sur ta table employés qui afficherai les données.
L'assistant de création de sous-formulaire peut te guider.

Si tu n'as pas toujours 5 lignes on peut jouer au niveau des données pour forcer leur existence.

A+