bouton de recherche

Question

Salut &#224; tous,

Je cherche &#224; cr&#233;er un logiciel de gestion d'un lieu. J'ai cr&#233;&#233; un formulaire qui est reli&#233;  une base de donn&#233;es avec une datasource (data) que j'ai nomm&#233; data1. j'ai cr&#233;&#233; une zone texte nomm&#233; text1 et un bouton rechecher mais je n'arrive pas &#224; rechercher un usager uniquement avec le nom.
Voici le code que j'ai d&#233;j&#224; &#233;crit mais qui ne fonctionne pas:

Dim Text1 as String
Dim SQLQry as String

Text1 = InputBox("Message/Question", "Titre du dialogue", "Valeur par d&#233;faut, si omit, le champs est vide")

   If Text1 = "" Then
      MsgBox "Vous devez sp&#233;cifier une valeur au champ"
      Exit Sub
   End If
SQLQry = "SELECT * FROM Base WHERE [Nom Du Client] LIKE '" & Left$(Text1,1) & "*';"

Le processus de recherche apparamment se fait mais le formulaire de l'usager recherch&#233; n'apparait pas &#224; l'&#233;cran (rien ne bouge).

Merci par avance.

Le corse

econs · Answer

Text1.Text = InputBox("Message/Question", "Titre du dialogue", "Valeur par d&#233;faut, si omit, le champs est vide")

   If Text1.Text = "" Then
      MsgBox "Vous devez sp&#233;cifier une valeur au champ"
      Exit Sub
   End If
SQLQry = "SELECT * FROM Base WHERE [Nom Du Client] LIKE '" & Left$(Text1.Text,1) & "*';"




L&#224;, il manque la ligne qui envoie la requ&#234;te au serveur de base de donn&#233;es. 

Du coup, je ne peux pas te dire pourquoi tu n'affiches pas le bon record ...

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_lecorse2b · Answer

Salut econs,

C vrai, j'ai oubli&#233; la ligne qui envoie la requ&#234;te. Voici ce j'ai marqu&#233;:

Text1.Text = InputBox("entrer le nom de l'usager recherch&#233;.")
If Text1.Text = "" Then
MsgBox "Vous devez sp&#233;cifier une valeur au champ"
Else
Form4.Data1.RecordSource = "SELECT * FROM Base WHERE [Nom Du Client] LIKE '" & Left$(Text1.Text, 1) & "*';"
End If

Le corse

Bouton de recherche

2 réponses

Discussions similaires