Erreur 91 sur une boucle with

Question

Sujet Précédent Sujet Suivant

Erreur 91 sur une boucle with

Résolu

Signaler

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 .

A voir également:

Object variable or with block variable not set vb6
Vb6 object variable or with block variable not set - Meilleures réponses
Erreur 91 object variable or with block variable not set ✓ - Forum - Visual Basic 6
Variable objet ou variable bloc with non définie (erreur 91) ✓ - Forum - Visual Basic
Erreur 91 : Variable objet ou variable bloc With non définie ✓ - Forum - Visual Basic 6
Vba erreur 91 variable objet ou variable de bloc with non définie ✓ - Forum - Visual Basic 6
Erreur 91 Variable objet non defini ✓ - Forum - Visual Basic

2 réponses

Réponse 2 / 2

crenaud76

Messages postés: 4172
Date d'inscription: mercredi 30 juillet 2003
Statut: Membre
Dernière intervention: 9 juin 2006

27
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

Posez votre question

cs_ITALIA · Accepted Answer · 2005-01-27T17:52:47+0100

Réponse 1 / 2

cs_ITALIA

Messages postés: 2169
Date d'inscription: vendredi 20 avril 2001
Statut: Membre
Dernière intervention: 30 juin 2009

8
27 janv. 2005 à 17:52

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

[mailto:It@li It@li]@

Votre réponse