SVP TRES URGENT
cs_aziz36
Messages postés
36
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
26 septembre 2006
-
9 sept. 2006 à 13:30
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 9 sept. 2006 à 14:40
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 9 sept. 2006 à 14:40
10 réponses
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
9 sept. 2006 à 13:37
9 sept. 2006 à 13:37
Avec aussi peu d'éléments, et surtout, avec un titre pareil, on risque pas pouvoir t'aider !
Donne au moins le code qui remplit ton datagrid !
Donne au moins le code qui remplit ton datagrid !
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
9 sept. 2006 à 13:38
9 sept. 2006 à 13:38
Il manque toujours les infos que t'avais demandé PCPT dans ce topic
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
9 sept. 2006 à 13:39
9 sept. 2006 à 13:39
Et pourtant, PCPT lui a précisé cela hier...
Pour le titre, je pense que notre ami aziz36 aime bien le mot Urgent
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Pour le titre, je pense que notre ami aziz36 aime bien le mot Urgent
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
cs_aziz36
Messages postés
36
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
26 septembre 2006
9 sept. 2006 à 13:49
9 sept. 2006 à 13:49
vous avez raison mais j'etais panniqué
Au Fait, j'ai un datagrid1 où il y a l'historique des factures, et en dessous il y a deux autres datagrid2 et datagrid3
j'explique Datagrid2 c'est pour donner les détails de la facture
et datagrid3 donne d'autre détais
chaque datagrid est connecté a une table Acces
et j'ai fait le lien par des requettes parametres sur le numero de facture
Private Sub DataGrid1_Click()
On Error Resume Next
Dim I As Integer
ReyLabel1.Caption = DataGrid1.Columns(0).Value
With DE1.rsCmdDetails
If .State = 0 Then .Open
For I = 1 To .RecordCount
If !DetNumeroFac = DataGrid1.Columns(0).Value Then
DE1.CmdDet DataGrid1.Columns(0).Value
DataGrid2.DataMember = "CmdDet"
DataGrid2.Refresh
DE1.rsCmdDet.Close
Else: .MoveNext
End If
Next
End With
With DE1.rsLstMod
If .State = 0 Then .Open
For M = 1 To .RecordCount
If !ModNumFac = DataGrid1.Columns(0).Value Then
DE1.LstMod DataGrid1.Columns(0).Value
DataGrid3.DataMember = "LstMod"
DataGrid3.Refresh
DE1.rsLstMod.Close
Else: .MoveNext
End If
Next
End With
End Sub
Au Fait, j'ai un datagrid1 où il y a l'historique des factures, et en dessous il y a deux autres datagrid2 et datagrid3
j'explique Datagrid2 c'est pour donner les détails de la facture
et datagrid3 donne d'autre détais
chaque datagrid est connecté a une table Acces
et j'ai fait le lien par des requettes parametres sur le numero de facture
Private Sub DataGrid1_Click()
On Error Resume Next
Dim I As Integer
ReyLabel1.Caption = DataGrid1.Columns(0).Value
With DE1.rsCmdDetails
If .State = 0 Then .Open
For I = 1 To .RecordCount
If !DetNumeroFac = DataGrid1.Columns(0).Value Then
DE1.CmdDet DataGrid1.Columns(0).Value
DataGrid2.DataMember = "CmdDet"
DataGrid2.Refresh
DE1.rsCmdDet.Close
Else: .MoveNext
End If
Next
End With
With DE1.rsLstMod
If .State = 0 Then .Open
For M = 1 To .RecordCount
If !ModNumFac = DataGrid1.Columns(0).Value Then
DE1.LstMod DataGrid1.Columns(0).Value
DataGrid3.DataMember = "LstMod"
DataGrid3.Refresh
DE1.rsLstMod.Close
Else: .MoveNext
End If
Next
End With
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
9 sept. 2006 à 14:07
9 sept. 2006 à 14:07
Enlève le On Error Resume Next et dis nous toutes les erreurs qui s'affichent... ca peut venir de là !
Sinon, par "trembler" tu veux dire quoi ? Les données qui clignotent (à ce moment là c'est dû à une boucle infinie : le datagrid se remplit indifiniment jusqu'à plantage), ou c'est le contrôle qui se déplace sur ta form (à ce moment là, oui, il tremble ! Et c'est grave docteur !)
Sinon, par "trembler" tu veux dire quoi ? Les données qui clignotent (à ce moment là c'est dû à une boucle infinie : le datagrid se remplit indifiniment jusqu'à plantage), ou c'est le contrôle qui se déplace sur ta form (à ce moment là, oui, il tremble ! Et c'est grave docteur !)
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
9 sept. 2006 à 14:11
9 sept. 2006 à 14:11
Je pense que la tremblotte est lié au refresh dans la boucle.
For I = 1 To .RecordCount
Si .RecordCount = 10 000 données, bah t'as boucle procède à 10 000 refresh.
Une fois, en fin de boucle devrait suffir
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
For I = 1 To .RecordCount
Si .RecordCount = 10 000 données, bah t'as boucle procède à 10 000 refresh.
Une fois, en fin de boucle devrait suffir
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
9 sept. 2006 à 14:21
9 sept. 2006 à 14:21
Y'a un truc qui me choque aussi :
If !DetNumeroFac = DataGrid1.Columns(0).Value Then
DE1.CmdDet DataGrid1.Columns(0).Value
DataGrid2.DataMember = "CmdDet"
DataGrid2.Refresh
DE1.rsCmdDet.Close
Else: .MoveNext
End If
Ca sert à rien de continuer ta boucle for si tu as fermé ton recordset... (surtout que VB ne va pas aimer le prochain movenext après que le recordset soit fermé !)
donc :
If !DetNumeroFac = DataGrid1.Columns(0).Value Then
DE1.CmdDet DataGrid1.Columns(0).Value
DataGrid2.DataMember = "CmdDet"
DataGrid2.Refresh
DE1.rsCmdDet.Close
Exit For
Else
.MoveNext
End If
If !DetNumeroFac = DataGrid1.Columns(0).Value Then
DE1.CmdDet DataGrid1.Columns(0).Value
DataGrid2.DataMember = "CmdDet"
DataGrid2.Refresh
DE1.rsCmdDet.Close
Else: .MoveNext
End If
Ca sert à rien de continuer ta boucle for si tu as fermé ton recordset... (surtout que VB ne va pas aimer le prochain movenext après que le recordset soit fermé !)
donc :
If !DetNumeroFac = DataGrid1.Columns(0).Value Then
DE1.CmdDet DataGrid1.Columns(0).Value
DataGrid2.DataMember = "CmdDet"
DataGrid2.Refresh
DE1.rsCmdDet.Close
Exit For
Else
.MoveNext
End If
cs_aziz36
Messages postés
36
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
26 septembre 2006
9 sept. 2006 à 14:23
9 sept. 2006 à 14:23
MERCI
Je vais essayé vos proposition et je vous dis
Je vais essayé vos proposition et je vous dis
cs_aziz36
Messages postés
36
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
26 septembre 2006
9 sept. 2006 à 14:36
9 sept. 2006 à 14:36
j'ai triuvé l'erreur c'étais au niveau d'une boucle je me sis trompé dans le nom j'ai fais la boucle sur une commande qui était paramétré
j'ai pas attention
Merci de votre aide et la prochaine fois je ferai plus attention
j'ai pas attention
Merci de votre aide et la prochaine fois je ferai plus attention
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
9 sept. 2006 à 14:40
9 sept. 2006 à 14:40
C'est le risque du On Error Resume Next : au moins les petites erreurs sans importances ne sont pas affichées, mais on passe à travers les erreurs plus graves !