Discussion :

[holoaccess]

Re Tt le monde !!

Je crois que j'ai fait une gaffe

J'ai voulu améliorer mon formulaire d'entretiens en le refaisant entièrement
J'explique. Avant à l'ouverture de ce formulaire, l'utilisateur devait saisir 2 dates afin que le formulaire affiche tous les entretiens compris dans cette intervalle. Le résultat s'affichait dans un sous formulaire "SfrmEntretien" qui avait pour source de controle une requête.

Ce matin, Heureux-Oli m'a donné une idée que à laquelle je n'avais pas pensé

J'ai ajouté 2 controle indépendant dans mon formulaire (Date de début et Date de Fin)
J'ai viré mon sous formulaire pour le remplacé par une zone de liste (Comme il s'agit de réparations antérieures, c'est juste de la consultation)

La démarche est la suivante :
L'utilisateur sélectionne un véhicule dans la zone de liste du formulaire de démarrage, Clique sur le bouton "Entretiens antérieures", de la s'ouvre le beau formulaire avec la zone de liste entretiens vierge dans lequel l'utilisateur peut saisir les dates et ce a volonté afin que dans la liste les entretiens compris dans la période s'affiche pour le véhicule en cours

Seulement sa ne marche pas, j'ai voulu m'inspiré de la recherche Multi-Critères de Caféine pour me guider mais j'ai un souci qui je pense doit être de type de donnée. Je vous ai mis le code en pièces jointes


Merci d'avance

Et désolé pour l'enquiquineur

[LedZeppII]

Bonsoir,

1. Il manque un "WHERE" dans l'instruction SQL
2. Il faut encadrer les dates par des dièses (#)
3. Formater les date en mm/jj/aaaa par précaution

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
Private Sub DateFin_BeforeUpdate(Cancel As Integer)
Dim SQL As String, strDT1 As String, strDT2 As String
 
SQL = "SELECT T_Réparation.D_Réparation, T_Réparation.Fact_Numéro, T_Réparation.N_Garage, T_Réparation.Km_Heures, T_Réparation.L_Réparation, T_Réparation.Cout_Réparation, T_Réparation.Cout_Pneus, T_Réparation.Cout_Pompe, T_Réparation.Cout_Tapis FROM T_Réparation"
 
SQL = SQL & " WHERE "
strDT1 = Format(CDate(Me.DateDébut),  "mm/dd/yyyy")
strDT2 = Format(CDate(Me.DateFin), "mm/dd/yyyy")
SQL = SQL & "T_Réparation!D_Réparation Between #" & strDT1  & "# And #" & strDT2 & "# "
 
SQL = SQL & ";"
 
Me.Lst_Entretiens.RowSource = SQL
Me.Lst_Entretiens.Requery
 
End Sub

A+

[holoaccess]

Merci Beaucoup,

Sa va tout de suite mieux