-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news: u0XcL$
Bonsoir Raymond, en définitif, je me suis rabattu sur la qolution suivante:
Private Sub Command39_Click()
' pour tous les enregistrement actuellement affiché dans la liste, ' mettre le champ [ACCEPTED] à 1 (ACCEPTED)
Dim rst As Recordset Set rst = Me.Recordset
With rst If Not .BOF Then .MoveFirst Do Until .EOF If .Fields("ACCEPTED") <> 1 Then .Edit .Fields("ACCEPTED") = 1 .Update End If .MoveNext Loop End If End With DoCmd.Requery
Je ne prétend pas que ça soit LA solution mais dans un premier temps, ça réalise ce dont j'ai besoins.
Encore merçi pour les pistes
Frédéric
End Sub "Raymond [mvp]" wrote in message news:%
D'abord il est préférable de passer par un filtre plutôt que de changer de requête. tu peux faire la requête que je t'ai indiquée avec une clause where: DoCmd.RunSQL "UPDATE table1 SET table1.Champ1 = 1 where [Genre] = '" & "Homme" & "';" ou DoCmd.RunSQL "UPDATE table1 SET table1.Champ1 = 1 where [Genre] = '" & Me.Genre & "';"
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
je pense que je m'exprime mal ou que j'expose mal mon probleme.
j'ai une table: table1 une query: query1 une form basée sur query1 qui se présente comme une liste (FrmList1). Form1 me montre une liste de tout le monde; sur un bouton (bouton1) je désire filtrer certains records >>> me.recordset = "query2" 'qui est une query qui me filtre par exemple les genre=homme' sur (bouton2) je filtre autre chose "genreþmme me.recordset = "query3" etc bouton3 doit, par exemple" dans la liste filtrée par "bouton1" ou "bouton2", mettre champ1 à "1" pour tous les records affichés (et donc filtrés) par Bt1 ou Bt2...
Suis pas certains d'avoir été plus concis :-/
Bonsoir.
ça marche aussi.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
u0XcL$3QFHA.164@TK2MSFTNGP12.phx.gbl...
Bonsoir Raymond,
en définitif, je me suis rabattu sur la qolution suivante:
Private Sub Command39_Click()
' pour tous les enregistrement actuellement affiché dans la liste,
' mettre le champ [ACCEPTED] à 1 (ACCEPTED)
Dim rst As Recordset
Set rst = Me.Recordset
With rst
If Not .BOF Then
.MoveFirst
Do Until .EOF
If .Fields("ACCEPTED") <> 1 Then
.Edit
.Fields("ACCEPTED") = 1
.Update
End If
.MoveNext
Loop
End If
End With
DoCmd.Requery
Je ne prétend pas que ça soit LA solution mais dans un premier temps, ça
réalise ce dont j'ai besoins.
Encore merçi pour les pistes
Frédéric
End Sub
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> wrote in message
news:%23QKBmN0QFHA.3076@tk2msftngp13.phx.gbl...
D'abord il est préférable de passer par un filtre plutôt que de changer
de requête.
tu peux faire la requête que je t'ai indiquée avec une clause where:
DoCmd.RunSQL "UPDATE table1 SET table1.Champ1 = 1 where [Genre] = '" &
"Homme" & "';"
ou
DoCmd.RunSQL "UPDATE table1 SET table1.Champ1 = 1 where [Genre] = '" &
Me.Genre & "';"
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
OmjCLAqQFHA.3140@tk2msftngp13.phx.gbl...
je pense que je m'exprime mal ou que j'expose mal mon probleme.
j'ai une table: table1
une query: query1
une form basée sur query1 qui se présente comme une liste (FrmList1).
Form1 me montre une liste de tout le monde;
sur un bouton (bouton1) je désire filtrer certains records >>> me.recordset = "query2" 'qui est une query qui me filtre par exemple
les genre=homme'
sur (bouton2) je filtre autre chose "genreþmme
me.recordset = "query3"
etc
bouton3 doit, par exemple" dans la liste filtrée par "bouton1" ou
"bouton2", mettre champ1 à "1"
pour tous les records affichés (et donc filtrés) par Bt1 ou Bt2...
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news: u0XcL$
Bonsoir Raymond, en définitif, je me suis rabattu sur la qolution suivante:
Private Sub Command39_Click()
' pour tous les enregistrement actuellement affiché dans la liste, ' mettre le champ [ACCEPTED] à 1 (ACCEPTED)
Dim rst As Recordset Set rst = Me.Recordset
With rst If Not .BOF Then .MoveFirst Do Until .EOF If .Fields("ACCEPTED") <> 1 Then .Edit .Fields("ACCEPTED") = 1 .Update End If .MoveNext Loop End If End With DoCmd.Requery
Je ne prétend pas que ça soit LA solution mais dans un premier temps, ça réalise ce dont j'ai besoins.
Encore merçi pour les pistes
Frédéric
End Sub "Raymond [mvp]" wrote in message news:%
D'abord il est préférable de passer par un filtre plutôt que de changer de requête. tu peux faire la requête que je t'ai indiquée avec une clause where: DoCmd.RunSQL "UPDATE table1 SET table1.Champ1 = 1 where [Genre] = '" & "Homme" & "';" ou DoCmd.RunSQL "UPDATE table1 SET table1.Champ1 = 1 where [Genre] = '" & Me.Genre & "';"
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
je pense que je m'exprime mal ou que j'expose mal mon probleme.
j'ai une table: table1 une query: query1 une form basée sur query1 qui se présente comme une liste (FrmList1). Form1 me montre une liste de tout le monde; sur un bouton (bouton1) je désire filtrer certains records >>> me.recordset = "query2" 'qui est une query qui me filtre par exemple les genre=homme' sur (bouton2) je filtre autre chose "genreþmme me.recordset = "query3" etc bouton3 doit, par exemple" dans la liste filtrée par "bouton1" ou "bouton2", mettre champ1 à "1" pour tous les records affichés (et donc filtrés) par Bt1 ou Bt2...
