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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager