Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2732 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  inserer un compteur

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

inserer un compteur

n°1845143
eglantine ​cent
Posté le 30-01-2009 à 11:40:21  profilanswer
 

bonjour
dans une procédure VB je souhaiterai insérer un compteur qui puisse m'indiquer (fenêtre  dans le formulaire  ) le'enregistrement en cours que le programme traite , l'opération étant longue suivant le traitement, je ne sais pas si il marche , donc un compteur me montrerai le fonctionnement j'ai essaye de l'inclure dans chaqe sub mais cela n'a jamais pris   si quelqu'un sait faire ce serait super sympa
merci d'avance

mood
Publicité
Posté le 30-01-2009 à 11:40:21  profilanswer
 

n°1845191
cvb
Posté le 30-01-2009 à 13:26:11  profilanswer
 

salut,
 
Tu peux nous afficher ton code et l'endroit ou tu désire mettre ton compteur ? merci !
 
++

n°1845222
eglantine ​cent
Posté le 30-01-2009 à 14:08:23  profilanswer
 

en fait j'ai indique le compteur dans le sub mais rien ne s'affiche et je voudrai que le N° de l'enregistrement traite soit visible dans le formulaire pour suivre le travail
 
Sub CompareDansTableAchat4champs(p1, p2, p3, p4, NomChampsAValoriser)
Dim MaBase
MonCompteur = 0
Set MaBase = CurrentDb()
    Set basetravail = MaBase.OpenRecordset("ANALYSE" )
        Form("Deroulement" ).Value = CStr(Date) + "(" + CStr(Time) + " )" + ": " + "JE vais parcourir ANALYSE" + vbCrLf + Form("Deroulement" ).Value
 
    If Not basetravail.EOF Then
        basetravail.MoveFirst
    End If
    Do Until (basetravail.EOF)
        MonCompteur = MonCompteur + 1
         
     Form("Deroulement" ).Value = CStr(Date) + "(" + CStr(Time) + " )" + ": " + "Compteur = " + CStr(MonCompteur) + " ; " + vbCrLf + Form("Deroulement" ).Value
        basetravail.Edit
      a01 = basetravail("A" )
      a02 = basetravail("B" )
      a03 = basetravail("C" )
      a04 = basetravail("D" )
 
      If (a01 = p1 And a02 = p2 And a03 = p3 And a04 = p4) then
         
         
         basetravail(NomChampsAValoriser) = 1
     
    End If
      basetravail.Update
      basetravail.MoveNext
    Loop
 
End Sub


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  inserer un compteur

 

Sujets relatifs
Inserer de la gestion de donnees via SQL dans du code C[HTML]Inserer un Frame ( ou iFrame ) dans une image imageshack
Insérer une image dans un JLabel avec setIcon[HTML] Insérer un espace pour afficher un texte en bas de page
[C#] Insérer une ligne dans tabeau Excel[PHP / MySQL] Compteur de visiteurs
Insérer une image avec itextInsérer un compteur dans une page HTML
Inserer un compteur de visiteur ...J'arrive pas a inserer un compteur sur ma page perso wanadoo !!!
Plus de sujets relatifs à : inserer un compteur


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR