Erreur 91 sur une boucle with

Résolu
Signaler
Messages postés
1
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2005
-
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
Bonjour, je me suis mis a VB récemment et j'aimerait bien que l'on m'explique pourquoi ce bout de code là ne marche pas :



Private Sub DataList1_DblClick()

Dim NomEnt As String

NomEnt = DataList1.Text

With Adodc1.Recordset

.MoveFirst

.Find "DenominationSociale = '" & NomEnt & "' "

End With

Zone(4) = Zone(1) & vbCrLf & Zone(2) & vbCrLf & Zone(3)

End Sub



Et fonctionne comme ca :




Private Sub DataList1_DblClick()

Dim NomEnt As String

NomEnt = DataList1.Text

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find "DenominationSociale = '" & NomEnt & "' "

Zone(4) = Zone(1) & vbCrLf & vbCrLf & Zone(2) & vbCrLf & vbCrLf & Zone(3)

End Sub



Il faut savoir que je n'ai pas ce probleme sur
l'ordinateur sur lequel je programme, mais dès que je l'essaie sur une
autre machine n'ayant pas VB. Honnêtement j'ai beau chercher je ne
vois pas pourquoi, donc si vous pouvez eclairer ma lanterne je vous en
serait très reconnaissant .

2 réponses

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
With Adodc1
.Recordset.MoveFirst
.Recordset.Find "DenominationSociale = '" & NomEnt & "' "
End With


[mailto:It@li It@li]@
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Attend ITALIA !!!
Pourquoi ...
With Adodc1
.Recordset.MoveFirst
.Recordset.Find "DenominationSociale = '" & NomEnt & "' "
End With

Fonctionnerait et pas ...
With Adodc1.Recordset
.MoveFirst
.Find "DenominationSociale = '" & NomEnt & "' "
End With

??????
Il est tard, mais un truc m'échappe la !!
Et normalement ...
With Adodc1
With .Recordset
.MoveFirst
.Find "DenominationSociale = '" & NomEnt & "' "
End With
End With

... devrait aussi fonctionner !!!

Comrpend rien !!
Christophe R