Recherche recordset

Signaler
Messages postés
10
Date d'inscription
jeudi 3 mars 2005
Statut
Membre
Dernière intervention
14 février 2006
-
Messages postés
10
Date d'inscription
jeudi 3 mars 2005
Statut
Membre
Dernière intervention
14 février 2006
-
Bonjour,
Dans le formulaire "A" depuis une zone liste "n°1" (dans lequel il y a plusieurs enregistrements a, b, c, d, e, f, etc...) l'effet double clic sur l'enregistrement "c" ouvre un autre formulaire "B" avec une zone de liste "n°2" (dans lequel il y a les enregistrements c, d, e, ) je voudrais que mon formulaire "B" se place sur l'enregistrement "c".
Sur le papier ça paraît compliqué, tout fonctionne sauf que le formulaire "B" ne se place pas sur l'enregistrement "c".
merci

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
Salut
Première chose, dis nous dans quel langage tu évolues, parce que des formulaires, des listes ... ce n'est pas assez précis et je ne comprends pas du tout ce que tu cherches à faire.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Messages postés
10
Date d'inscription
jeudi 3 mars 2005
Statut
Membre
Dernière intervention
14 février 2006

Hello

C'est vrai je n'ai pas été très clair voir même très compliqué.

Je bosse sur ACCESS, j'ai une base client dans laquelle j'enregistre les rdv et le reporting des techniciens.

Le code suivant me permet de faire ce que je souhaitais mais d'une manière très différente et plus simple, trier les interventions par multicritères.



Private Sub RefreshQuery()

Dim SQL As String

Dim SQLWhere As String



SQL = "SELECT [RDV CLIENT].[Numero],[RDV
CLIENT].[Numenregistrement],[RDV CLIENT].[Identifiant],[RDV
CLIENT].[Nom Client],[RDV CLIENT].[Intervenant],[RDV CLIENT].[Date
RDV],[RDV CLIENT].[Heure Début RDV],[RDV CLIENT].[Heure Fin RDV],[RDV
CLIENT].[Durée],[RDV CLIENT].[Type Reporting], [RDV CLIENT].[Type
Intervention],[RDV CLIENT].[Catégorie],[RDV CLIENT].[Etat] FROM [RDV
CLIENT] Where [RDV CLIENT]![Numero] <> 0 "



If chkNomclient Then

SQL = SQL & "And [RDV CLIENT]![Nom Client] like '*" & Me.TxtNomClient & "*'"

End If



If Me.ChkIntervenant Then

SQL SQL & "And [RDV CLIENT]![Intervenant] '" & Me.CmbIntervenant & "'"

End If



SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"



Me.lblStats.Caption = DCount("*", "RDV CLIENT", SQLWhere) & " / " & DCount("*", "RDV CLIENT")

Me.LstResults.RowSource = SQL

Me.LstResults.Requery



End Sub