Formulaire de recherche en vba access
yves2008
-
yves2008 -
yves2008 -
Bonjour, et Bonne Année 2008
je suis un debutant en access ça fait une semaine que je cherche sur googles
mais je ne trouve pas le code vba pour faire une recherche de Nom prope sur une table
je me suis inspiré de ce tuto http://www.supinfo-projects.com/fr/2006/formulaire_recherche_access/3/
et je precise avant de modifier le code de ce tuto, j'ai fait excatement ce qu'il a fait et ca ne marche pas
voici mon code
Private Sub cmd_recherche_Click()
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 ALL " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE " & strCriteria & ";"
MsgBox strSql
Me.lst_resultat.RowSource = strSql ' affecte sql a lst_Resultat
Me.lst_resultat.Requery ' recalcule la liste
End Sub
voila si vous pouvez m'aider et m'expliquer merci par avance
je suis un debutant en access ça fait une semaine que je cherche sur googles
mais je ne trouve pas le code vba pour faire une recherche de Nom prope sur une table
je me suis inspiré de ce tuto http://www.supinfo-projects.com/fr/2006/formulaire_recherche_access/3/
et je precise avant de modifier le code de ce tuto, j'ai fait excatement ce qu'il a fait et ca ne marche pas
voici mon code
Private Sub cmd_recherche_Click()
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 ALL " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE " & strCriteria & ";"
MsgBox strSql
Me.lst_resultat.RowSource = strSql ' affecte sql a lst_Resultat
Me.lst_resultat.Requery ' recalcule la liste
End Sub
voila si vous pouvez m'aider et m'expliquer merci par avance
A voir également:
- Formulaire de recherche en vba access
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Formulaire de reclamation instagram - Guide
- Acer quick access - Forum Logiciels