Cocher ou non

Le
John
Bonjour à tous,

Code de Raymond.

Avec le code si dessous en cliquant sur une coche je sélectionne plusieurs
enregistrements "coche sur vrai" devant chaque ligne.

Je voudrais modifier ce code afin de pouvoir actionner la sélection depuis
le formulaire principal dans un groupe d'option (la coche "1" = cocher et la
coche 2 = décocher)

les enregistrements se trouvent dans un sous formulaire appelé "listeValide"
Comment faire ?


Code :
Private Sub Cocher176_Click()
Dim rs As DAO.Recordset
Set rs = Me.Recordset
If Not rs.EOF Then
rs.MoveFirst
Do Until rs.EOF
rs.Edit 'choisir une option
'Rs!VALIDE = Not Rs!VALIDE 'pour inverser
rs!Valide = True ' true pour tout à Vrai false pour faux
rs.Update
Call Valide_AfterUpdate
rs.MoveNext
Loop
End If
Me.Recalc
Set rs = Nothing
End Sub

Merci d'avance
--
John.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #20673031
Salut,

John wrote:
Avec le code si dessous en cliquant sur une coche je sélectionne
plusieurs enregistrements "coche sur vrai" devant chaque ligne.

Je voudrais modifier ce code afin de pouvoir actionner la sélection
depuis le formulaire principal dans un groupe d'option (la coche "1"
= cocher et la coche 2 = décocher)

les enregistrements se trouvent dans un sous formulaire appelé
"listeValide" Comment faire ?


Code :
Private Sub Cocher176_Click()
Dim rs As DAO.Recordset
Set rs = Me.Recordset
If Not rs.EOF Then
rs.MoveFirst
Do Until rs.EOF
rs.Edit 'choisir une option
'Rs!VALIDE = Not Rs!VALIDE 'pour
inverser rs!Valide = True ' true pour tout à Vrai
false pour faux rs.Update
Call Valide_AfterUpdate
rs.MoveNext
Loop
End If
Me.Recalc
Set rs = Nothing
End Sub



Au lieu de pointer le recordset du formulaire en cours, il suffit
de pointer celui du sous-formulaire...

Set rs = Me!listeValide.Form.Recordset

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
John
Le #20672531
Merci beaucoup ça fonctionne.

@+
--
John.


"3stone" a écrit :

Salut,

John wrote:
> Avec le code si dessous en cliquant sur une coche je sélectionne
> plusieurs enregistrements "coche sur vrai" devant chaque ligne.
>
> Je voudrais modifier ce code afin de pouvoir actionner la sélection
> depuis le formulaire principal dans un groupe d'option (la coche "1"
> = cocher et la coche 2 = décocher)
>
> les enregistrements se trouvent dans un sous formulaire appelé
> "listeValide" Comment faire ?
>
>
> Code :
> Private Sub Cocher176_Click()
> Dim rs As DAO.Recordset
> Set rs = Me.Recordset
> If Not rs.EOF Then
> rs.MoveFirst
> Do Until rs.EOF
> rs.Edit 'choisir une option
> 'Rs!VALIDE = Not Rs!VALIDE 'pour
> inverser rs!Valide = True ' true pour tout à Vrai
> false pour faux rs.Update
> Call Valide_AfterUpdate
> rs.MoveNext
> Loop
> End If
> Me.Recalc
> Set rs = Nothing
> End Sub

Au lieu de pointer le recordset du formulaire en cours, il suffit
de pointer celui du sous-formulaire...

Set rs = Me!listeValide.Form.Recordset

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

.



Publicité
Poster une réponse
Anonyme