OVH Cloud OVH Cloud

"MoveNew" ?

2 réponses
Avatar
assylias
Bonjour,

à l'ouverture d'un formulaire, je souhaite aller sur un nouvel
enregistrement.
J'ai donc le code suivant dans From_Load :

Set rst = Me.RecordsetClone

rst.MoveLast
Me.Bookmark = rst.Bookmark
Set rst = Nothing

DoCmd.GoToRecord , , acNext

Est-ce qu'il n'extiste pas une fonction du style "MoveNew" qui permettrait
d'écrire :

Set rst = Me.RecordsetClone

rst.MoveNew
Me.Bookmark = rst.Bookmark
Set rst = Nothing

ps : j'ai essayé avec addnem, mais ça marche pas...

2 réponses

Avatar
Raymond
Bonjour.

Pourquoi veux-tu compliquer la tâche ?

il suffit d'indiquer, comme tu l'as fait:

DoCmd.GoToRecord , , acNewRec

pour se placer sur un nouvel enregistrement dans le formulaire actif (celui
qui a le focus, généralement celui sur lequel on se trouve).
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"assylias" a écrit dans le message de
news:
Bonjour,

à l'ouverture d'un formulaire, je souhaite aller sur un nouvel
enregistrement.
J'ai donc le code suivant dans From_Load :

Set rst = Me.RecordsetClone

rst.MoveLast
Me.Bookmark = rst.Bookmark
Set rst = Nothing

DoCmd.GoToRecord , , acNext

Est-ce qu'il n'extiste pas une fonction du style "MoveNew" qui permettrait
d'écrire :

Set rst = Me.RecordsetClone

rst.MoveNew
Me.Bookmark = rst.Bookmark
Set rst = Nothing

ps : j'ai essayé avec addnem, mais ça marche pas...


Avatar
Jeff
Bonjour

Si tu ouvres le formulaire à l'aide d'une macro, tu dois indiquer dans "Mode
de donnée" l'option "Ajout".

Si tu ouvres le formulaire par du code VBA (DoCmd.OpenForm...) tu peux faire
par exemple :

DoCmd.OpenForm "nomduformulaire",,,,AcFormAdd

Cordialement

Jeff

Charte du forum : http://users.skynet.be/mpfa/

"assylias" a écrit dans le message de
news:
Bonjour,

à l'ouverture d'un formulaire, je souhaite aller sur un nouvel
enregistrement.
J'ai donc le code suivant dans From_Load :

Set rst = Me.RecordsetClone

rst.MoveLast
Me.Bookmark = rst.Bookmark
Set rst = Nothing

DoCmd.GoToRecord , , acNext

Est-ce qu'il n'extiste pas une fonction du style "MoveNew" qui permettrait
d'écrire :

Set rst = Me.RecordsetClone

rst.MoveNew
Me.Bookmark = rst.Bookmark
Set rst = Nothing

ps : j'ai essayé avec addnem, mais ça marche pas...