Discussion :

[marcelstan]

Bonjour à tous
Base de données2 - Copie.zip
Dans le fichier que je vous ai mis en pièce jointe j'aimerai faire que dans mon formulaire la case archivée soit cocher à oui pour les résultats de ma requete1.
Et j'aimerai par la suite empêcher la modification des enregistrements donc la case archivée est à oui.
Est-ce que cela est possible? Parce que j'arrive pas à le faire

[madefemere]

Bonsoir,

Pour mettre à jour les valeurs sélectionnées par votre requête, il faudrait transformer la requête sélection en requête mise à jour ou "UPDATE", ce qui donnerait à peu près ceci :

Code :

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

UPDATE Erp SET Erp.Archive = Yes WHERE (((Erp.DEVx) Like "*35"));

Après pour l'histoire de verrouiller les enregistrements "ARCHIVES", il faut voir quel est le but.
Pour moi, quand c'est archivé, donc on n'affiche plus dans les formulaires de modifications. Et c'est tout. Mais on peut trouver la trace dans les états.

J'espère que ces réponses vous apporteront une solution.

Cordialement,

[marcelstan]

En fait pour moi j'aimerai que ce qui est archivé soit qu'a même visible car j'en ai besoin pour la suite.
Quand vous dites on verra une trace dans l'état qu'est ce que cela veux dire

[madefemere]

Bonjour,

En fait, si vous voulez aller plus loin, il faudrait plus expliciter ceci :

car j'en ai besoin pour la suite

Ci-joint un code qui devrait faire l'affaire à mettre sur l'évènement "Sur activation" du formulaire pour "verrouiller" les champs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
Dim ctl As Control
On Error Resume Next
If Me.Archive Then
    With Me
        For Each ctl In .Controls
        ctl.Locked = True
        Next ctl
    End With
End If
End Sub

Cordialement,

[marcelstan]

Bonjour Mandresy

J'ai une erreur il marque utilisation incorrecte de Me

[madefemere]

au niveau du "With"?

[marcelstan]

Non au niveau du If

[madefemere]

Essayez ce code à la place du précédent parce que là je ne comprends pas. Je n'ai pas de message d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If Me.Archive Then
    Me.DEVx.Locked = True
    Me.Description.Locked = True
    Me.Famille.Locked = True
    Me.Non_Qualité.Locked = True
    Me.Archive.Locked = True
Else
    Me.DEVx.Locked = False
    Me.Description.Locked = False
    Me.Famille.Locked = False
    Me.Non_Qualité.Locked = False
    Me.Archive.Locked = False
 
End If

Cordialement,