Discussion :

[corwin44]

Bonjour,

il m arrive un truc que je trouve bizarre. je vient de creer un formulaire de recherche dans ma base de donnée. j y est placé un bouton "recherche" qui affiche dans une zone de liste modifiable les resultat de ma recherche.
voici le code:
Private Sub Rechercher_Click()
Dim strTable As String, strField As String, strCriteria As String, strSql As String

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
    Dim Criter As Variant
    strTable = Me.rechercheFab        ' recupère le nom de la table
    strField = Me.rechercheChamp         ' recupère le nom du champ
 
    If IsNull(strTable) Or IsNull(strField) Then   ' l'une des listes est vide
       MsgBox "Vous devez sélectionner une table et un champ.", vbExclamation + vbOKOnly, "une erreur"
       Exit Sub
    End If
 
     ' compose le critere de recherche
     strCriteria = strTable & "." & strField & " Like ""*" & Me.zoneRecherche & "*"""
 
     ' construit la requête sql de selection des données
     strSql = " SELECT distinctrow " & strTable & ".*"
     strSql = strSql & " FROM " & strTable
     strSql = strSql & " WHERE ((" & strCriteria & "));"
 
     'stockage des résultat dans une table Recherche
     sqlStockRecherche = " Insert into tableRecherche "
     sqlStockRecherche = sqlStockRecherche & strSql
 
     DoCmd.RunSQL sqlStockRecherche
 
     sqlRequest = "Select * From tableRecherche;"
 
     Me.resultatRecherche.RowSource = sqlRequest  ' affecte sql a resultatRecherche
     Me.resultatRecherche.Requery     ' recalcule la liste
 
     If (Me.resultatRecherche.ListCount = 0) Then    'le critère de recherche est faux ou inexistant
        MsgBox "votre critère de recherche n'existe pas ou vous devez en spécifier un"
        Exit Sub
     End If
 
End Sub

mon pb est le suivant:
j auvre ce formulaire et je rentre des critères de selection etlorsque je clique sur le bouton il affiche deux fois le resultat.
de plus le bouton est "selectionné " et si je rappuie dessus il ne m affiche qu un exemplaire des resultat;
Si je deselectionne le bouton il va encore m afficher deux fois les resultats.
est ce que qq a deja eut ce type de souci?? Si oui comment il a reslout ce pb?

Merci d'avance

[cafeine]

Hello,

moi j'aurais plutôt essayé comme ça ..;

Code :

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

1
2
3
4
5
6
7
     ' construit la requête sql de selection des données
     strSql = "SELECT distinctrow " & strTable & ".*"
     strSql = strSql & "INTO tableRecherche "
     strSql = strSql & " FROM " & strTable
     strSql = strSql & " WHERE ((" & strCriteria & "));"
 
     DoCmd.RunSQL strSQL

[corwin44]

salut,

le pb c que quand j inclus ton code il me met une erreur et me dit que ma tableRecherche sera supprimé avant l'execution de ma requete

c super spe je ne comprend d ou vient le pb la


merci quand meme cafeine

[cafeine]

salut,

le pb c que quand j inclus ton code il me met une erreur et me dit que ma tableRecherche sera supprimé avant l'execution de ma requete

c super spe je ne comprend d ou vient le pb la


merci quand meme cafeine

Tu ne souhaites pas écraser tes recherches précédentes ?

si oui, passe en mode

Code :

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

DoCmd.SetWarnings False

[corwin44]

non justement je doit pourvoir stocker des recherche pendant une session pour pouvoir les comparrer donc je ne doit pas effacer celle qui sont deja dans la table.
De plus j ai deja fait un bouton pour effacer mes anciennes recherches.

[corwin44]

je reviens pour savoir si quelqun a deja eut ce genre de pb a savoir un affichage en double qd on clique sur un boton et qu il n a pas ete selectionné avant.
si on deselectionne le bouton et que l on reclike dessus on a l affichage en double, par contre si on a deja cliké dessus auparavant et qu il est tj selectionné on a affiche qu un seul exemplaire des données.

Merci d' avance

[corwin44]

salut,
bon je pense avoir resolut mon probleme c' est qu il y avait une procedure evenementielle sur l'evenement entrée et a priori cela faisait conflit avec l'evenement sur le clik.