Erreur 91 sur une boucle with

Résolu
Simkin Messages postés 1 Date d'inscription mercredi 26 janvier 2005 Statut Membre Dernière intervention 27 janvier 2005 - 27 janv. 2005 à 17:38
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 28 janv. 2005 à 00:04
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

cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
27 janv. 2005 à 17:52
With Adodc1
.Recordset.MoveFirst
.Recordset.Find "DenominationSociale = '" & NomEnt & "' "
End With


[mailto:It@li It@li]@
3
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
28 janv. 2005 à 00:04
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
0
Rejoignez-nous