OVH Cloud OVH Cloud

pb VBA

1 réponse
Avatar
J-Michel
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

1 réponse

Avatar
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