Discussion :

[RaphBdd66]

Bonjour , je tourne en rond depuis un moment ..

Dans mon sous formulaire (en mode feuille de données), j'aimerais colorer en jaune le champ ou je rentre ou modifie des valeurs par un double clique, ceci afin de mémoriser si j'ai modifié la valeur.

Pour faire simple , j'ai créer des champs qui prendront la valeur 0 ou 1 en fn du double clic.
Dans ma table , si il existe un champ Client_Adresse , un champ Client_Adresse_mod (0 ou 1) existera aussi.
Si je dblclique sur Client adresse , je met 1 dans Client_Adresse_Mod et Client adresse passe en jaune grâce à la mise en forme conditionnelle . Il doit exister une meilleur méthode mais je fais comme je peux ...

Pour faire tout ca en vba, j'utilise Screen active control et j arrive à créer le nom du contrôle ou je vais mettre 0 ou 1. Mais ensuite , je n arrive pas à traiter le nom du contrôle créé (variable string) comme un control

MERCI D'AVANCE .......

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
Function SPA_COLOR_MOD()
Dim Mon_Controle As Control
Dim Mon_Controle_Nom As String

Dim Mon_Controle_MOD As Control
Dim Mon_Controle_MOD_Nom As String              

Set Mon_Controle = Screen.ActiveControl

Mon_Controle_Nom = Mon_Controle.Name
Mon_Controle_MOD_Nom = Mon_Controle_Nom & "_" & "MOD"       'je creer le nom du control "_MOD"

MsgBox (Mon_Controle_MOD_Nom )                       'juste pour verifier si je recupere bien le nom que je veux
 
                                       
   Quel ligne dois je inclure pour déclarer  le nom du contrôle Mon_Controle_MOD  = Mon_Controle_MOD_Nom ?
    
If Mon_Controle_MOD = 0 Then
        Mon_Controle_MOD = 1
    Else
        Mon_Controle_MOD = 0
    End If
End Function

[marot_r]

Bonjour.

Code :

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

me.controls(Mon_Controle_MOD)=...

Je t'inviterai à utiliser un champ de type booléen (oui/non) au lieu d'un entier pour tin champ _Mod.

Cela rend le code moins ambigu.

et tu peux écrire ensuite

Code :

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

me.controls(Mon_Controle_MOD)=not me.controls(Mon_Controle_MOD)

ce qui est assez cool comme syntaxe :-).


A+

[RaphBdd66]

MERCI !

Finalement les variables Mon_Controle_MOD et Mon_Controle_nom ne me servent pas, à part avoir amener de la confusion dans mon code et mon esprit car finalement Mon_Controle_MOD est : Me.Controls(Mon_Controle_MOD_Nom) .. !!

Mon code devient ..... et fonctionne .. et grâce a la MFC, ma cellule se colore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function COLOR_MOD()
Dim Mon_Controle As Control
Dim Mon_Controle_MOD_Nom As String              
 
Set Mon_Controle = Screen.ActiveControl
Mon_Controle_MOD_Nom = Mon_Controle.Name & "_" & "MOD"                                                                    'je creer le nom du control "_MOD"
 
 
    If Me.Controls(Mon_Controle_MOD_Nom) = 0 Or IsNull(Me.Controls(Mon_Controle_MOD_Nom)) Then
            Me.Controls(Mon_Controle_MOD_Nom) = 1
    Else
        Me.Controls(Mon_Controle_MOD_Nom) = 0
    End If
End Function

Merci MR MAROT_R

[marot_r]

Bonjour.

Si tu considère la discussion terminée, merci d'appuyer sur le bouton en bas de discussion.

A+