Discussion :

[satch24]

Bonjour,

me voici de nouveau à demander votre assistance:

Je voudrais créer un formulaire de recherche dans une BDD:

la base contient des tables user( elle contient le login, le nom le prenom etc...),machine( elle contient le nom, la descirption et le login utilisateur)
et des formulaires associés à ces tables.

Le form contient donc:
2 étiquettes ( pas important)
2 champs de texte:l'un pour une recherche par machine , l autre par nom d'utilisateur.
A ces deux champs j associe un bouton de recherche.

Donc comme vous vous en doutez les champs de texte permettent à l'utilisateur de saisir sa recherche et je voudrais que sur un click le recherche se lance et ouvre le formulaire associé sur l'utilisateur concerné ou sur la mchine concerné.

Est ce faisable?

Si oui à quoi ressemble le code à mettre?

Je pensais qu'il fallait saisir du code SQL mais j ai regardé quelques exemples sur le web et je crois que je fais fausse route!

Amicalement, Seb

[Invité]

Bonjour

Je pense que la lecture sur les tutos concernant les formulaires de recherche devrait t'aider.

Starec

[satch24]

en résumé je veux, par exemple, que via le moteur de recherche l utilisateur obtienne l 'ouverture d un formulaire sur la fiche de la personne qu il recherche...


exemple: l'user entre "jean-paul Rouve" dans le champ de texte de recherche"user", qu'il clique sur le bouton et que cela declenche l ouverture du formulaire "user" et en se positionnant sur la fiche de jean paul Rouve..

je suis plus clair cette fois?

mais si ca revele trop complexe autant afficher cela dans un tableau en bas du form et que l on soit dirigé vers la fiche avec un double click!

[mout1234]

Un OpenForm avec une conditionWhere devrait faire l'affaire

Code vba :

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

Docmd.OpenForm "MonForm",,,"NomUser='" & Me!UserRecherché & "'"

[satch24]

Code :

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

Docmd.OpenForm "MonForm",,,"NomUser='" & Me!UserRecherché & "'"

donc si je saisis bien je crée une procédure evenementielle sur le clic du bouton je saisi ce code "Mon form" sera le formulaire à ouvrir, mais la seconde partie j ai du mal à saisir à ce que ca correspond (désolé suis un peu débutant en prog VBA)

autre question: c'est quoi comme caractere ce que j'ai surligné en rouge je suppose que ca renvoit à quelque chose?

en tout cas merci de votre temps et surtout de votre patience!

[mout1234]

mais la seconde partie j ai du mal à saisir à ce que ca correspond (désolé suis un peu débutant en prog VBA)

Regardes dans l'aide d'Access pour plus de détail, il s'agit donc de l'argument Condition Where.

autre question: c'est quoi comme caractere ce que j'ai surligné en rouge je suppose que ca renvoit à quelque chose?

Il s'agit d'une des syntaxes acceptées pour délimiter une valeur de type texte
http://access.developpez.com/faq/?pa...riteres#txtQry

[satch24]

Afin de faire mon formulaire dans les regles je em suis permis d 'utiliser ce tuto

http://loufab.developpez.com/recursivite/#LIV

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim strTable As String, strField As String, strCriteria As String, strSql As String
	Dim Criter As Variant
 
	strTable = Me.cbo_Table         ' recupère le nom de la table
	strField = Me.cbo_Champ         ' recupère le nom du champ
 
	' compose le critere de recherche
	strCriteria = strTable & "." & strField & " Like """ & Me.txt_Critere & """"
 
	' construit la requête sql
	strSql = "SELECT DISTINCTROW " & strTable & ".*"
	strSql = strSql & " FROM " & strTable
	strSql = strSql & " WHERE ((" & strCriteria & "));"
 
 
	Me.lst_Resultat.RowSource = strSql  ' affecte sql a lst_Resultat
	Me.lst_Resultat.Requery             ' recalcule la liste

probleme j'ai l impression qu'il manque du code pour afficher les resultats dans le tableau!

[satch24]

finalement j'ai bidouillé et..CA MARCHE!