Discussion :

[Kaytilou]

Bonjour

J'utilise un formulaire avec des champs et j'aimerai empêcher certains champs d'être modifiés. Je parcouru de nombreux sites avec plein de réponse différentes. Du coup, je n'arrive pas à trouver ce que je cherche. J'ai deux codes sur lesquels je souhaiterai mettre cela en application

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
''''''''''''''''''''
        'Date de fin -1mois
        ''''''''''''''''''''
            If IsDate(Strings.Trim(Me.txtDateFin1mois.Text)) = True Then
                xDate = CDate(Strings.Trim(Me.txtDateFin1mois.Text))
                Me.txtDateFin.Text = Format(xDate, "dd/mm/yyyy")
                .Range(1, 13) = CDate(Strings.Trim(Me.txtDateFin1mois.Text))
            Else
                If Strings.Len(Strings.Trim(Me.txtDateFin1mois.Text)) = 8 Then
                    xDate = Strings.Trim(Me.txtDateFin1mois.Text)
                    xVal = Strings.Left(xDate, 2) & "/" & Strings.Mid(xDate, 3, 2) & "/" & Strings.Right(xDate, 4)
                    Me.txtDateDebut.Text = xVal
                Else
                    Me.txtDateFin1mois.Text = ""
                End If
                .Range(1, 13) = Strings.Trim(Me.txtDateFin1mois.Text)
                End If

et celui là

Code :

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

1
2
3
4
5
''''''''''''''''''''
        'Temps restant
        ''''''''''''''''''''
            Me.txtTempsIndisp.Enabled = False
           .Range(1, 14) = CStr(Strings.Trim(Me.txtTempsIndisp.Text))

J'ai testé le code

Code :

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

Me.txtTempsIndisp.Enabled = False

, mais cela ne fonctionne pas.

Merci pour votre aide et je vous souhaite un excellent week end ensoleillé.

[mfoxy]

Bonjour,

Pour empêcher la modification autant utilisé un Label qu'un textbox prévu justement à l'effet d'être complété.

Bat,
MFoxy

[Kaytilou]

Merci pour votre réponse.
Cependant, les champs qui ne doivent pas être modifiés sont des calculés dans la base de données. J'ai mis en place le fait de pouvoir à partir d'une ligne rouvrir le formulaire et je veux que dans le formulaire on puisse voir les champs calculés, mais qu'il ne soit pas possible de les modifier
Je ne pense pas par conséquent que le label soit la bonne solution.
Peut être avez vous une autre solution ?

[mfoxy]

Un Label peut tout à fait contenir le résultat d'un calcul, par son attribut caption et est non modifiable.

Label1.caption = ton calcul ou ta variable calculée

[Philippe Tulliez]

Bonjour,
Je rejoins mFoxy quant à l'utilisation de contrôle Label pour placer les champs calculés.
Cependant si tu souhaites utiliser un contrôle TexBox et empêcher sa modification, il suffit de mettre la propriété Enabled à False ou la propriété Locked à True mais la première me semble plus adaptée

[Kaytilou]

Bonjour,
Je rejoins mFoxy quant à l'utilisation de contrôle Label pour placer les champs calculés.
Cependant si tu souhaites utiliser un contrôle TexBox et empêcher sa modification, il suffit de mettre la propriété Enabled à False ou la propriété Locked à True mais la première me semble plus adaptée

Bonjour Philippe
Merci également à mFoxy.
J'ai du mal à comprendre dans quel champs du label, je dois mettre le champs calculé. mFoxy me dit Label1.caption = calcul ou une variable calculée . Faut-il mettre une formule entière.

Dans 1 Texbox ou Label : j'ai une formule : =SI([@[DATE DE FIN]]=0;"";DATE(ANNEE(K4);MOIS(K4)-1;JOUR(K4))).
Dans un autre Texbox ou Label : je dois mettre : =SI([@[DATE DE FIN]]>AUJOURDHUI();.
Et dans mon dernier Texbox ou Label :

Code formule :

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

=SI([@[DATE DE FIN]]=0;"";SI(ET([@[DATE DE FIN - 1 MOIS]]<=AUJOURDHUI();[@[DATE DE FIN]]>=AUJOURDHUI());"Arrive à terme dans" &" "& [@[TEMPS RESTANT]];SI([@[DATE DE FIN]]<AUJOURDHUI();RECHERCHEV(L4;Paramètres!C:D;2;FAUX);L4)))

Merci pour votre aide.