utiliser le max d'une clé

**Elstak** · 31/05/2007, 14h52

bonjour,

j'essaye d'ajouter un enregistrement dans une table. pour cela l'utilisateur me donne un nom et en cliquant sur un bouton ca va l'ajouter dans la table avec une clé que je calcule.

pour cela j'ai essayé de faire ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
MaxSection = "select MAX(id_section) from section"
Set rs = db.OpenRecordset(requete)
 
 
 
    If (Me.Texte22.Value <> "") Then
 
        rs.AddNew
        rs!id_section = MaxSection + 1
        rs!lib_section = Me.Texte22.Value
...

ma clé est id_section et je cherche donc à récupérer le max auquel j'ajoute 1.

le pb est que mon MaxSection est in Integer donc j'ai une 'erreur incompatibilité de type' sur ma premiere ligne.

comment puis je faire? j'ai essayé de trouver comment convertir un string mais j'ai trouvé StrConv qui converti en minuscule ou en majuscule ou.... mais ca m'interessse pas

donc :
est ce bien comme ca que je dois faire? (recupérer le max et ajouter 1)?
si oui,comment palier à mon probleme?

merci

edit : en fait mon pb vient du fait que maxsection contient la requete... comment faire pour qu'il contienne le resultat? (le max)

**PsykotropyK** · 31/05/2007, 15h02

Euh....

Déja écrit comme ca, dans ton code, MaxSection, c'est du texte, et ca renvoie "select MAX(id_section) from section", et non pas le résultat de ta requête.

Essai plutôt un (en activant les références DAO) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
Set db = DBEngine.OpenDatabase(Application.CurrentProject.FullName) 
Set rst = db.OpenRecordset("select MAX(id_section) from section")
 
TonIndex = rst.Fields(0) + 1
 
Set rst = Nothing
Set db = Nothing

Ce code sous entend que ta requête sql soit juste.

Par contre pourquoi ne pas mettre ta clef en NuméroAuto, comme ca t'as pas a la calculer quand on ajoute un enregistrement (et puis ca reviens a prendre le max id_section et lui ajouter un...)

A oui j'aillais oublier, rs renverra rien à mon avis, sauf si plus haut tu as définit pour requete une requête valide.