Frage zur Abfrage

11/05/2010 - 21:36 von Johann Weiss | Report spam
Hallo NG,

ich habe eine SQL- Abfrage die auch seit Jahren funktioniert
hier mal der Code:
-
Private Sub MakeSQL()
'SQL erstellung
Krit = ""
If Not IsNull(Me!txtkst) Then Krit = Krit & " AND Kst_6 LIKE '" &
Me!txtkst & "*'"
If Not IsNull(Me!txtgrp) Then Krit = Krit & " AND F_Gruppe LIKE '" &
Me!txtgrp & "*'"
If Not IsNull(Me!txtAP) Then Krit = Krit & " AND Arbeitsplatz LIKE '" &
Me!txtAP & "*'"
If Not IsNull(Me!txtAF1) Then Krit = Krit & " AND AF LIKE '" & Me!txtAF1 &
"*'"
If Not IsNull(Me!txtTyp) Then Krit = Krit & " AND FzgKl LIKE '" &
Me!txtTyp & "*'"
If Not IsNull(Me!txtKlassif) Then Krit = Krit & " AND Klass LIKE '" &
Me!txtKlassif & "*'"
If Not IsNull(Me!txtZeit) Then Krit = Krit & " AND zeit >= '" & Me!txtZeit
& "'"
If Not IsNull(Me!txtZeit1) Then Krit = Krit & " AND zeit <= '" &
Me!txtZeit1 & "'"
If Not IsNull(Me!txtpr) Then Krit = Krit & " AND PRNr LIKE '" & Me!txtpr &
"*'"
If Not IsNull(Me!txtML) Then Krit = Krit & " AND ML LIKE '" & Me!txtML &
"*'"
If Not IsNull(Me!txtBA) Then Krit = Krit & " AND BA LIKE '" & Me!txtBA &
"*'"
If Not IsNull(Me!txtKw) Then Krit = Krit & " AND KW LIKE '" & Me!txtKw &
"*'"
SQL = "SELECT * FROM qry_suchen "
If Krit <> "" Then
Krit = MID(Krit, 5)
SQL = SQL & "WHERE " & Krit
If Me!KritAnz Then
GblKrit = Krit
Else
GblKrit = ""
End If
Me!txtAF1.SetFocus
End If
End Sub
-

Nun wird über das Textfeld "txtpr" verschiedene Produktnummern zB. "1GP"
abgerufen.
Bisher habe ich das immer einzeln gemacht, zb 1GP nacher 2GP oder 8GP.

Nun meiner Frage, ist es möglich das ich in das Formular 3 Textfelder mache
zB. "txtpr1", "txtpr2" und "txtpr3",
und somit die Abfrage dann zB. Inhalt aus "txtpr1" oder "txtpr2" abfragen,
oder auch so" txtpr1" oder "txtpr2" oder "txtpr3"
Ist sowas möglich?

gruss Johann
 

Lesen sie die antworten

#1 Karl Donaubauer
12/05/2010 - 09:47 | Warnen spam
Johann Weiss wrote:
Hallo NG,

ich habe eine SQL- Abfrage die auch seit Jahren funktioniert
hier mal der Code:
...



s. meine Antwort im Thread "Frage zu einer Abfrage".

Da du OE verwendest, hat dich vermutlich irritiert, dass deine erste
Frage in einem alten Thread mit dem gleichen Betreff gelandet ist.
Das tut es aber nur für OE-Benutzer - und die wissen das meistens.
Du brauchst sie also nicht nochmal zu stellen.

Etwas mehr Kreativitàt und Aussagekraft bei den Betreffs würde
aber generell nicht schaden. ;-)

"SQL-String in VBA verfeinern"
"Kriterium in SQL-Text erweitern"
"Oder-Kriterien variabel in SQL-String einfügen"
...

Servus
Karl
****************
Access-FAQ: http://www.donkarl.com

Ähnliche fragen