Discussion :

[bilouk]

bonjour et encore merci pour vos précieuses informations.

j'ai fait un formulaire de recherche multicritère (modèle CAFEINE) et j'aimerai pouvoir faire un état avec les résultats de la recherche. Sur un précédent post, vous dites qu'il faut faire un état avec les champs de la recherche mais le problème, c'est que le résultat de ma recherche ne s'affiche pas sur mon état. Avez vous un code pour un bouton "afficher etat" qui me permettrai de réaliser cette opération, je vous remercie.

[DMboup]

C'est aussi dans la FAQ il me semble. Tu enregistre le résultat de ta recherche dans une requête qui sera la source de ton état.

Si SQL et la chaine qui contient ta requête tu l'enregistre comme ca

Code :

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

CurrentDb.QueryDefs("R_NomRequete").SQL = SQL

[bilouk]

merci pour ta réponse.

par contre, le code que tu me donnes comment je peux le mettre dans ma requete? il faut pas que le SQL commence par SELECT?

a bientot

[DMboup]

Pour faire ta recherche tu déclare bien des variables non du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim stDocName As String
Dim SQL As String
 
SQL = "SELECT NumMembre, NomPrenom, Organisation, Role FROM T_Membre Where NumMembre <> 0 "
 
If (Forms!F_Recherche!chkOrg = True) And Not IsNull(Forms!F_Recherche!txtRechOrg) Then
    SQL = SQL & "And Organisation like '*" & Forms!F_Recherche!txtRechOrg & "*' "
End If
 
....

A la fin la variable SQL tu l'affecte à la requête que tu enregistre. C'est tous

[bilouk]

[RESOLU] merci beaucoup tu es mon sauveur

pour ceux que ça interesse, le code donne ça:

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
36
37
38
39
40
41
42
Private Sub RefreshQuery()
 
On Error GoTo Err_RefreshQuery
 
Dim SQL As String
Dim SQLWhere As String
 
 
SQL = "SELECT numero_contrat, contenu, datefin, delai_resiliation, societe, service, fournisseur, code, date_paiment_theorique, date_paiement_effectif FROM rqy_contrat WHERE societe Is Not Null "
 
If Not Me.chkSociété Then
    SQL = SQL & "And societe = '" & Me.cmbRechSociété & "' "
End If
If Not Me.chkFournisseur Then
    SQL = SQL & "And fournisseur = '" & Me.cmbRechFournisseur & "' "
End If
If Not Me.chkNumero_contrat Then
    SQL = SQL & "And numero_contrat = '" & Me.cmbRechNumero_contrat & "' "
End If
If Not Me.chkCode Then
    SQL = SQL & "And code = '" & Me.cmbRechCode & "' "
End If
If Not Me.chkDate Then
    SQL = SQL & "And date_paiment_theorique = #" & Format(Me.cmbRechDate, "mm/dd/yyyy") & "# "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
CurrentDB.QueryDefs("qryTemp").SQL = SQL
 
Me.lblStats.Caption = DCount("*", "rqy_contrat", SQLWhere) & " / " & DCount("*", "rqy_contrat")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
Exit_RefreshQuery:
    Exit Sub
 
Err_RefreshQuery:
    Resume Exit_RefreshQuery
End Sub

[/code]