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
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
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
2 févr. 2006 à 15:41
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)
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)
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
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
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