Discussion :

[missd12]

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 :

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

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...

[ofinot]

Bonjour,

essaie :

Code :

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

1
2
 
N_SECTEUR = "" & i

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

[missd12]

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

[azertix]

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

[missd12]

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

[azertix]

Code :

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

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

[ofinot]

Ah oui, effectivement j'avais regardé trop vite , 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 :

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

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 ...