tegn som kriterie i kombiboks

Hvad er det præcis du vil?

jeg har en kombiboks hvor jeg udvælger kriterier til kørsel af en forespørgsel som vises som underformular,eks. kunde numre. Det jeg ønsker er f.eks at kunne angive kunde numre "mindre end" eller "større end " en given størrelse.

Dim strTegn(0 To 3) As String
strTegn(0) = "<"
strTegn(1) = ">"
strTegn(2) = "<>"
strTegn(3) = "="

' Nu skal indholdet af din combobox være:
' "Mindre end"
' "Større end"
' "Forskellig fra"
' "Lig med"

' Comboboxen hedder her 'myBox'
strSQL = "SELECT * FROM WHERE feltid" + strTegn(myBox.ListIndex) + "værdien der skal testes på"

værdien der skal testes på hentes selvfølgelig på samme vis

Hov jeg fik ikke "pastet" starten med ind, her kommer det hele igen, undskyld...


Hej igen,

Hvis jeg forstår dig rigtigt vil du gerne kunne ændre værdien af en combobox, for på den måde at ændre på søgekriterierne?

Hvis, kan du gøre fx.:

Et eller andet sted hvor sql-statementet skal bygges skriver du flg. kode (eller noget der ligner)



Dim strTegn(0 To 3) As String
strTegn(0) = "<"
strTegn(1) = ">"
strTegn(2) = "<>"
strTegn(3) = "="

' Nu skal indholdet af din combobox være:
' "Mindre end"
' "Større end"
' "Forskellig fra"
' "Lig med"

' Comboboxen hedder her 'myBox'
strSQL = "SELECT * FROM WHERE feltid" + strTegn(myBox.ListIndex) + "værdien der skal testes på"

jeg fatter ikke VB.... forstå mig sådan her..

formularnavn = form1

i forespørgselsdesign har jeg i kriterier for eks kundenr indsat flg.

Like Forms![form1]![Kombinationsboks0] Or Forms![form1]![Kombinationsboks0] = null

ovenstående resulterer i at jeg kan skrive f.eks

"0100000" i kombibox 0,og dette kundenr findes nu.
Jeg har også mulighed for at skrive "01*" og  nu vises alle kundenr der starter med 01.

Det jeg ønsker at at kunne skrive "<01*"
for herved kun at få vist alle kundenr der er mindre end 01*. Det er dette "<"
tegn min forespørgsel ikke vil acceptere idet den leder efter et kundenr der hedder "<01" hvilket jo ikke eksisterer.

jeg har også prøvet at lave en ekstra kombibox til at indeholde tegnet, men stadigvæk søges der specifikt på indholdet af kombiboxen.

Det må kunne lade sig gøre, idet man jo i kriterierne direkte i den enkelte forespørgsel kan skrive "<01*" og så virker det jo.

< tegnet er kun et eks. Dette kunne lige så godt have været >, eller andet.


Du skal ligeledes vide at jeg gerne vil have resultatet præsenteret via en generatorløsning eller i nødstilfælde SQL.

Hej igen,

Det er også det jeg mener du kan gøre med min kode. Pointen er at du sammensætter dit SQL af flere stumper fx.

Stump1 = "Select * from blabla where feltnavn"
Stump2 = strTegn(myBox.ListIndex)
Stump3 = "'Det der skal stå efter <,>,<>,= tegnene'"

strSQL = Stump1+Stump2+Stump3

myBox.ListIndex, afleverer indexet på det du har valgt i din combobox, hvis du har valgt den første mulighed (<) så afleverer den tallet 0. strTegn(0) har vi jo initieret til strengværdien "<" og det bliver nu lagt over i Stump2 variablen.

Så det samlede SQL statement bliver jf. ovenstående eksempel:
"Select * from blabla where feltnavn<'Det der skal stå efter <,>,<>,= tegnene'

Giver det mening?

ikke helt, men du fortjener alligevel pointene for dit engagement...

Takker, hvis det bliver ved med at drille, er du velkommen til at maile et eksempel af din db. (uden for megen data)