Forums Neueste Beiträge
 

textfilter für abfrage in combobox

01/06/2010 - 17:01 von Volker Kramm | Report spam
Ein Hallo an alle,
ich habe mir ein Formular mit UFO erstellt.
im HFO habe ich im Kombifeld(Feldsuche) herkunftstyp=Feldliste von
Kundenadressen(tbl_Kdn_Adr)
und
ein Textfeld(SqlKrit ) für meine suchfunktion.

das sieht in vba so aus:
Dim a As Variant
a = AbfrageAendern("A_TestAbfrage", "SELECT * FROM tbl_Kdn_Adr WHERE " &
Feldsuche & " like '" & SqlKrit & "' ORDER BY " & Feldsuche & ";")

in feldsuche kann ich auswàhlen wo(tbl) ich suchen will, in SqlKrit(txt)
kann ich aussuchen was ich suchen will.
funzt auch wunderbar, aber:

Meine Frage
Ich würde gern eine Kombobox erstellen, in der steht wie ich suchen will
d.h:
den Textfilter der Tabelle(Abfrage).
In der tabelle(Felder) findet man ja unter Textfilter diverse Filter wie:
gleich... nicht gleich... beginnt mit... usw.
kann ich dies nicht in einer Kombibox nutzen.

Nochmal den Abfrageaufruf:

1. einstellen in welcher tabelle gesucht werden soll
2. eingeben nach was gesucht werden soll (txt)
3. wie gesucht werden soll (gleich, nicht gleich, usw. (kriterium?)

für nen Hinweis wie wàre ich dankbar.
P.s. Hoffentlich habe ich die Begriffe richtig gesetzt ????
Volker
 

Lesen sie die antworten

#1 Jörn Bosse
01/06/2010 - 19:06 | Warnen spam
Hallo,

es wàre möglich, dass du den Code für jeden Fall anpasst. Das Kombifeld
erstellst du mit 2 Spalten, einer Funktionsnummer und einem Funktionsnamen.
1 | Gleich
2 | Ungleich etc
Dann startest du eine Select Case Anweisung.

If IsNull(Me.DeinKombifeld) Then
MsgBox "Bitte Methode wàhlen"
Exit Sub
Else
Select Case Me.Kombinationsfeld0
Case 1
'Anweisung mit entsprechendem Operator1
Case 2
'Anweisung mit entsprechendem Operator2
Case Else
'Anweisung mit entsprechendem Operator3
End Select
End If

Gruß, Jörn

Am 01.06.2010 17:01, schrieb Volker Kramm:
Ein Hallo an alle,
ich habe mir ein Formular mit UFO erstellt.
im HFO habe ich im Kombifeld(Feldsuche) herkunftstyp=Feldliste von
Kundenadressen(tbl_Kdn_Adr)
und
ein Textfeld(SqlKrit ) für meine suchfunktion.

das sieht in vba so aus:
Dim a As Variant
a = AbfrageAendern("A_TestAbfrage", "SELECT * FROM tbl_Kdn_Adr WHERE " &
Feldsuche & " like '" & SqlKrit & "' ORDER BY " & Feldsuche & ";")

in feldsuche kann ich auswàhlen wo(tbl) ich suchen will, in SqlKrit(txt)
kann ich aussuchen was ich suchen will.
funzt auch wunderbar, aber:

Meine Frage
Ich würde gern eine Kombobox erstellen, in der steht wie ich suchen will
d.h:
den Textfilter der Tabelle(Abfrage).
In der tabelle(Felder) findet man ja unter Textfilter diverse Filter
wie: gleich... nicht gleich... beginnt mit... usw.
kann ich dies nicht in einer Kombibox nutzen.

Nochmal den Abfrageaufruf:

1. einstellen in welcher tabelle gesucht werden soll
2. eingeben nach was gesucht werden soll (txt)
3. wie gesucht werden soll (gleich, nicht gleich, usw. (kriterium?)

für nen Hinweis wie wàre ich dankbar.
P.s. Hoffentlich habe ich die Begriffe richtig gesetzt ????
Volker

Ähnliche fragen