Recherche recordset

MickeyMouse1 Messages postés 10 Date d'inscription jeudi 3 mars 2005 Statut Membre Dernière intervention 14 février 2006 - 2 févr. 2006 à 12:01
MickeyMouse1 Messages postés 10 Date d'inscription jeudi 3 mars 2005 Statut Membre Dernière intervention 14 février 2006 - 14 févr. 2006 à 14:06
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

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
2 févr. 2006 à 15:41
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)
0
MickeyMouse1 Messages postés 10 Date d'inscription jeudi 3 mars 2005 Statut Membre Dernière intervention 14 février 2006
14 févr. 2006 à 14:06
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
0