Salut a tous
J ai un petit probleme dans mon formulaire de recherche.
Il est associe a une requete "Suchen" reliant des champs de 2 tables(Übersicht et Fehler, et fehler est liée a übersicht).
J ai un champs AuftragsDatum (date) ds übersicht (et aussi ds la requete "Suchen"), et dans mon form je peux faire une recherche sur ce critere et cela fonctionne.
Maintenant je voudrais faire une recherche sur un intervalle de tps, entre deux dates. J ai cree deux champs texte ds mon form pour entrer les dates, et j ai rajouté une ligne a ma requete sql pour ces criteres remplis.
Les 2 champs sont AuftragZeitraum_anfang (date_debut) et AuftragZeitraum_ende (date_fin).
pour le code de la recherche multicritere, je me suis basé sur un faq. J ai rajouté les lignes en rouge.
Qd je rentre des dates ds les 2 chps de mon form, et que je clique sur mon bouton de recherche, il ne s affiche rien, meme pas les en tete de colonne, dans ma liste résultat.
Je sens qu il y des guillemet en trop ou qqch du genre...
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
41
42 Private Sub Befehl26_Click() Dim sql As String Dim AbfrageName As String Dim Compteur As Integer AbfrageName = "Suchen" 'Aufruf der Prozedur,um die Abfrage zu gründen 'für den ScheibenTyp (Datentyp:Text) Restriction Nz(Kombinationsfeld45, ""), "ScheibenTyp", AbfrageName, Compteur, sql, 0 'für den ScheibenHersteller (Datentyp:Text) Restriction Nz(Kombinationsfeld0, ""), "ScheibenHersteller", AbfrageName, Compteur, sql, 0 'für die FahrerhausFarbe (Datentyp:Text) Restriction Nz(TFahrerhausfarbe, ""), "FahrerhausFarbe", AbfrageName, Compteur, sql, 0 'für den FahrzeugNummer (Datentyp:Text) Restriction Nz(TFahrzeugnummer, ""), "FahrzeugNummer", AbfrageName, Compteur, sql, 0 'für das Klebstoffsystem (Datentyp:Text) Restriction Nz(Kombinationsfeld10, ""), "Klebstoffsystem", AbfrageName, Compteur, sql, 0 'für das Auftragsdatum (Datentyp:Text) Restriction Nz(TAuftragsdatum, ""), "Auftragsdatum", AbfrageName, Compteur, sql, 2 'für das PeelOfTest Datum (Datentyp:Text) Restriction Nz(Tpeeloftestdatum, ""), "Datum_PeelOfTest", AbfrageName, Compteur, sql, 2 'für die Fehlerart (Datentyp:Text) Restriction Nz(Kombinationsfeld47, ""), "Fehlerart", AbfrageName, Compteur, sql, 0 'für die Zone (Datentyp:Text) Restriction Nz(Kombinationsfeld18, ""), "Zone", AbfrageName, Compteur, sql, 0 If TAuftragZeitraum_anfang <> "" And TAuftragZeitraum_Ende <> "" Then sql = sql & " AND (( & AbfrageName.AuftragsDatum & > # &TAuftragZeitraum_anfang #) AND ( & AbfrageName.AuftragsDatum & <# & TAuftragZeitraum_anfang #))" Else sql = sql End If Me.Ergebnis.RowSource = sql ' weist sql der Liste Ergebnis zu Me.Ergebnis.Requery ' update die Liste End Sub
Partager