Discussion :

[CLASSIQUE]

Bonjour,

Je me permets ce courrier, car je suis en quête d’une aide sur une base Access que je souhaite améliorer dans son utilisation.
J’ai un Formulaire atelier, lié à un autre formulaire Gestion.
Des enregistrements s’effectuent ligne par ligne dans la base Gestion, qui sont validés par un champ Date/Heure (calendrier)
Comment faire un code évènement sur bouton_click pour sélectionner l’ensemble des enregistrements, et ainsi valider (Date/Heure) en une fois.
Il y a la possibilité de créer un autre champ oui/non dans une table Nomenclature qui fonctionne sur une requête : Ajout_table_nomenclature
Mais je n’arrive pas à coordonnées l’ensemble.
J’ai mis une capture d’écran de la base gestion pour donner une idée.
S’il y a possibilité d’une aide sur le sujet

Cordialement
JJacques

[mumen]

Bonjour

Pour ajouter de l'événementiel, il faut que tu utilises les formulaires. Est-ce le cas ?

[CLASSIQUE]

Bonjour,
oui je pense utiliser le formulaire gestion pour effectuer la validation les enregistrements du sous formulaire, j'ai commencé par créer des bouton click tout sélectionner , et tout déselectionner.
Mais quelques soucis, pour effectuer les private sub
Voici un fond d"écran de la base Gestion pour donner une idée
Cordialement
Jjacques

[mumen]

Je ne comprend pas bien.

Tu veux faire un traitement sur tous les enregistrements affichés, ou bien sur une partie que tu laissera à l'utilisateur le soin de cliquer ?

Ensuite, quel est ton traitement : tu veux juste mettre à jour une date ?

[CLASSIQUE]

Actuellement la base Gestion est validé ligne par ligne sur le champ DATE DE SOLDE avec le petit Calendrier de la table: Nomenclature
Je souhaiterais mettre un autre champ : Case à Cocher OUI/NON valeur par Défaut Non
Et ensuite effectuer sur un Bouton_click, Cocher tout les enregistrements pour les Solder à la date du jour.
Actuellement lorsqu'un enregistrement est soldé à Date du Jour (Calendrier) la ligne s'éfface.
Si rien n'est Soldée à Date (calendier) les enregistrement restent affichés.

S'il y a une Option comme je peux le comprendre qu'il y a la possibilité que l'utilisateur peut valider selon sont choix.
Cela peut être un choix bien utile également.
Cordialement
JJacques

[mumen]

Si j'ai compris (), tu souhaite accélérer la saisie de la date.

Tu voudrais ajouter une coche, pour que ensuite un bouton mette dans tous les enregistrements cochés, la date du jour.

Si c'est ça, je te propose quelque chose de plus simple : si on veut mettre la date du jour dans le champ en question on fait un double clic dessus.

[Pittouti]

Bonjour,

tout est possible

ta démarche est la bonne:
- Rajouter un champs OUI/NON ( qui te donnera la possibilité de faire des sélections multiple)
- Créer une Requête mise à jour la ou ta valeur du champ rajouté = Oui
- Mettre un bouton contenant les évènements suivant : ( Utilise une macro )

01-Actualiser
02-OUvrir requête ( tu choisi ta requête créée)
03-Actualiser

si tu veux insérer une date autre de la date du jour :

tu rajoutera un formulaire avec un champ date...

j'espère avoir été clair

n'hésite pas à demander si tu as un souci....

[CLASSIQUE]

Bonjour,
Néant pas de connaissance en VBA, j’ai effectué une recherche sur Google.
J’ai trouvé ces lignes de codes qui me semblent pourraient convenir à ce que j’essaie de faire sur Ma Base.
Sauf que j’ai des lacunes pour faire fonctionner les 2 Boutons Click
S’il y a possibilité d’une aide
• Si je clique sur le bouton : TOUT SELECTIONNER
Dans le Champ [CaseSélection] de la table : Nomenclature, les enregistrements du Sous Formulaire Nomenclature20 sont tout à (VRAI)
Si je clique sur le bouton : TOUT DESELECTIONNER
Cela reste dans le même état.
Comme faire une ligne de Code pour qu’il y ait le lien avec le Champ [DATE SOLDE] (Calendier) de la Table : Nomenclature.
Pour effectuer la validation sur une condition par exemple.
Cordialement
JJacques

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
' ---
' BOUTON 'TOUT SELECTIONNER'
' ---
'
Private Sub TOUT_SELECTIONNER_Click()
Dim sousform As DAO.Recordset
Set sousform = Me.NOMEMCLATURE.Form.RecordsetClone
sousform.MoveFirst
Do While Not sousform.EOF
sousform.Edit
sousform![CaseSélection] = True
sousform.Update
sousform.MoveNext
Loop
Set sousform = Nothing
Me.NOMEMCLATURE.SetFocus
Me.TOUT_SELECTIONNER.Enabled = False
Me.TOUT_DESELECTIONNER.Enabled = True
 
 
End Sub

' ---

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
' BOUTON 'TOUT DESELECTIONNER'
' ---
'
Private Sub TOUT_DESELECTIONNER_Click()
Dim sousform As DAO.Recordset
Set sousform = Me.NOMEMCLATURE.Form.RecordsetClone
sousform.MoveFirst
Do While Not sousform.EOF
sousform.Edit
sousform![CaseSélection] = True
sousform.Update
sousform.MoveNext
Loop
Set sousform = Nothing
Me.NOMEMCLATURE.SetFocus
Me.TOUT_SELECTIONNER.Enabled = False
Me.TOUT_DESELECTIONNER.Enabled = True
 
End Sub