Discussion :

[2Minou9]

Bonjour à tous,

J'essaie de mettre en place un système qui nous permettent un suivis des sorties de stock faites.

J’ai créé un formulaire qui a pour source une requête.
Ce formulaire doit permettre à l’opérateur de choisir les éléments qu’il doit préparer en cochant la
CaseOption (Choix).

Ensuite il peut imprimer son bon de sortie et ses étiquettes.
Je souhaiterai que lorsque l’opérateur clique sur un bouton « MAJ » la date du jour s’inscrive dans
les champs « sortie » de mon formulaire si la case est cochée et qu’il ne soit pas obligé de le faire lui-même à chaque
ligne.
C’est là où ce situe mon problème.
J’arrive à inscrire la date à l’appuie de mon bouton cependant cela ne met que ma ligne active ou la dernière ligne active à jour.



J’ai écris ce code :

Code :

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

1
2
3
4
5
6
Private Sub Oui_Click()
If Forms!F_RAS.CaseOption.Value = True Then
    Forms!F_RAS.Sortie.Value = Now()
Else: Forms!F_RAS.Sortie.Value = ""
End If
End Sub

Il est important que la date ne s'inscrive que lorsque l'opérateur décide de mettre à jour la base.

Avez-vous des pistes ou des idées qui me permettent de réussir ce que je souhaite ?
J’ai cherché et essayé de trouver mais je dois avouer que là je sèche totalement et surtout je ne sais pas dans quelle direction chercher.

Merci beaucoup

[hyperion13]

Salut
Il y a, à on humble avis, des éléments incohérents dans votre sub() (img)
A mon avis :

Code :

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

1
2
3
4
5
6
7
Private Sub Choix_Click()
If Me.Choix Then
    Me.Sortie = Date
Else
    Me.Sortie = ""
End If
End Sub

et le btn MAJ deviendrait obsolète.