probléme code incrementation

Bonjour,

je travail sous access et j'ai un formulaire qui permet d'ajouter un secteur, la table secteur est composé d'un numero et d'un nom. je veux que le numéro s'affiche automatiquement (mais sans auto incrementation) pour cela j'ai crée le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub N_SECTEUR_Click()   Dim db As Database Dim rs As Recordset Dim sql As String Dim i As Integer   Set db = CurrentDb sql = "Select MAX (N_SECTEUR) from SECTEUR" i = Val(sql) i = i + 1 N_SECTEUR.Text = "" & i db.Close End Sub

---

Mon code ne me renvois pas d'erreur mais il m'affiche pas la bonne valeur, il m'affiche 0 alors qu'il devrait afficher 52, ma requête ne contient pas d'erreur je l'ai tester. Je suis perdu je n'ai aucune idée de l'origine de cette erreur alors si vous avez une petite idée...

Bonjour,

essaie :

Code:

---

1 2	N_SECTEUR = "" & i

---

C'est comme cela qu'il faut faire pour attribuer une valeur à un contrôle. ;)

merci de me répondre, je viens d'essaier mais cela n'a rien changé, j'ai toujours le mauvais chiffre

Il t'affiche 0 parce qu'il n'y a aucun nombre dans ta requète ...
Val retourne les nombres contenus dans une chaine de caractères ;)

J'ai du mal à comprendre ce que tu veux faire, et ton code ne fait pas grand chose :roll:

Ah oui, effectivement j'avais regardé trop vite :oops:, le problème vient de ta requête ou plus exactement la façon dont tu l'exploites.

La fonction val te retourne le nombre contenu dans une chaine de caractères, c'est une fonction de conversion. en clair si ta chaine est "25" elle te retournera 25. Dans ton cas étant donné que la chaine ne contient pas un nombre elle te renvoie 0 qui est je suppose la valeur par défaut.

Pour une requête il faut utiliser un recordset :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

dim db as database dim rs as recordset dim sql as string dim i as string   set db = currentdb()   sql = "Select MAX (N_SECTEUR) from SECTEUR;"   set rs = db.openrecordset(sql)   i = rs.fields(0).value   etc ...

---

Merci de ta précision

Le résultat est inchangé et je comprend pas pourquoi l'erreur serai sur cette ligne, c'est ma zone de texte de mon formulaire qui affiche le numero de secteur.

En fait, j'ai un formulaire où l'utilisateur tape le secteur à creer et lorsqu'il clique sur la zone de texte "N_Secteur", le numéro du secteur s'affiche, il peut alors cliquer sur le bouton "Ajouter" pour ajouter le numéro de secteur.
Pour avoir le numéro de secteur je vais chercher le n-secteur le plus éleve de la table et lui rajoute 1.Mais actuellment, il m'affiche le numéro de secteur 1 qui existe dans déja dans ma table

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub N_SECTEUR_Click()   Dim db As Database Dim rs As Recordset Dim sql As String Dim i As Integer   Set db = CurrentDb sql = "Select MAX (N_SECTEUR) from SECTEUR;" Set rs = db.openrecordset(sql) i = rs.fields(0).Value Me.N_SECTEUR = i db.Close   End Sub

---

ça Marche :lol:
Je vous remercie ca m'enléve une épine du pied

Je t'en prie :king: