Trouver l'erreur SVP

Question

Voila g une erreur a la fleche indiquer trouver lakel il est possible kiliyen ai plusieur :D

Private Sub ListeView1_Click()
        Dim IdTag As Long
        If Not ListeView1.SelectedItem Is Nothing Then                IdTag ListeView1.SelectedItem.Tag>   Set Rst = Db.OpenRecordset("select * from Clients where [N°Client]=" & ListeView1.Tag(ListeView1.Tag), dbOpenSnapshot)
                If Not Rst.EOF Then
                txtnom.Text = IIf(IsNull(Rst!nom), "", Rst!nom)
            Rst.Close
        End If
        End If
End Sub

MERCI

cs_Crazyht · Answer

Ne serait ce pas 
IdTag 
au lieu de 
ListeView1.Tag(ListeView1.Tag)

ce qui donnerai 
Set Rst = Db.OpenRecordset("select * from Clients where [N°Client]=" & Idtag, dbOpenSnapshot)

Sinon donne nous l'erreur renvoyé ca sera plus simple de t'aider

A++

 :-p  Crazyht  :) 

[Admin Codes-Sources]
[Membre Developer-Association]

Un programmeur, c'est quelqu'un qui résout pour toi, de façon incompréhensible, un problème que tu ignorais avoir...

cs_labout · Answer

labout
ce doit être
Db.OpenRecordset("select * from Clients where [N°Client]='" & "'" & ListeView1.Tag(ListeView1.Tag), dbOpenSnapshot)

alias666 · Answer

Crazyht ta trop géré merci a vous deux =P

bon prog

4L!@$

Trouver l'erreur SVP

3 réponses

Discussions similaires