Discussion :

[Zartak]

Bonjour, en fait j'aimerai affecter une valeur à un champ, nommé InterventionStatut, j ai essayé cette manière mais sans resultat convaincant, je solicite donc votre aide si quelqu'un peut m'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub UpdateInterventionStatut()
 
    If AccesCode <> "" Or Not IsNull(AccesCode) Then
        InterventionStatut = "En cours"
    End If
 
    Me.Refresh
 
End Sub

AccesCode est le nom de la zone de liste que je test, InterventionStatut est le nom de la zone de liste dont je veux changer la valeur.

Code :

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

1
2
3
4
 
Private Sub InterventionStatut_AfterUpdate()
    UpdateInterventionStatut
End Sub

Mais ca ne fonctionne pas..

[timoth]

Qu'est-ce qui ne fonctionne pas ? Tu as un message d'erreur ou aucun résultat ?

La premiere erreur est que dans la fonction de ton module (UpdateInterventionStatut()), il faut que tu fasse référence au formulaire dont appartiennent les controles, sinon, il les considerera comme des variables.
Il faut que tu écrives qqc du genre:

Code :

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

1
2
3
4
5
    If Forms("Nom du formulaire").Controls("AccesCode") <> "" Or Not IsNull(Forms("Nom du formulaire").Controls("AccesCode")) Then
        InterventionStatut = "En cours"
    End If
 
    Forms("Nom du formulaire").recalc

Je ne comprends pas trop pourquoi tu crées une fonction pour ca, il suffirait juste de l'écrire dans ton evenement After_Update. Du coup, pas la peine de faire référence au formulaire étant donné que tu es deja dedans:

Code :

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

1
2
3
4
5
6
7
Private Sub InterventionStatut_AfterUpdate()
        If AccesCode <> "" Or Not IsNull(AccesCode) Then
        InterventionStatut = "En cours"
    End If
 
    'Me.Refresh Je ne pense pas que ca soit nécessaire
End Sub

Bien a toi !