Discussion :

[pypeseux]

Bonjour,


Je rencontre des difficulté avec un le parcours et la mise à jour du recordset d'un sous formulaire LOL_DEMANAQ-SF dans le formulaire principal LOL_DEMANA.
Lors du form_load, j'appelle un script NA_Click qui parcours le recordset rsDEMANAQ pour modifier rsDEMANAQ("on_vi") en fonction de rsDEMANAQ("on_na").

A ce stade tout fonctionne bien.

L'utilisateur peut ensuite modifier le rsDEMANAQ("on_na"), le script NA_Click est à nouveau exécuté mais à ce moment la base se plante.
J'ai alors recopié le script dans un autre évènement rattaché au sous fourmulaire : Private Sub LIBELLE_DOMAINE_Click().
Si l'utilisateur clique sur le libellé du domaine, le script se réexécute sans erreur.

J'ai l'impression qu'il y a un conflit entre la modification d'une valeur d'un champs et du script contrôlant l'enregistrement concerné.
J'ai d'ailleur le même problème si le champs modifié est différent du champs contrôlé...
Auriez vous une piste ?

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Compare Database
 
 
Private Sub Form_Load()
 
REQ_libelle = "SELECT libelle from lol_contexte where demande=0 ;" '
Me.CONTEXTE.RowSource = REQ_libelle
NA_Click
 
End Sub
 
Private Sub LIBELLE_DOMAINE_Click()
Set rsDEMANAQ = Me.Form.Recordset
Do Until rsDEMANAQ.EOF = True
    If rsDEMANAQ("on_na") = -1 Then
     rsDEMANAQ.Edit
   rsDEMANAQ("on_vi") = 0
     rsDEMANAQ.Update
    ElseIf rsDEMANAQ("on_na") = 0 Then
    rsDEMANAQ.Edit
    rsDEMANAQ("on_vi") = Null
    rsDEMANAQ.Update
    ElseIf IsNull(rsDEMANAQ("on_na")) Then
    rsDEMANAQ.Edit
    rsDEMANAQ("on_vi") = 2
    rsDEMANAQ.Update
    End If
MsgBox (rsDEMANAQ.AbsolutePosition)
MsgBox (rsDEMANAQ.RecordCount)
rsDEMANAQ.MoveNext
Loop
End Sub
 
Private Sub NA_Click()
    Set rsDEMANAQ = Me.Form.Recordset
Do Until rsDEMANAQ.EOF = True
    If rsDEMANAQ("on_na") = -1 Then
     rsDEMANAQ.Edit
   rsDEMANAQ("on_vi") = 0
    rsDEMANAQ.Update
    ElseIf rsDEMANAQ("on_na") = 0 Then
    rsDEMANAQ.Edit
    rsDEMANAQ("on_vi") = Null
    rsDEMANAQ.Update
    ElseIf IsNull(rsDEMANAQ("on_na")) Then
    rsDEMANAQ.Edit
    rsDEMANAQ("on_vi") = 2
    rsDEMANAQ.Update
    End If
MsgBox (rsDEMANAQ.AbsolutePosition)
MsgBox (rsDEMANAQ.RecordCount)
rsDEMANAQ.MoveNext
Loop
End Sub
 
Private Sub SVG_AfterUpdate()
If Me.SVG.Value = -1 Then
    Me.DATE_REVU_VB.Value = Now
    Me.PAR_VB.Value = gvLOGIN
End If
End Sub

Merci d'avance

[pypeseux]

Bonjour,

Du coups, Me.recalc placé dans la fonction NA_Click avant de lancer la fonction et le tour est joué.

A vrai dire je ne sais pas tout à fait pourquoi, si d'autres personnes ont plus d'info...

PY