Discussion :

[jojo57]

Bonjour tout le monde
voila jai extremement besoin d'aide je vous explique mon prob
jai un formulaire de recherche et jaffiche le resultat sous forme de sous formulaire en mode feuille de donnée
jaimerais créer un bouton et lorsque jappui sur ce bouton , ca me crée un etat en mode visualisation avec tout les resultats de ma recherche

vous voyais ce que je veux dire??
merci a+

[moicats]

salut,

si je ne me trompe pas, il suffit que tu crées un état avec la même requete que ton sous fomulaire.
si dans ton sous formulaire tu affiche le resultat de ta requete, ça devrait marcher aussi pour l'état.

bonne continuation
a+

[jojo57]

oui mais je me suis servi d'un des codes sources telechargeable sur le forum et jai un module et du code a mettre sur laction click du bouton rechercher
mais je ne sais pas quelle requete utiliser pour faire mon etat
aidez moi svp merci

[moicats]

quel est le code source de ton sous formulaire?
explique nous comment fonctionne ta recherche et ton sous formulaire, ce sera plus facile pour nous de t'aider.

bonne continuation
a+

[jojo57]

alors voila jai un module qui est le suivant

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
 
Option Compare Database
Public Sub Restriction(ByVal Chaine As String, _
         ByVal ChamP As String, ByVal matable As String, _
         ByRef ArGument As Integer, ByRef ClausE As String, ByRef astype As Integer)
' Choix du type : 0 pour un string, 1 pour un numérique ou booleen
' 2 pour une date
'Construit la requête au premier passage
If ArGument = 0 Then
  'Elimine les espaces
   matable = Trim$(matable)
  'Si table est une sous requete :(commence par select)
  If InStr(1, matable, "SELECT ", vbTextCompare) <> 0 Then
    'Enleve le ; s'il existe
    If Right(matable, 1) = ";" Then _
       matable = Left(matable, Len(matable) - 1)
    'encadre la sous requete avec des ()
    ClausE = "SELECT * FROM (" & matable & ")"
  Else
    ClausE = "SELECT * FROM " & matable
  End If
End If
If Chaine <> "" Then
    If ArGument = 0 Then
     ' Ajoute le WHERE
    ClausE = ClausE & " WHERE "
    ' Ajout de l'opérateur "AND" si le where existe déja
    Else: ClausE = ClausE & " AND "
    End If
    Select Case astype
      Case 0  'Ajoute le critère si le type est texte
        ClausE = ClausE & ChamP & " like " & Chr(34) & Chaine & "*" & Chr(34)
      Case 1  'Ajoute le critère si le type est Numerique
        ClausE = ClausE & ChamP & "=" & Chaine
      Case 2  'Ajoute le critère si le type est date
        ClausE = ClausE & ChamP & "=#" & Format(Chaine, "mm/dd/yyyy") & "#"
    End Select
    ArGument = ArGument + 1
End If
End Sub

jai un formulaire de recherche et dans ce formulaire jai un bouton rechercher et sur ce bouton sur levenement click jai ce code

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
Private Sub BRechercher_Click()
Dim SQL As String
Dim NomTable As String
Dim Compteur As Integer
NomTable = "SOCIETE"
'Appel de la procedure de creation de requête
Restriction Nz(Tnosociete, ""), "No_societe", NomTable, Compteur, SQL, 1
Restriction Nz(Tnomsociete, ""), "Nom_societe", NomTable, Compteur, SQL, 0
Restriction Nz(Tpayssociete, ""), "Code_pays", NomTable, Compteur, SQL, 0
Restriction Nz(Ttypesociete, ""), "No_type_societe", NomTable, Compteur, SQL, 0
Restriction Nz(Tnodepartement, ""), "No_departement", NomTable, Compteur, SQL, 0
Restriction Nz(Ttypedocument, ""), "Type_de_documentation", NomTable, Compteur, SQL, 0
'Affecte la requête au sous formulaire
Me.SOCIETE_recherche_min.Form.RecordSource = SQL
End Sub

[moicats]

n'étant pas dans l'application, j'ai un peu de mal à suivre ton code.

mais je pense qui tu dois pouvoir avec un bouton renseigner la source de controle d'un état comme tu le fais pour ton sous formulaire.
(dans la derniere ligne de ton code du bouton)

par contre il faut voir aprés l'ordre du code pour voir s'il faut commencer par renseigner la source avant d'ouvrir l'état ou l'inverse.

bon courrage et bonne continuation
a+

[jojo57]

ok merci de ton aide
sinon personne dautre???

[jojo57]

ca marche toujours po

[jojo57]

Re tout le monde alors jai essayé plusieurs choses
jai crée un etat et jai crée une zone de texte et dans cette zone jai choisi le contenu et jai mit le champ de mon sous formulaire
resultat ca me met Nom ...

ensuite jai essayé de mettre ce code au lancement du formulaire
Me.texte0.value=Forms![formulaire]![sous-formulaire].form!mon-champ

et ca marche pas ca me met une erreur au lancement du formulaire

c hyper urgent quelqu'un pourrait m'aider svp
merci

[jojo57]

Toujours pas de nouvelles snifff
Vous voyez pas comment faire???

[jojo57]

j'ai b ochercher mais jarrive tojours pas grrrrrrrrr je devient fou
personne ne la jamais fait??