Discussion :

[leridant]

Bonjour,

dans un formulaire en mode tabulaire, j'ai une procédure qui recopie la valeur du premier enregistrement dans tous les autres (code ci dessous).
Dans la procedure j'ai le nom du champ qui est cité et donc si je veux avoir la même procédure sur un autre camp il faut que je la copie et l'adapte à chaque fois.

J'aimerai en faire une fonction où je peux passer le nom du champ en paramètre ou avoir un truc du style me.activetruc.value si ça existe sous access.

exemple actuel pour le champ substance :

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
Private Sub SUBSTANCE_DblClick(Cancel As Integer)
Dim Valeur As Variant
Dim num As Integer
Dim nbrecord As Integer
Dim i As Integer
 
nbrecord = Me.RecordsetClone.RecordCount
 
DoCmd.GoToRecord , , acFirst
Valeur = SUBSTANCE.Value
i = 1
 
While i <> nbrecord
    DoCmd.GoToRecord , , acNext
    SUBSTANCE.Value = Valeur
    i = i + 1
Wend
 
End Sub

Merci d'avance pour votre aide

[marot_r]

Bonjour.

il est peu recommande d'utilise les DoCmd dans du code VBA (en dehors de DocMd.open et DoCmd.Close) car ils sont tres contextuels et peuvent donc ne pas fonctionner ou faire des modif la ou on s'y attend pas.
Il y a des fois ou il n'y pas d'autre solution mais elles sont rares.

Voici ma suggestion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub SUBSTANCE_DblClick(Cancel As Integer)
    Dim Valeur As Variant:valeur=me.SUBSTANCE 'Recupere la valeur de SUBSTANCE pour l'enregistrement courant.
 
   if me.recordset.recordcount <>0 then
        me.recordset.movefirst
        do while not me.recordset.eof
            me![SUBSTANCE]=valeur 'Le .value est optionel
            me.recordset.movenext
        loop
   end if
 
End Sub

A+

[marot_r]

Je vais me corriger moi-meme :

il est peu recommande d'utilise les DoCmd dans du code VBA (en dehors de DocMd.open et DoCmd.Close) car ils sont tres contextuels et peuvent donc ne pas fonctionner ou faire des modif la ou on s'y attend pas.
Il y a des fois ou il n'y pas d'autre solution mais elles sont rares.

Finalement on se sert assez souvent de DoCMd en VBA.
Ce n'est pas DoCmd en general qui est en cause mais ces DoCmd en particulier qui sont vraiment dependant de l'environnement.

Desole de la generalisation abusive.

A+

[leridant]

Bonjour et Merci pour ces explications, j’ai appris quelque chose au passage.

j'ia un peu modifié le code car je recopie la valeur du premier enregistrement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CEP_DMF_REF_DblClick(Cancel As Integer)
 
Dim Valeur As Variant
 
   If Me.Recordset.RecordCount <> 0 Then
        Me.Recordset.MoveFirst
        Valeur = Me.CEP_DMF_REF 'Recupere la valeur de SUBSTANCE pour l'enregistrement courant.
        Do While Not Me.Recordset.EOF
            Me![CEP_DMF_REF] = Valeur 'Le .value est optionel
            Me.Recordset.MoveNext
        Loop
   End If
 
End Sub

Maintenant, ça ne répond pas à ma question qui est: je souhaite faire de cette procedure, une fonction ou globale qui soit sait sur quel control elle fonctionne ou sinon je met le nom du control en parametre, par exemple (je ne sais pas si activcontrol existe et/ou sert à ça :

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
 
Public sub RECOPIE()
Dim Valeur As Variant
 
   If Me.Recordset.RecordCount <> 0 Then
        Me.Recordset.MoveFirst
        Valeur = Me.activcontrol 'Recupere la valeur de l'enregistrement courant.
        Do While Not Me.Recordset.EOF
            Me![activcontrol] = Valeur 
            Me.Recordset.MoveNext
        Loop
   End If
 
Private Sub CEP_DMF_REF_DblClick(Cancel As Integer)
 
recopie
 
End Sub

Merci par avance pour votre aide

[marot_r]

Bonjour.

La collection Controls est ce que tu cherches.

Ici un exemple.

Code :

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

1
2
3
public sub uneFontcion(prmNomControl as string)
   debug.print me.controls(prmNomControl)
end sub

Et si tu veux savoir quel est le controle actif :

Code :

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

debug.print screen.ActiveControl.name

Personnellement je n'en suis pas fan car la aussi c'est dependant du contexte.

A+

[Tortille]

Bonjour,
une solution peut-être est d'écrire dans la feuille de propriété du contrôle au niveau de l'onglet Evènement et puis "Sur double click" ceci :

Code :

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

=NomDeLaFonction(NomDuControle)

dans ton exemple ça donne pour le contrôle SUBSTANCE :

Code :

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

=RECOPIE(SUBSTANCE)

Bien cordialement