Discussion :

[cfiji]

Bonjour,

Je voudrais savoir s'il était possible de faire une fonction de ce type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Select Case Me ' en plus
Case Me!TxtCmdReception.OnDblClick = "[Event Procedure]" ' si on double-clic sur commande en reception
 
                MsgBox "La commande client est en création" & vbLf & "Elle ne peut être réceptionné", vbOKOnly + vbCritical, "Attention"    'On averti l'utilisateur
                Exit Function
            Case Me!TxtCmdFermer.OnDblClick = "[Event Procedure]" ' si on double-clic sur commande fermée
 
                MsgBox "La commande client est en création" & vbLf & "Elle ne peut être fermer", vbOKOnly + vbCritical, "Attention"   'On averti l'utilisateur
                Exit Function
 
            Case Else
                MsgBox "bonjour"
        End Select

Cela me permettrait, en fonction de la zone de texte sur laquelle je double-clique, de réaliser certaines instructions

merci par avance pour tout aide

Cordialement

[zoom61]

Salut,

Je ne comprends pas pourquoi tu veux faire une telle fonction, il te suffit de mettre le code sous chaque bouton, vu que le code est différent pour chaque double-clic.

@+.

[cfiji]

je me disais que j'avais juste si modification, changer uniquement la fonction. moins de travail de que de cherche chaque bouton...

[zoom61]

Alors, tu te fais une fonction contenant le tout, et sur chaque commande tu appelles la fonction avec transfert de données :

Code :

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

Call FonctionToutesCdes("TextePourSelectionnerCde")

@+.

[cfiji]

salut

je vois pas ce que tu veux dire désolé

cordialement

[zoom61]

Tu as une fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function FonctionToutesCdes(TextePourSelectionnerCde as string)
Select Case TextePourSelectionnerCde
      case "ReceptionDblClick"
              'liste des actions
      case "FermerDblClick"
              'liste des actions
      case else
              msgbox ""
en select
end function

Sur la bouton Reception.OnDblClick, tu mets le code suivant :

Code :

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

Call FonctionToutesCdes("ReceptionDblClick")

@+.