Discussion :

[lambor]

Bonjour
J'ai crée un Formulaire:
- Dans l'entête du formulaire j'ai une zone dans laquelle j'indique une date.
- Dans le détail sous forme de colonne j'ai plusieurs champs dont un avec une date.

Je souhaite affecter sur un click de bouton la même date (se trouvant dans l'entête) à toute la Sélection qui a été faite sur cette table grâce aux filtres du Formulaire.
Merci
Ps: Je suis débutant en VBA

Question subsidiaire, mes collaborateurs accedent à mon appli grace à un runtime access, mais sur ce formulaire ils n'arrivent pas a trier les données, il n' y a pas de menu "Trier et Filtrer" non plus alors que sur mes états il y a un menu
re mercie

[madefemere]

Bonsoir,

Tu te références au RecordsetClone de ton formulaire pour le parcourir et mettre à jour les valeurs des dates selon ta date saisie.
Ce serait un code du genre sur l'évènement sur click de ton bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnajoutdate_Click()
If IsDate(Me.TxtDateAjoutee) Then
    With Me.RecordsetClone
        .MoveFirst
        While Not .EOF
        .Edit
        .DateValeur = Me.TxtDateAjoutee
        .Update
        .MoveNext
        Wend
    End With
End If
End Sub

Pour le tri par ordre croissant ou décroissant, il faut que tu te construise les 2 boutons correspondants pour chaque champ de ton formulaire susceptible d'être trié. Il faut utiliser les propriétés OrderBy et OrderByOn. Ce qui donnerait un code du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
'Trier données
Private Sub BtnTrierDonneesCrois_Click()
Me.OrderBy = "[DonneesValeur]"
Me.OrderByOn = True
End Sub
 
Private Sub BtnTrierDonneesDeCrois_Click()
Me.OrderBy = "[DonneesValeur] DESC"
Me.OrderByOn = True
End Sub

Une base exemple est jointe.

Bonne continuation

[marot_r]

Question subsidiaire, mes collaborateurs accedent à mon appli grace à un runtime access, mais sur ce formulaire ils n'arrivent pas a trier les données, il n' y a pas de menu "Trier et Filtrer" non plus alors que sur mes états il y a un menu
re mercie

Oui dans le runtime, les menus contextuels disparaissent. Il faut que tu te programmes un menu contextuel par toi-même.
La gestion d'erreur interne aussi donc il faut mettre quelque chose dans l'événement "Sur Erreur" de chacun de tes formulaires et gérer proprement les erreurs dans ton code VBA avec On Error Goto.

Pour tester le mode runtime sur une machine avec un vrai Access il faut passer le paramètre /runtime dans la ligne de commande.

Un truc du genre

Code :

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

call msaccess.exe "c:\TonChemin\TaBase.accdb" /runtime

Code :

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

Je souhaite affecter sur un click de bouton la même date (se trouvant dans l'entête) à toute la Sélection qui a été faite sur cette table grâce aux filtres du Formulaire.

Je pense que le code suivant devrait résoudre ton problème (en supposant que tu pourrais faire la modif à la main), à mettre dans l'événement "Sur click" du bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
dim r as dao.recordset:set r=me.recordset
 
do while not r.eof()
   r.edit
   r![TonChampDate]=me.TonChampDate 'copie la date du formulaire dans les données
   r.update
   r.movenext
loop
 
set r=nothing

Si tes données sont dans un sous-formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
dim r as dao.recordset:set r=me.NomSousForm.form.recordset
 
do while not r.eof()
   r.edit
   r![TonChampDate]=me.TonChampDate 'copie la date du formulaire dans les données
   r.update
   r.movenext
loop
 
set r=nothing

A+

[lambor]

merci, veuillez excuser mon silence, je n'ai pas eu l'occasion au travail de tester vos conseils
Je reviens vers vous des que possible

[lambor]

Bonjour
Merci Madefemere, j'ai compris grâce à ta base exemple, nickel, mes formulaires sont beaucoup plus professionels maintenant
A Marot_r, je ne suis pas encore à la barre personalisée, je donnerai des nouvelles à ce moment là.

Encore merci pour vos conseils