[AC-2003] probleme pour trouver des homonymes [Résolu]

[jeanpierre67]

Bonsoir a tous

dans la gestion du club de basket j'ai créè une table avec les noms, prenoms adresses etc etc ....

j'ai aussi créer un formulaire pour afficher tous les champs de cette table,
au bas de ce formulaire j'ai mis une zone de liste ou je peut effectuer une recherche rapide ou j'ai inseré ce code

Code :

1
2
3
4
5
6
7
8
Private Sub Liste38_AfterUpdate()
   ' Rechercher l 'enregistrement correspondant au contrôle.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Nom] = " & Chr$(34) & Me![Liste38] & Chr$(34)
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
 End Sub

ma question est la suivante:

comment faire pour faire une recherche sur le nom et le prenom
en sachant que plusieurs personnes possendent le meme nom

mille merci pou votre aide

Jean-Pierre

[lelensois16]

Bjr ,

Est ce que vous avez la possibilité de passer directement via un recordset associée à une requête de recherche par exemple :

Code :

1
2
Dim Str As DAO.Recordset 
Set rs = db.OpenRecordset(" Select * from TABLE where name LIKE '" & Me.ZonedeListe & "*'"

Il te suffira d'adapter ton code.

Bien cordialement,

[jeanpierre67]

bonsoir lelensois16

desolé ca ne marche pas

le programme me donne Erreur N° 424


Jean-Pierre

[jeanpierre67]

bonsoir a tous

j'ai enfin trouvé une solution a mon probleme
voici le code que j'ai trouvé en fouinant un peu sur la toile que j'ai modifié à mon cas.

Code :

1
2
3
4
5
' rechercher l'enregitrement correspondant au controle
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Numéro] = " & Str(Nz(Me![cmb_Chercher], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

en effet jusqu'à present je ne trouvais pas les homonymes en sachant que plusieurs personnes peuvent avoir le meme nom mais pas le meme prénom
donc ma recherche se fait sur le numéro d'enregistrement est le tour est joué

j'espere que cela pourras interesser quelqu'un

Jean-Pierre