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
Raymond [mvp]
Bonjour.
puisque tu veux une requête tu peux faire ceci, en modifiant avec tes noms réels. Public Sub Commande0_Click() Dim I As Integer Dim LeJour As Date LeJour = Date For I = 1 To 53 DoCmd.RunSQL "UPDATE table1 SET Madate = #" & Format(LeJour, "mm/dd/yyyy") & "# where Laclef ='S" & I & "';" LeJour = LeJour + 7 Next I End Sub
il est possible de le faire plus rapidement par vba en lisant la table et testant la clé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"petit" a écrit dans le message de news:
| bonjour à vous tous, | | j'ai une table : | les noms s1;s2;s3;s4;s5 format: date,abrégé | s1=semaine 1 etc | | Y a t'il moyen par une requete de mettre a jour les 's$' | par les "dates(seulement "jeudi" du mois X | | | exemple | s1= 03/05/07;s2/05/07;s3/05/07;s4$/05/07;s51/05/07 | | merci pour votre aide | | claude | |
Bonjour.
puisque tu veux une requête tu peux faire ceci, en modifiant avec tes noms
réels.
Public Sub Commande0_Click()
Dim I As Integer
Dim LeJour As Date
LeJour = Date
For I = 1 To 53
DoCmd.RunSQL "UPDATE table1 SET Madate = #" & Format(LeJour,
"mm/dd/yyyy") & "# where Laclef ='S" & I & "';"
LeJour = LeJour + 7
Next I
End Sub
il est possible de le faire plus rapidement par vba en lisant la table et
testant la clé.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"petit" <claude@claude.be> a écrit dans le message de news:
mn.c4857d74680d27db.56897@claude.be...
| bonjour à vous tous,
|
| j'ai une table :
| les noms s1;s2;s3;s4;s5 format: date,abrégé
| s1=semaine 1 etc
|
| Y a t'il moyen par une requete de mettre a jour les 's$'
| par les "dates(seulement "jeudi" du mois X
|
|
| exemple
| s1= 03/05/07;s2/05/07;s3/05/07;s4$/05/07;s51/05/07
|
| merci pour votre aide
|
| claude
|
|
puisque tu veux une requête tu peux faire ceci, en modifiant avec tes noms réels. Public Sub Commande0_Click() Dim I As Integer Dim LeJour As Date LeJour = Date For I = 1 To 53 DoCmd.RunSQL "UPDATE table1 SET Madate = #" & Format(LeJour, "mm/dd/yyyy") & "# where Laclef ='S" & I & "';" LeJour = LeJour + 7 Next I End Sub
il est possible de le faire plus rapidement par vba en lisant la table et testant la clé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"petit" a écrit dans le message de news:
| bonjour à vous tous, | | j'ai une table : | les noms s1;s2;s3;s4;s5 format: date,abrégé | s1=semaine 1 etc | | Y a t'il moyen par une requete de mettre a jour les 's$' | par les "dates(seulement "jeudi" du mois X | | | exemple | s1= 03/05/07;s2/05/07;s3/05/07;s4$/05/07;s51/05/07 | | merci pour votre aide | | claude | |
petit
merci beaucoup
Bonjour.
puisque tu veux une requête tu peux faire ceci, en modifiant avec tes noms réels. Public Sub Commande0_Click() Dim I As Integer Dim LeJour As Date LeJour = Date For I = 1 To 53 DoCmd.RunSQL "UPDATE table1 SET Madate = #" & Format(LeJour, "mm/dd/yyyy") & "# where Laclef ='S" & I & "';" LeJour = LeJour + 7 Next I End Sub
il est possible de le faire plus rapidement par vba en lisant la table et testant la clé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"petit" a écrit dans le message de news:
bonjour à vous tous,
j'ai une table : les noms s1;s2;s3;s4;s5 format: date,abrégé s1=semaine 1 etc
Y a t'il moyen par une requete de mettre a jour les 's$' par les "dates(seulement "jeudi" du mois X
exemple s1= 03/05/07;s2/05/07;s3/05/07;s4$/05/07;s51/05/07
merci pour votre aide
claude
merci beaucoup
Bonjour.
puisque tu veux une requête tu peux faire ceci, en modifiant avec tes noms
réels.
Public Sub Commande0_Click()
Dim I As Integer
Dim LeJour As Date
LeJour = Date
For I = 1 To 53
DoCmd.RunSQL "UPDATE table1 SET Madate = #" & Format(LeJour,
"mm/dd/yyyy") & "# where Laclef ='S" & I & "';"
LeJour = LeJour + 7
Next I
End Sub
il est possible de le faire plus rapidement par vba en lisant la table et
testant la clé.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"petit" <claude@claude.be> a écrit dans le message de news:
mn.c4857d74680d27db.56897@claude.be...
bonjour à vous tous,
j'ai une table :
les noms s1;s2;s3;s4;s5 format: date,abrégé
s1=semaine 1 etc
Y a t'il moyen par une requete de mettre a jour les 's$'
par les "dates(seulement "jeudi" du mois X
exemple
s1= 03/05/07;s2/05/07;s3/05/07;s4$/05/07;s51/05/07
puisque tu veux une requête tu peux faire ceci, en modifiant avec tes noms réels. Public Sub Commande0_Click() Dim I As Integer Dim LeJour As Date LeJour = Date For I = 1 To 53 DoCmd.RunSQL "UPDATE table1 SET Madate = #" & Format(LeJour, "mm/dd/yyyy") & "# where Laclef ='S" & I & "';" LeJour = LeJour + 7 Next I End Sub
il est possible de le faire plus rapidement par vba en lisant la table et testant la clé.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"petit" a écrit dans le message de news:
bonjour à vous tous,
j'ai une table : les noms s1;s2;s3;s4;s5 format: date,abrégé s1=semaine 1 etc
Y a t'il moyen par une requete de mettre a jour les 's$' par les "dates(seulement "jeudi" du mois X
exemple s1= 03/05/07;s2/05/07;s3/05/07;s4$/05/07;s51/05/07