[Résolu] Récupérer l'id max d'une table

Récupérer l'id max d'une table [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 05-04-2006 à 17:09:47    

Bonjour
Voila j'effectue les commandes suivantes :  
Dim tempreq As DAO.Recordset
Set tempreq = mabase.OpenRecordset("SELECT max(Id_equip) FROM EQUIPEMENT" )
 
Voila mais le probleme c'est que je n'arrive pas a récupérer la valeur que me retourne la requete du fait que j'utilise max.
 
Pourriez-vous m'aider svp.


Message édité par hacksi le 13-04-2006 à 14:04:20
Reply

Marsh Posté le 05-04-2006 à 17:09:47   

Reply

Marsh Posté le 05-04-2006 à 17:20:24    

Peut-être avec :

Set tempreq = mabase.OpenRecordset("SELECT E1.Nom_equip " & _
"FROM EQUIPEMENT E1" & _
"WHERE " & _
 " E1.Id_equip IN " & _
 "(SELECT max(E2.Id_equip) FROM EQUIPEMENT E2);"


(J'ai testé quelque chose comme cela en VBA Access et ça marchait.)
 

Reply

Marsh Posté le 05-04-2006 à 17:23:10    

Ok c'est bon j'ai réussi.
Mais un autre problème se pose :
j'effectue la requete suivante UPDATE EQUIPEMENT SET Libelle='" & temp & "' WHERE Id_equip='" & num & "'" mais le problème c'est que l'Id_equip de la table EQUIPEMENT est un NuméroAuto alors de quel type doit être ma variable "num" car j'ai un message d'erreur d'incompatibilité de type.

Reply

Marsh Posté le 05-04-2006 à 17:27:01    

Je crois que c'est un problème de guillemets.
Les numéros automatiques sont des entiers longs, donc quand on fait une comparaison, il ne faut pas utiliser de guillemets.

Reply

Marsh Posté le 05-04-2006 à 17:29:39    

je fais :  
Dim num As Long
CurrentDb.Execute "UPDATE EQUIPEMENT SET Libelle='" & temp & "' WHERE Id_equip=' & num & '"
 
Mais jai toujours un message d'erreur d'imcompatibilité

Reply

Marsh Posté le 05-04-2006 à 17:33:54    

Et avec ca ?

CurrentDb.Execute "UPDATE EQUIPEMENT SET Libelle='" & temp & "' WHERE Id_equip=" & num


Reply

Marsh Posté le 05-04-2006 à 21:33:35    

oui c'est bon ça marche merci :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed