erreur 91 sur une boucle withRésolu

Question

Bonjour, je me suis mis a VB r&#233;cemment et j'aimerait bien que l'on m'explique pourquoi ce bout de code l&#224; 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&#232;s que je l'essaie sur une
autre machine n'ayant pas VB. Honn&#234;tement j'ai beau chercher je ne
vois pas pourquoi, donc si vous pouvez eclairer ma lanterne je vous en
serait tr&#232;s reconnaissant .

cs_ITALIA · Accepted Answer

With Adodc1
        .Recordset.MoveFirst
        .Recordset.Find "DenominationSociale = '" & NomEnt & "' "
    End With
  

[mailto:It@li It@li]@

crenaud76 · Answer

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'&#233;chappe la !!
Et normalement ...
     With Adodc1
        With .Recordset
           .MoveFirst
           .Find "DenominationSociale = '" & NomEnt & "' "
        End With
    End With  

... devrait aussi fonctionner !!!

Comrpend rien !!
Christophe R

Erreur 91 sur une boucle with

2 réponses