DoCmd.GoToRecord acDataForm, "Tmajglobalessf", acFirst
For g = 1 To fin
If Me![OK] Then
Forms![Fidji]!SSFInterProg2![NumeroJI] = Me![NumeroJI]
Forms![Fidji]!SSFInterProg2![Date] = Forms![Fidji]![Dateinter]
End If
If g <> fin Then DoCmd.GoToRecord acDataForm, "Tmajglobalessf", acNext
Next g
Je veux que pour la boucle g si OK alors on ajoute les enregistrements dans
SSFInterProg2,
le souci c'est que ça ne marche que pour la dernière occurence de g ...
A noter SSFInterProg2 est de type "Entrée donnée"
En fait il faudrait que je valide dans la boucle ... mais comment faire ?
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.
compte tenu que DoCmd s'applique à l'objet qui a le focus il est très difficile de manier tes deux formulaires et je pense qu'il serait plus facile d'utiliser deux recordset pour manipuler tes données. Néanmoins, dans ton test de If, il faut d'abord donner le focus au sous-formulaire, faire un DoCmd.GoToRecord ........, acNewRec pour créer un nouvel enregistrement. charger les valeurs de chaque champ, ne pas utiliser Me mais Forms!....... pour appeler les valeurs de l'autre formulaire. chaque acNewRec validera l'enregistrement en cours et passera au suivant.
-- @+ 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
"J-Michel" a écrit dans le message de news: 42bd923e$0$11157$
Reboujour,
Soit le code suivant dans Tmajglobalessf :
DoCmd.GoToRecord acDataForm, "Tmajglobalessf", acFirst For g = 1 To fin If Me![OK] Then Forms![Fidji]!SSFInterProg2![NumeroJI] = Me![NumeroJI] Forms![Fidji]!SSFInterProg2![Date] = Forms![Fidji]![Dateinter] End If If g <> fin Then DoCmd.GoToRecord acDataForm, "Tmajglobalessf", acNext Next g
Je veux que pour la boucle g si OK alors on ajoute les enregistrements dans SSFInterProg2, le souci c'est que ça ne marche que pour la dernière occurence de g ... A noter SSFInterProg2 est de type "Entrée donnée" En fait il faudrait que je valide dans la boucle ... mais comment faire ?
Merci Jean-Michel
Bonjour.
compte tenu que DoCmd s'applique à l'objet qui a le focus il est très
difficile de manier tes deux formulaires et je pense qu'il serait plus
facile d'utiliser deux recordset pour manipuler tes données.
Néanmoins, dans ton test de If, il faut d'abord donner le focus au
sous-formulaire, faire un DoCmd.GoToRecord ........, acNewRec pour créer un
nouvel enregistrement. charger les valeurs de chaque champ, ne pas
utiliser Me mais Forms!....... pour appeler les valeurs de l'autre
formulaire. chaque acNewRec validera l'enregistrement en cours et passera au
suivant.
--
@+
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
"J-Michel" <jean-michel@noos.fr> a écrit dans le message de news:
42bd923e$0$11157$79c14f64@nan-newsreader-06.noos.net...
Reboujour,
Soit le code suivant dans Tmajglobalessf :
DoCmd.GoToRecord acDataForm, "Tmajglobalessf", acFirst
For g = 1 To fin
If Me![OK] Then
Forms![Fidji]!SSFInterProg2![NumeroJI] = Me![NumeroJI]
Forms![Fidji]!SSFInterProg2![Date] = Forms![Fidji]![Dateinter]
End If
If g <> fin Then DoCmd.GoToRecord acDataForm, "Tmajglobalessf",
acNext
Next g
Je veux que pour la boucle g si OK alors on ajoute les enregistrements
dans
SSFInterProg2,
le souci c'est que ça ne marche que pour la dernière occurence de g ...
A noter SSFInterProg2 est de type "Entrée donnée"
En fait il faudrait que je valide dans la boucle ... mais comment faire ?
compte tenu que DoCmd s'applique à l'objet qui a le focus il est très difficile de manier tes deux formulaires et je pense qu'il serait plus facile d'utiliser deux recordset pour manipuler tes données. Néanmoins, dans ton test de If, il faut d'abord donner le focus au sous-formulaire, faire un DoCmd.GoToRecord ........, acNewRec pour créer un nouvel enregistrement. charger les valeurs de chaque champ, ne pas utiliser Me mais Forms!....... pour appeler les valeurs de l'autre formulaire. chaque acNewRec validera l'enregistrement en cours et passera au suivant.
-- @+ 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
"J-Michel" a écrit dans le message de news: 42bd923e$0$11157$
Reboujour,
Soit le code suivant dans Tmajglobalessf :
DoCmd.GoToRecord acDataForm, "Tmajglobalessf", acFirst For g = 1 To fin If Me![OK] Then Forms![Fidji]!SSFInterProg2![NumeroJI] = Me![NumeroJI] Forms![Fidji]!SSFInterProg2![Date] = Forms![Fidji]![Dateinter] End If If g <> fin Then DoCmd.GoToRecord acDataForm, "Tmajglobalessf", acNext Next g
Je veux que pour la boucle g si OK alors on ajoute les enregistrements dans SSFInterProg2, le souci c'est que ça ne marche que pour la dernière occurence de g ... A noter SSFInterProg2 est de type "Entrée donnée" En fait il faudrait que je valide dans la boucle ... mais comment faire ?