Discussion :

[moilou2]

Bonjour, j'ai un léger problème, je cherche un moyen d'y palier.

A chaque fois que je fait un insert dans une table, j'ai un bout de code, qui me permet de chercher la valeur de l'ID du dernier enregistrement, et de rajouter 1 pour incréemnter cet ID.

Mais sa marche pas quand il n'y a pas encore d'enregistrement, ce qui me pose problème. Je compté donc résoudre ce problème vaec une boucle, mais je n'y arrive pas je ne doit pas avoir la bonne syntaxe.

A la base la requête est la suivante:

Code :

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

1
2
3
4
5
6
'on selectionne le maximum du champ ID_Demande
sql = "SELECT ID_Demande FROM tbl_DemandeAjoutArticle where ID_Demande =(SELECT MAX(ID_Demande) FROM tbl_DemandeAjoutArticle)"
Set oRst = odb.OpenRecordset(sql, dbOpenDynaset)
'on lui additionne 1
 
id_Demande = oRst.Fields("ID_Demande").Value + 1

Et moi j'ai essayé une boucle comme sa:

Code :

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

1
2
3
4
5
 If isnull(oRst.Fields("ID_Demande")) then
id_Demande =1
else
id_Demande = oRst.Fields("ID_Demande").Value + 1
end if

Mais sa ne fonctionne pas... Sa me met aucun enregistrement en cours!

Si quelqu'un peut me débloquer

[6ril25]

fais un

Code :

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

1
2
3
4
5
6
 
if oRst.RecordCount > 0 then
  id_Demande = oRst.Fields("ID_Demande").Value + 1
else
  id_Demande=1
end if

ou utilise la valeur "numéro automatique" d'Access pour ce champs (qui est en fait ta clé primaire)

6ril25

[6ril25]

D'ailleurs ta requête peut se simplifier à:

Code :

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

sql = "SELECT MAX(ID_Demande) AS Max_Id FROM tbl_DemandeAjoutArticle"

6ril25

[moilou2]

Super Merci beaucoup

[6ril25]