Discussion :

[azertix]

Bonjour tout le monde.
Comme l'indique le titre, j'aimerais récupérer la valeur de la clé primaire (NumAuto) de l'enregistrement qui vient d'être ajouté.
J'ai suivi cette question de la FAQ : Comment savoir quelle valeur vient de prendre un champ NuméroAuto après l'ajout d'un enregistrement ?
Et j'ai donc pondu le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set bd = CurrentDb
Dim tVendeur As Recordset
Set tVendeur = bd.OpenRecordset("VENDEUR", DB_OPEN_DYNASET)
tVendeur.AddNew
NoVendeur = tVendeur("NumVendeur")
tVendeur![NomVendeur] = oWSht.Cells(i, 3)
tVendeur.Update

Ma table est de la forme :

VENDEUR (NumVendeur, NomVendeur)

NoVendeur est la variable qui doit récupérer la valeur de NumVendeur qui vient d'être ajouté.
Quand je place un point d'arrêt pour voir ce que contient l'expression

tVendeur("NumVendeur")

je vois "Variable objet ou variable de bloc With non définie" et bien entendu, NoVendeur ne contient rien.

Merci d'avance à ceux qui me liront

[Invité]

Bonjour

Es-tu sur des orthographes des champs ?
Comment est déclaré NoVendeur et où ?

Essayes de mettre une requête SQL à la place de la table VENDEUR.

Starec

[psykodumarteau]

Bonjour,

Dans l'ouverture de ton recordset, tu mets un type "DB_OPEN_DYNASET". C'est pas plutôt "dbOpenDynaset"?

Cordialement

[azertix]

Bonjour

Es-tu sur des orthographes des champs ?
Comment est déclaré NoVendeur et où ?

Pour l'orthographe, c'est ok.
Pour NoVendeur, il est déclaré au début de ma procédure comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim NoVendeur As Integer

Essayes de mettre une requête SQL à la place de la table VENDEUR.

Donc il faudrait mettre un truc de la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
req = "INSERT INTO ..."
DoCmd.RunSql req

au lieu d'utiliser la DAO, c'est bien ça ?

[azertix]

Bonjour,

Dans l'ouverture de ton recordset, tu mets un type "DB_OPEN_DYNASET". C'est pas plutôt "dbOpenDynaset"?

Cordialement

Ben c'est possible mais j'ai toujours fait comme ça et on m'a appris comme ça, donc je pense que ça marche aussi
Mais je vais tester quand même

Edit : Après test, il semblerait que la bonne syntaxe soit celle que tu as donné, mais avec ma syntaxe ça marche aussi, donc les trucs que j'ai déjà fait comme ça, resteront comme ça, mais je mettrai la bonne syntaxe pour les prochains

[Invité]

Re

Si tu mets cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

req = "INSERT INTO ..."

Cela ne sert à rien tout ce que tu as fait, je te parles d'une simple requête SELECT.

Starec

[Invité]

Re

Cela ne posera peut-être pas de problème, mais ta variable doit être de type long, car NumAuto est un long.

Starec

[azertix]

Re

Si tu mets cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

req = "INSERT INTO ..."

Cela ne sert à rien tout ce que tu as fait, je te parles d'une simple requête SELECT.

Starec

J'ai testé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set tVendeur = bd.OpenRecordset("SELECT NumVendeur FROM VENDEUR;", dbOpenDynaset)

mais aucun changement

Re

Cela ne posera peut-être pas de problème, mais ta variable doit être de type long, car NumAuto est un long.

C'est fait !

[psykodumarteau]

re,

je viens de relier ton code, essaye de remplace

NoVendeur = tVendeur("NumVendeur")

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoVendeur = tVendeur.Fields("NumVendeur")

Après essaye d'inverser les lignes

NoVendeur = tVendeur("NumVendeur")

et

tVendeur![NomVendeur] = oWSht.Cells(i, 3)

et si ca marche toujours, tu peux essayer de récupére la valeur à près le "Update" même si c'est pas très propre.

Cordialement

[azertix]

Yop !
Je viens donner des nouvelles : le fait d'inverser les deux lignes était visiblement la bonne solution.
D'ailleurs c'est logique quand on y pense. Le numauto est créé quand un enregistrement est ajouté, et pour que l'enregistrement soit effectif, il faut que la ou les autres données de la table soient renseignées.
Il est donc inutile de tenter de récupérer un numauto alors qu'il n'a pas encore été créé.
C'est bien vu
Bon je vous tiens au courant si je rencontre d'autres difficultés, mais je pense que c'est ok, donc :


P.S : Il ne me reste plus qu'à régler mon problème de checkbox pour boucler mon appli, donc si des âmes charitables passent dans le coin, ça se passe par là : Cocher des CheckBox d'un état en fonction d'élements sélectionnés d'une zone de liste
Merci d'avance

[Chrysostome]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tVendeur(0) juste après tVendeur.addnew

, ça devrait te donner la réponse!