OVH Cloud OVH Cloud

No Record dans routine VBA

3 réponses
Avatar
JMH
Bonjour

Dans un formulaire, pour chaque modi. je crée un record dans un fichier x

Set rst = CurrentDb.OpenRecordset("tblModification")
rst.AddNew
rst!NoClient = Me.NoClient
rst!GenreTransaction = strGenre
rst.Update
rst.Close
Set rst = Nothing


Mais seulement, j'ai des cas où je dois supprimer le dernier enregistrement
créé.
A savoir que c'est un traitement en multi-utilisateur, donc je ne peux pas
me positionner sur le dernier record et le supprimer.

Je cherche à connaître le no d'enregistrement au moment de la création, afin
de pouvoir le cas échéant aller le supprimer.

Merci d'avance pour vos réponses

Jean-Michel H.

3 réponses

Avatar
Jessy Sempere
Bonjour

Regardes l'aide sur BookMark qui te renvoie l'index de l'enregistrement en
cours...

@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour

Dans un formulaire, pour chaque modi. je crée un record dans un fichier x

Set rst = CurrentDb.OpenRecordset("tblModification")
rst.AddNew
rst!NoClient = Me.NoClient
rst!GenreTransaction = strGenre
rst.Update
rst.Close
Set rst = Nothing


Mais seulement, j'ai des cas où je dois supprimer le dernier enregistrement
créé.
A savoir que c'est un traitement en multi-utilisateur, donc je ne peux pas
me positionner sur le dernier record et le supprimer.

Je cherche à connaître le no d'enregistrement au moment de la création, afin
de pouvoir le cas échéant aller le supprimer.

Merci d'avance pour vos réponses

Jean-Michel H.






Avatar
3stone
Salut,

"JMH"
| Dans un formulaire, pour chaque modi. je crée un record dans un fichier x
|
| Set rst = CurrentDb.OpenRecordset("tblModification")
| rst.AddNew


'ici, la valeur d'un numéroauto est disponible...

debug.print rst!NomCléPrimaire


| rst!NoClient = Me.NoClient
| rst!GenreTransaction = strGenre
| rst.Update
| rst.Close
| Set rst = Nothing
|


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
JMH
OK
Merci.
Vous me sauvâtes la vie :-))


"3stone" a écrit dans le message de news:
%
Salut,

"JMH"
| Dans un formulaire, pour chaque modi. je crée un record dans un fichier
x
|
| Set rst = CurrentDb.OpenRecordset("tblModification")
| rst.AddNew


'ici, la valeur d'un numéroauto est disponible...

debug.print rst!NomCléPrimaire


| rst!NoClient = Me.NoClient
| rst!GenreTransaction = strGenre
| rst.Update
| rst.Close
| Set rst = Nothing
|


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/