problème de remplissage automatique de champs

Bonjour,
Je cherche à faire un formulaire qui permette de mettre en classes une liste d'individus. On rentre le nombre de classes et leurs limites dans le formulaire puis on envoie et dans la théorie ça devrait fonctionner mais bien sur ça n'est pas le cas sinon je ne serai pas la. Voici mon code, l'erreur se produit à la ligne sous le case else pour remplir le champ tranches avec la valeur 1, et je ne comprend pas vraiment ce que signifie le message d'erreur : "aucun texte de commande n'a été défini pour l'objet de commande". Ce message n'arrive que quand j'enlève la routine de gestion d'erreur sinon j'ai droit à une erreur numéro 0 qui bloque l'execution aussi. Quelqu'un pourrait-il m'aider? Je me rend compte que mon niveau n'est pas élevé et que je pollue plus ou moins le forum mais cela fait 3 jours que je bloqué la dessus donc je me permet de lancer un appel à l'aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Private Sub Btranches_Click() On Error GoTo err_fct   Dim i As Integer Dim cn1 As ADODB.Connection Set cn1 = CurrentProject.Connection Dim mysql As String Dim myRS As New ADODB.Recordset myRS.ActiveConnection = cn1 myRS.CursorType = adOpenDynamic myRS.LockType = adLockOptimistic   For i = 1 To nbcommunes Select Case [Montant par élève pris en compte] Case Is > TBlimsup7 myRS.Fields("tranches").Value = 8 Case TBlimsup6 To TBlimsup7 myRS.Fields("tranches").Value = 7 Case TBlimsup5 To TBlimsup6 myRS.Fields("tranches").Value = 6 Case TBlimsup4 To TBlimsup5 myRS.Fields("tranches").Value = 5 Case TBlimsup3 To TBlimsup4 myRS.Fields("tranches").Value = 4 Case TBlimsup2 To TBlimsup3 myRS.Fields("tranches").Value = 3 Case TBlimsup1 To TBlimsup2 myRS.Fields("tranches").Value = 2 Case Else myRS.Fields("tranches").Value = 1 End Select   myRS.MoveNext   Next i   err_fct: Resume Next MsgBox "Erreur n° " & Err.Number & ": " & Err.Description   Set myRS = Nothing Set cn1 = Nothing End Sub

---

Déjà, si tu utilises une gestion d'erreur, tu dois placer un Exit Sub avant l'étiquette err_fct pour ne pas passer dedans à tous les coups.
Il faut donc déplacer tout ce qui est après la gestion d'erreur pour que ce soit pris en compte.
Ceci donne, pour ton cas:

Code:

---

1 2 3 4 5 6 7 8

Set myRS = Nothing Set cn1 = Nothing   Exit Sub err_fct: Resume Next MsgBox "Erreur n° " & Err.Number & ": " & Err.Description End Sub

---

salut
je ne comprend pas tout a ton code, mais déja, je ne suis pas sur que tes intervalles soient bien définis. je ne sais pas si c'est cela qui peut te donner cette erreur 0, mais quand tu écris

Code:

---

1 2 3 4

Case TBlimsup6 To TBlimsup7 myRS.Fields("tranches").Value = 7 Case TBlimsup5 To TBlimsup6 myRS.Fields("tranches").Value = 6

---

pour l'ordi, en supposant que la valeur soit TBlimsup6 il se retrouve avec 2 cases de même valeur, ça doit le perturber.
et puis, il y a un truc qui me chafouine, mais je n'en suis pas sur, il me semble que le cas d'erreur 0 est justement la valeur d'erreur quand il n'y a pas d'erreur. c'est a vérifier
bon dimanche
ps : quand a polluer le forum, ça servirai a quoi qu'on se décarcasse si personne n'avait de soucis, hein?

Citation:

---

Envoyé par alsimbad

il me semble que le cas d'erreur 0 est justement la valeur d'erreur quand il n'y a pas d'erreur.

---

C'est la raison de mon intervention au dessus de la tienne.

merci à vous pour vos réponses, cela m'a aidé malheureusement mon programme n'est toujours pas au point,j'avai un autre message d'erreur qui s'affichait donc j'ai rajouté la méthode .Open et cela a marché car je n'ai plus de message d'erreur, mais il ne se passe absolument rien lorsque je lance le programme.

Code:

---

1 2 3 4

myrs.ActiveConnection = cn1 myrs.CursorType = adOpenDynamic myrs.LockType = adLockOptimistic myrs.Open "SELECT tranches FROM statistiques"

---

Cela selectionne le champ tranches, le champ que je souhaite modifier, dans ma table "statistiques". En théorie, je crois que c'est ce qu'il faut faire mais ça ne fonctionne pas donc je suis à nouveau bloqué.