dPm Posté(e) le 27 octobre 2005 Signaler Share Posté(e) le 27 octobre 2005 ouais je sais, on m'a longtemps dit de pas toucher au visual basic, que c'était un langage pourrit... mais là c'est du VBA dans une base de donnée, j'ai du jouer un peu de visual basic... imaginez une liste d'objects sélectionnés parmis d'autres. Ce que je veux faire, c'est remettre la liste à zéro. la sélection se fait simplement en cochant une case. Ca, ça marche. Mais ma remise à zéro ne marche pas.. [cpp]Private Sub cmdYES_Click() lbl.Caption = "Remise à zero en cours, veuillez patienter" cmdYES.Caption = "en cours" cmdNO.Caption = "en cours" 'remise à zéro DoCmd.GoToRecord , , acFirst Do Until Tables.T_DH.cout = 0 DoCmd.RunMacro "M_DH_RAZ" DoCmd.GoToRecord , , acNext Loop 'RAZ finie lbl.Caption = "Remise à zero terminée." cmdNO.Caption = " " cmdNO.Caption = "Fermer" End Sub[/cpp] Lors de l'execution du script (clique sur la commande cmdYES), une erreur apparait et VB me surligne la 10ème ligne. Tous les éléments de la liste sélectionnée ont une case "coût". Cette case n'est jamais nulle, sauf pour le dernier élément qui est vide. C'est pourquoi la boucle doit boucler (joli !) jusqu'au dernier élément. Pour désélectionner les éléments de la liste, j'utilise une macro. Il y a peut-être un problème avec cette macro, mais je crois pas... voilà... si des idées apparaissent... (autre que d'utiliser un autre langage bien sûr ^^) Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
Chico Posté(e) le 27 octobre 2005 Signaler Share Posté(e) le 27 octobre 2005 si ça peut aider à mieux visualiser : http://pastebin.com/407691 Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Rejoindre la conversation
Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.