Bonjour
j'essaie d'éffectuer plusieurs boucles les unes derriere les autres, mais avec le code qui se trouve ci-dessous la premiere s'effectue bien mais aucunes des autres fonctionnent, le seul moyen que j'ai trouvé pour qu'elles marchent correctement est de fermer et réouvrir le recordset entre elles, mais le seul problème est qu'étant donné que ce programme est prévu pour mettre sur une page web, cela met beaucoup de temps à s'exécuter.
Y-a-t-il une solution pour qu'elles s'exécutent les unes après les autres sans fermer le recordset.
Merci d'avance à celui ou ceux qui me répondront.
Michele
Dim RS As New Recordset
Dim RS1 As New Recordset
Private CN As Connection
Set CN = New Connection
CN.Open "DSN=PointCla"
RS.CursorType = adOpenStatic
RS.CursorLocation = adUseClient
RS.Open "Select * from point WHERE RefJoueur = " & Txtref, CN, adOpenDynamic, adLockOptimistic
Private Function DefSignificative() As Integer
Dim Bonus1 As Integer
Dim Bonus2 As Integer
Dim Bonus3 As Integer
Dim Bonus4 As Integer
If Option2.Value = True Then
If txtDif.Text <= 0 Then
Do While Not RS.EOF
Bonus1 = RS!PointSupUn
RS!PointSupUn = Bonus1 + 1
RS.Update
RS.MoveNext
Loop
End If
End If
If Option2.Value = True Then
If TxtDifDeux <= 0 Then
Do While Not RS.EOF
Bonus2 = RS!PointSupDeux
RS!PointSupDeux = Bonus2 + 1
RS.Update
RS.MoveNext
Loop
End If
End If
If Option2.Value = True Then
If TxtDifTrois <= 0 Then
Do While Not RS.EOF
Bonus3 = RS!PointSupTrois
RS!PointSupTrois = Bonus3 + 1
RS.Update
RS.MoveNext
Loop
End If
End If
If Option2.Value = True Then
If TxtDifQuatre <= 0 Then
Do While Not RS.EOF
Bonus4 = RS!PointSupQuatre
RS!PointSupQuatre = Bonus4 + 1
RS.Update
RS.MoveNext
Loop
End If
End If
End Function