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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
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...
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...
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...
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...
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...
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...