Erreur FindFirst() avec un recordset

Question

Bonjour a tous
la mon findfirts me retour l'erreur suivant :  type incompatible.

Call connectBd
    monRecordset.MoveFirst
    Dim intSelect As Integer
    intSelect = Int(ListView1.SelectedItem.Text)
    MsgBox ListView1.SelectedItem.Text
    monRecordset.FindFirst ("No = '" & intSelect & "'") (erreur ici)
  If monRecordset.NoMatch Then
    MsgBox ("non trouve")
  Else
    monRecordset.Delete
    monRecordset.Update
    monRecordsetBookmark = monRecordset.LastModified
    End If

Pourtant dans ma bd No est numeroAuto

Je comprend pu rien

cs_casy · Answer

As-tu essayer sans les guillemets ?

 monRecordset.FindFirst ("No = " & intSelect)

<hr size="2" width="100%">

DraaFil · Answer

oui pareil

cs_casy · Answer

Ok, j'avais saut&#233; la derni&#232;re ligne.

Si No est d&#233;clar&#233; en num&#233;ro auto, il doit surrement etre du type entier long

donc dans ton code tu as 2 solutions:

soit tu fais Dim intSelect as long  (ou pour etre coh&#233;rent dim lngSelect as long )

soit tu fais monRecordset.FindFirst ("No = " & CLng(intSelect))

<hr size="2" width="100%">

Erreur FindFirst() avec un recordset

3 réponses

Discussions similaires