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..

[Oleff]

Bonjour,

Code :

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

1
2
3
4
5
    If AccesCode <> "" Or Not IsNull(AccesCode) Then
        InterventionStatut = "En cours"
    End If
 
    Me.Refresh

devrait fonctionner mais il faut que tu les places sur l'afterUpdate() de la zone AccessCode.

[Zartak]

En effet ca parrait deja plus logique que mon raisonnement , malheureusement ca ne fonctionne pas . Le fait que ce soit des zones de liste avec une source de contrôle et un contenu attribué par une requête SQL et non un simple champ n'est pas génant au final?

J'ai également essayé une valeur par defaut mais ca ne fonctionne pas non plus..

[Oleff]

Est-ce que la source de InterventionStatut comprend "en cours" ?
Combien de colonnes comprend InterventionStatut ?

Si InterventionStatut comprend plusieurs colonnes, il faut affecter par

Code :

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

InterventionStatut.Column(indexDeLa colonne) = "En cours"

Sinon, il faut utiliser la propriété itemSelected.

Si tu dois ajouter "en cours" à ta zone de liste il faut utiliser addItem.

[Zartak]

Merci pour ta réponse. Oui ma liste InterventionStatut comprend "En cours", j'ai d'ailleurs testé un List.ItemData(i) en valeur par defaut mais ca ne marche pas non plus.

Ensuite non, je n'ai qu'une colonne dans InterventionStatut,

Je ne comprends pas pourquoi il ne m'affiche rien , je me resouds finalement a seulement mettre une valeur par defaut ("En cours") qui est dans ma liste mais je n'y arrive pas non plus

[Oleff]

Essaie

Code :

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

1
2
Me.InterventionStatut = "En cours"
Me.InterventionStatut.requery

Par contre il faut aussi que tu affectes la valeur qui va bien pour AccessCode null ou vide.
Sinon, ta liste garde la derniere valeur sélectionnée

Et pour l'affichage, vérifie ta source de données, si tu tapes dans une table, vérifie avec le QBE qu'il y a queque chose à afficher

[tahdeveloppement]

noter bien que l'expression [AccesCode <> "" Or Not IsNull(AccesCode)] est toujours vrai

[Zartak]

J 'ai essayé, donc je recupère bien la valeur, j ai essayé en mode debug il me dit que la valeur de mon champ est bien egal a "En cours", mais il ne me l'affiche pas dans ma zone de liste

[jean-paul lepetit]

Salut,

Ensuite non, je n'ai qu'une colonne dans InterventionStatut,

tu n'as pas de colonne masquée dans ta zone de liste?

[tahdeveloppement]

Il suffit que ta liste contient le text "En cours"

[Zartak]

Si mais la liste masquée contient d'autres valeurs qui n'ont rien avoir, ca a une influence?

Dans ma liste j'ai bien "En cours", si c est ce terme que je veux afficher ca pose quand même un problême?

[jean-paul lepetit]

Une zone de liste à une colonne liée.
c'est cette colonne qui contient la valeur qui sera exploitée.

tu peux avoir

col1 col2
1 vrai
2 faux
3 En cours

si ta colonne liée est la colonne 1 et qu'elle soit masquée, pour afficher "En cours dans ta zone de liste il faut que tu mettes maliste=3

[Zartak]

Ma colonne liée c est plutot la première avec d'autres valeurs :

colonne 1 colonne 2
1.ENCOURS En cours

J'affiche la deuxième colonne tout en fesant une selction a partir de la première ( c est pour les enregistrements dans la table )

[jean-paul lepetit]

alors essaies ceci

Code :

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

InterventionStatut = "ENCOURS"

[Zartak]

En effet apres reflexion ca semble plus logique..! je te remercie mille fois !

Code :

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

1
2
3
4
5
6
7
Private Sub AccesCode_AfterUpdate()
    If AccesCode <> "" Or Not IsNull(AccesCode) Then
        Me.InterventionStatut = "1.ENCOURS"
        Me.InterventionStatut.Requery
    End If
 
End Sub

[Zartak]

Finalement j'ai du retoucher un peu le code pour que le changement ne se fasse pas à chaque selection, mais que ca fonctionne plutôt comme une valeur par défaut lors de la première sélection:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub AccesCode_AfterUpdate()
    'Valeur par defaut d'intervention Statut
 
    If AccesCode <> "" Or Not IsNull(AccesCode) Then
        If Me.InterventionStatut = "1.ENCOURS" Or Me.InterventionStatut = "2.RESOLU" Then
            'Ne rien faire
        Else
            Me.InterventionStatut = "1.ENCOURS"
            Me.InterventionStatut.Requery
        End If
    End If
End Sub

Voila merci à ceux qui m'ont aidé !