Discussion :

[FCL31]

salut

sur un formulaire lié a une table je voudrais faire une simple zone de texte avec un bouton de commande pour m'afficher l'enregistrement voulu , un peu comme si je faisai "Ctrl + F"

Merci

[pgz]

Bonsoir.

Tu peux essayer un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
sub BtnRecherche_OnClick()
Dim rst as DAO.RecordSet
 
if isnull(Me.MonControle) then exit sub
 
Set rst = me.RecordSetClone
rst.FindFirst "MonChamp LIKE *" & Me.MonControle & "*"
if not rst.NoMatch then me.Bookmark = rst.Bookmark
rst.close
set rst = nothing
 
End Sub

Pour l'idée, à adapter à ton besoin exact et à mettre au point.

Bon courage,

PGZ

[FCL31]

Merci pgz

Mais j'ai essayer de mettre le code que tu m'as donné mais ça marche pas (à savoir que je ne suis pas très fort avec les codes)

peut être peux tu m'adapter le code STP
- Le bouton de commande s'appelle : "btn_recherche"
- La zone de texte s'appelle : "txt_recherche"

Merci

[pgz]

Bonjour.

peut être peu tu m'adapter le code STP
- Le bouton de commande s'appelle : "btn_recherche"
- La zone de texte s'appelle : "txt_recherche"

Dans ce cas, le code devrait ressembler à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
sub btn_recherche_OnClick()
Dim rst as DAO.RecordSet
 
if isnull(Me.txt_recherche) then exit sub
 
Set rst = me.RecordSetClone
rst.FindFirst "MonChamp LIKE *" & Me.txt_recherche & "*"
if not rst.NoMatch then me.Bookmark = rst.Bookmark
rst.close
set rst = nothing
 
End Sub

Reste à remplacer MonChamp par le nom du champ dans lequel tu veux faire une recherche.

Bon courage,

PGZ

[FCL31]

Merci mais le code n'a pas l'air de marcher :
ça m'ouvre un message d'erreur :

Erreur d'exécution "3077"
Erreur de sybtaxe (opérateur absent) dans l'expression

pour débogage à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 rst.FindFirst "MonChamp LIKE *" & Me.txt_recherche & "*"

Merci de m'aider

[pgz]

Re

Comme dit précédemment,

Reste à remplacer MonChamp par le nom du champ dans lequel tu veux faire une recherche.

Il s'appelle comment le champ dans lequel tu veux faire la recherche?

PGZ

[FCL31]

Je suis désolé mais malheureusement ça marche pas
Si tu peux m'aider en te faisant passer la base de données
tu verras que par contre elle est vierge car en fait il y a des données confidentielles
Si tu vois des modifications à apporter n'hésite pas à me le dire

Merci d'avance