Discussion :

[Nounours1]

Bonjour,

Je voudrais savoir si on peut dans Access réaliser une saisie groupée.

Dans mon idée je voudrais lancer un formulaire "côté 1" puis après avoir sélectionné une date d'intervention le numéro auto se déclenche, par exemple 12, ce numéro auto va servir pour le formulaire suivant qui va s'ouvrir.

Dans ce deuxième formulaire en mode continue il y a devant chaque enregistrement une case à cocher, à l'aide d'un bouton "cocher tous" ou "décocher tous" je voudrais que le numéro auto soit coller sur chaque ligne contenant une coche ou enlevé suite à une erreur de saisie par exemple.

Après une requête action fera la suite etc...

Est-ce possible ?
Pour le moment je n'ai aucun code, je ne sais pas comment créer ce dernier pour une utilisation fiable, pouvez-vous m'aider ?

Merci d'avance
Bonne journée

[marot_r]

Bonjour.

Est-ce possible ?

Oui c'est possible.

Pour faire ce que tu décris, il te faut une table avec au minimum :

tblSaisie :

NumRef (Entier long pour "récupérer" le numéro auto)
EstSelectionne (Champ booléen pour la sélection)

Ensuite pour passer le numéro auto au formulaire de saisie tu peux utiliser le dernier paramètre de DoCmd.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs).

Ça donne un truc du genre : DoCMd.OpenForm("frmSaisie", , , , me.ChampAutonum).
Dans le formulaire de saisie, sur on Open :

Code :

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

1
2
3
if not isnull(me.OpenArgs) then
    me.NumRef.DefaultValue=me.OpenArgs 'Assigne la valeur pour les nouveaux enregistrements.
end if

Pour assigner une valeur à des enregistrements existants tu peux faire quelque chose comme :

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 'Récupère les enregistrements actuellement affichés par le formulaire
 
do while not r.eof
    r.edit
    r![TonChamp]=TaValeur
    r.update
    r.movenext
loop
 
set r=nothing

C'est morcelaire comme réponse mais j'espère que cela t'aidera.

A+

[Nounours1]

Bonjour,

Je te remercie pour ta réponse avec un peu de retard.

Je vais regarder à ça dès que j'aurais un moment.

Bonne journée.

Nounours !