Salut à tous,
Je cherche depuis plusieurs heures mais je n'y arrive pas. au secours !
J'ai une table [Salaire éléments] avec un champ date [SEDate] et un champ
[Heures].
Depuis un formulaire « Période » qui demande [Date Début] et [Date Fin] en
cliquant sur mon bouton OK, je souhaite ajouter un enregistrement dans ma
table pour chaque date.
While [Date Début] <= [Date Fin]
Ajout enregistrement dans [Salaire éléments] avec [SEDate] = [Date
Début] et [Heures] = 8
[Date Début] = [Date Début] + 1
Wend
Peut-être simple pour certains mais difficile pour un amateur.
Merci aux personnes sympathiques !
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
Eric
Bonjour,
Essaies: Dim strSQL as string DoCmd.SetWarnings False While [Date Début] <= [Date Fin] strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" & Format([DateHeure],"#mm/dd/yyyy#") & ",8)" CurrentDb.Execute strSQL [Date Début] = [Date Début] + 1 Wend DoCmd.SetWarnings True
Salut à tous, Je cherche depuis plusieurs heures mais je n'y arrive pas. au secours !
J'ai une table [Salaire éléments] avec un champ date [SEDate] et un champ [Heures]. Depuis un formulaire « Période » qui demande [Date Début] et [Date Fin] en cliquant sur mon bouton OK, je souhaite ajouter un enregistrement dans ma table pour chaque date.
While [Date Début] <= [Date Fin] Ajout enregistrement dans [Salaire éléments] avec [SEDate] = [Date Début] et [Heures] = 8 [Date Début] = [Date Début] + 1 Wend
Peut-être simple pour certains mais difficile pour un amateur. Merci aux personnes sympathiques !
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Essaies:
Dim strSQL as string
DoCmd.SetWarnings False
While [Date Début] <= [Date Fin]
strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" &
Format([DateHeure],"#mm/dd/yyyy#") & ",8)"
CurrentDb.Execute strSQL
[Date Début] = [Date Début] + 1
Wend
DoCmd.SetWarnings True
Salut à tous,
Je cherche depuis plusieurs heures mais je n'y arrive pas. au secours !
J'ai une table [Salaire éléments] avec un champ date [SEDate] et un champ
[Heures].
Depuis un formulaire « Période » qui demande [Date Début] et [Date Fin] en
cliquant sur mon bouton OK, je souhaite ajouter un enregistrement dans ma
table pour chaque date.
While [Date Début] <= [Date Fin]
Ajout enregistrement dans [Salaire éléments] avec [SEDate] = [Date
Début] et [Heures] = 8
[Date Début] = [Date Début] + 1
Wend
Peut-être simple pour certains mais difficile pour un amateur.
Merci aux personnes sympathiques !
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Essaies: Dim strSQL as string DoCmd.SetWarnings False While [Date Début] <= [Date Fin] strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" & Format([DateHeure],"#mm/dd/yyyy#") & ",8)" CurrentDb.Execute strSQL [Date Début] = [Date Début] + 1 Wend DoCmd.SetWarnings True
Salut à tous, Je cherche depuis plusieurs heures mais je n'y arrive pas. au secours !
J'ai une table [Salaire éléments] avec un champ date [SEDate] et un champ [Heures]. Depuis un formulaire « Période » qui demande [Date Début] et [Date Fin] en cliquant sur mon bouton OK, je souhaite ajouter un enregistrement dans ma table pour chaque date.
While [Date Début] <= [Date Fin] Ajout enregistrement dans [Salaire éléments] avec [SEDate] = [Date Début] et [Heures] = 8 [Date Début] = [Date Début] + 1 Wend
Peut-être simple pour certains mais difficile pour un amateur. Merci aux personnes sympathiques !
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
René
Merci mais ça ne marche pas correctement 'exécution '2465': Impossible de trouver le champ '|' auquel il est fait référence dans votre expression.
pour simplifier je n'exécute que: Dim strSQL As String DoCmd.SetWarnings False While [Date Début] <= [Date Fin] strSQL = "Insert into [Salaire éléments]([Heures]) Values(8)" CurrentDb.Execute strSQL [Date Début] = [Date Début] + 1 Wend DoCmd.SetWarnings True Les enregistrements supplémentaires souhaités ne sont pas créés... Dur dur !
Merci mais ça ne marche pas correctement
'exécution '2465':
Impossible de trouver le champ '|' auquel il est fait référence dans
votre expression.
pour simplifier je n'exécute que:
Dim strSQL As String
DoCmd.SetWarnings False
While [Date Début] <= [Date Fin]
strSQL = "Insert into [Salaire éléments]([Heures]) Values(8)"
CurrentDb.Execute strSQL
[Date Début] = [Date Début] + 1
Wend
DoCmd.SetWarnings True
Les enregistrements supplémentaires souhaités ne sont pas créés...
Dur dur !
Merci mais ça ne marche pas correctement 'exécution '2465': Impossible de trouver le champ '|' auquel il est fait référence dans votre expression.
pour simplifier je n'exécute que: Dim strSQL As String DoCmd.SetWarnings False While [Date Début] <= [Date Fin] strSQL = "Insert into [Salaire éléments]([Heures]) Values(8)" CurrentDb.Execute strSQL [Date Début] = [Date Début] + 1 Wend DoCmd.SetWarnings True Les enregistrements supplémentaires souhaités ne sont pas créés... Dur dur !
Eric
re,
Erreur dans le nom du champ dans la chaine sql. Ca doit être:
strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" & Format([Date Début],"#mm/dd/yyyy#") & ",8)" et non: strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" & Format([DateHeure],"#mm/dd/yyyy#") & ",8)"
Merci mais ça ne marche pas correctement 'exécution '2465': Impossible de trouver le champ '|' auquel il est fait référence dans votre expression.
pour simplifier je n'exécute que: Dim strSQL As String DoCmd.SetWarnings False While [Date Début] <= [Date Fin] strSQL = "Insert into [Salaire éléments]([Heures]) Values(8)" CurrentDb.Execute strSQL [Date Début] = [Date Début] + 1 Wend DoCmd.SetWarnings True Les enregistrements supplémentaires souhaités ne sont pas créés... Dur dur !
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Erreur dans le nom du champ dans la chaine sql. Ca doit être:
strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" &
Format([Date Début],"#mm/dd/yyyy#") & ",8)"
et non:
strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" &
Format([DateHeure],"#mm/dd/yyyy#") & ",8)"
Merci mais ça ne marche pas correctement
'exécution '2465':
Impossible de trouver le champ '|' auquel il est fait référence dans
votre expression.
pour simplifier je n'exécute que:
Dim strSQL As String
DoCmd.SetWarnings False
While [Date Début] <= [Date Fin]
strSQL = "Insert into [Salaire éléments]([Heures]) Values(8)"
CurrentDb.Execute strSQL
[Date Début] = [Date Début] + 1
Wend
DoCmd.SetWarnings True
Les enregistrements supplémentaires souhaités ne sont pas créés...
Dur dur !
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Erreur dans le nom du champ dans la chaine sql. Ca doit être:
strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" & Format([Date Début],"#mm/dd/yyyy#") & ",8)" et non: strSQL = "Insert into [Salaire éléments](SEDate,Heures) Values(" & Format([DateHeure],"#mm/dd/yyyy#") & ",8)"
Merci mais ça ne marche pas correctement 'exécution '2465': Impossible de trouver le champ '|' auquel il est fait référence dans votre expression.
pour simplifier je n'exécute que: Dim strSQL As String DoCmd.SetWarnings False While [Date Début] <= [Date Fin] strSQL = "Insert into [Salaire éléments]([Heures]) Values(8)" CurrentDb.Execute strSQL [Date Début] = [Date Début] + 1 Wend DoCmd.SetWarnings True Les enregistrements supplémentaires souhaités ne sont pas créés... Dur dur !
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
