Discussion :

[laurent.w]

bonjour,
voilà je souhaiterais inscrire dans une table la valeur d'une zone de liste (pas une zone de liste deroulante) le pb est qu'à chaque fois il n'y a rien dans la table, il ne recupere pas la valeur. pourtant voici le code:

Code :

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

![CounterpartyNature] = frmCurrent.cbxCounterpartyNature.Column(1)

cbxCounterpartyNature= zone de liste
d'ou vient l'erreur

merci d'aavnce

[Heureux-oli]

Combien de colonne as-tu dans ta liste, la numérotation commence à 0.

En plus,

Code :

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

![CounterpartyNature] = frmCurrent.cbxCounterpartyNature.Column(1)

est incomplet !

Donne nous le code complet de la ligne.

[laurent.w]

çà fait partie d'un with

Code :

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

1
2
3
4
5
6
7
8
9
 
With rdsFiles
    .AddNew
    ![CounterpartyNature] = frmCurrent.cbxCounterpartyNature.Column(0)
    .Update
    .Bookmark = .LastModified
    lngFileId = ![FileId]
    .Close
End With

le reste fonctionne j'ai essayé column (1) column (0) rien ne fonctionne
faut il utiliseun value

[ft035580]

Salut,

Peut-être:

Code :

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

1
2
3
4
5
6
With rdsFiles
    .AddNew
    .Fields("CounterpartyNature") = Me.cbxCounterpartyNature.Column(0)
    .Update
    ...
End With

[laurent.w]

je viens d'essayer çà ne s'inscrit pas dans la table, je rappelle que c'est une zone de liste et non une zone de liste modiifable

[Heureux-oli]

sur quel évènement le code s'exécute-t-il ?

[laurent.w]

sur l'appui d'un bouton pour inscrire les valeurs saisi
je n'ai pas inscrit d'evenement dans les propriete. je veux que l'on insrive dans une table le contenu de la liste
merci

[Heureux-oli]

Un petit dessin.
Je ne l'ai pas mis dans une table, mais le fait afficher à la place de Cation dans une étiquette.

Pour la table c'est à peu de chose près le même principe.

Ce qui nous manque, d'est de savoir si tu parviens à récupérer les données oou si c'est les inscrire dans une table qui ne fonctionne pas.

[laurent.w]

c'est simplmeent les inscrire dans une table qui ne fonctionne pas

[Heureux-oli]

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim bds As Database, rst As Recordset
 
    Set bds = CurrentDb
    Set rst = bds.OpenRecordset("tblClients")
    rst.AddNew
    rst!Nom = NewData
    rst.Update
    Response = acDataErrAdded

C'est grosso modo un code qui fonctionne assez bien

[Invité]

Salut

Si j'ai bien compris c'est un élément de cette liste que tu veux mettre dans ta table. Tu indiques une colonne et non un emplacement dans ta liste.

Ce que je te conseille c'est de déterminer quel élément dans la liste et non dans la colonne. Pour cela il faut utiliser les propiriétés listindex et selected.

Je ne peux mettre de code pour l'instant.

Starec