OVH Cloud OVH Cloud

listbox

1 réponse
Avatar
Alain Roger
Salut à tous
J'ai un list box avec lequel je veux afficher les données que j'ajoute dans une table. Quand je mets à jour la table le listbox n'affiche pas immédiatement l'enregistrement que je viens d'ajouter mais quand j'ajoute un autre élément dans la table il m'affiche dont l'avant dernier element que j'ai enregistré. En fait mon list box a toujours un retard d'un eregistrement su la table. Quelqu'un pourrait-il me dire comment y remedier
Voivi mon code
Rst.Open "select * from commande", Cnn, adOpenKeyset, adLockOptimisti
Rst.AddNe
Rst!prix = pri
Rst!code_article = code_articl
Rst!quantite = quantit
Rst!Designation = Designatio
Rst!numero_commande = numero_command
Rst!code_article_fournisseur = code_article_fournisseu
Rst!conditionnement_fournisseur = conditionnement_fournisseu

Rst.Updat
Rst.Clos

Num_Com = CInt(numero_commande
List32.SetFocu
List32.RowSource = "SELECT commande.numero_commande, commande.code_article_fournisseur, commande.designation, commande.conditionnement_fournisseur, commande.prix, commande.quantite FROM commande where numero_commande=" & Num_Com & "
List32.Requer

Merci d'avanc
NB: la table en question c'est la table commande et le listbox c'est list32

1 réponse

Avatar
?Lo»Paris?
"Alain Roger" a écrit dans le message
de news:
Salut à tous,
J'ai un list box avec lequel je veux afficher les données que j'ajoute
dans une table. Quand je mets à jour la table le listbox n'affiche pas

immédiatement l'enregistrement que je viens d'ajouter mais quand j'ajoute un
autre élément dans la table il m'affiche dont l'avant dernier element que
j'ai enregistré. En fait mon list box a toujours un retard d'un
eregistrement su la table. Quelqu'un pourrait-il me dire comment y remedier?
Voivi mon code:
Rst.Open "select * from commande", Cnn, adOpenKeyset, adLockOptimistic
Rst.AddNew
Rst!prix = prix
Rst!code_article = code_article
Rst!quantite = quantite
Rst!Designation = Designation
Rst!numero_commande = numero_commande
Rst!code_article_fournisseur = code_article_fournisseur
Rst!conditionnement_fournisseur = conditionnement_fournisseur

Rst.Update
Rst.Close

Num_Com = CInt(numero_commande)
List32.SetFocus
List32.RowSource = "SELECT commande.numero_commande,
commande.code_article_fournisseur, commande.designation,

commande.conditionnement_fournisseur, commande.prix, commande.quantite FROM
commande where numero_commande=" & Num_Com & ""
List32.Requery

Merci d'avance
NB: la table en question c'est la table commande et le listbox c'est
list32


Bonour Roger,

Si j'ai bien compris ton pb, ajoute la ligne suivante :

Liste32.Requery
Liste32 = Num_Com

°Laurent°