kriterie i query haster

Du skal bruge noget i retning - taget hurtigt fra mit program

Me.LkUPBeloebtype.Column(1, Me.LkUPBeloebtype.ListIndex)

Du kan lige så godt få en af mine parsere til sådan et søgekriterie - nu bruger jeg en typisk en multi select liste:

Sub LkUpListeParsX(Liste As ListBox, Clmn As Integer, FieldName As String, mycriteria As String, ArgCount As Integer, Istxt As Boolean)
   
' Copyrights Henrik Nielsen 2008
' Multiselect box parser for alle typer liste  - med valg af column -  dette er noget , der rykker
' Create critera for WHERE clause
   
    Dim varItem As Variant
    Dim strList As String, txtValg As String, LstStart As String, LstSlut As String
   
   
 
    With Liste
        If .MultiSelect = 0 Then ' du kan kun vælge en ad gangen
            If Not IsNull(.Value) Then
            '  Append criterion to existing criteria.
                If ArgCount > 0 Then
                        mycriteria = mycriteria & " and "
                End If
                If Istxt Then 'dette er en txt liste
                    '  Enclose FieldValue and asterisk in quotation marks.
                    mycriteria = (mycriteria & FieldName & " Like " & Chr(39) & Chr(42) & .Column(Clmn, .ListIndex) & Chr(42) & Chr(39))
                Else ' dette er en tal liste
                    '  lige ud af landevejen
                    mycriteria = (mycriteria & FieldName & " = " & .Column(Clmn, .ListIndex))
                End If
                '  Increase argument count.
                ArgCount = ArgCount + 1
            End If
           
        Else ' du kan vælge flere ad gangen
            '  Append criterion to existing criteria.
            If (ArgCount > 0 And Liste.[ItemsSelected].[Count] > 0) Then
                mycriteria = mycriteria & " and "
            End If
           
            If Liste.[ItemsSelected].[Count] > 1 Then  ' er der valgt mere end en i listen
                txtValg = " OR "
                LstStart = "( "
                LstSlut = ") "
            Else
                txtValg = ""
                LstStart = ""
                LstSlut = ""
            End If
            mycriteria = mycriteria & LstStart
            For Each varItem In .ItemsSelected
                If Istxt Then 'dette er en txt liste
                    mycriteria = mycriteria & FieldName & " Like " & Chr(39) & Chr(42) & .Column(Clmn, varItem) & Chr(42) & Chr(39) & txtValg
               
                Else ' dette er en tal lite
                    mycriteria = mycriteria & FieldName & " = " & .Column(Clmn, varItem) & txtValg
                    'husk at kolonne (0) repræsenterer, den første kolonne, skal du vise noget
                    'andet end kolonne 0 - skjul kolonne 0 og vis f.eks. kolonne 1
                End If
                '  Increase argument count.
                ArgCount = ArgCount + 1
            Next varItem
            ' hov - hvis der er flere - skal vi lige fjerne det sidste or
            If Right(mycriteria, Len(txtValg)) = txtValg Then
                mycriteria = Left(mycriteria, Len(mycriteria) - Len(txtValg))
            End If
            mycriteria = mycriteria & LstSlut ' ja - og så lige en afslutte parentes
        End If
    End With
End Sub

Hej Henrik,
du må være meget mere konkret da jeg ikke er udvikler :-)

normalt ville jeg blot lave en qyery hvor følgende var indsat:

WHERE (((ProductIdNumber.CaseID)=[Forms]![FrmCreateCaseStep1]![Combo0]));

men her refererer den jo til den bundne kolonne som er kolonne 1 på min combo. Jeg vil blot gerne at den istedet selecterer på kolonne 2 uden at denne bliver ændret til at være den bundne kolonne.

feks ser comboen sådan ud i dag


blå bil
rød bil
grøn bil

nu er det så jeg vil tilføje et felt mere på formen så dennes ID også kommer med. ser efterfølgende sådan ud

blå bil | ID1
rød bil | ID2
grøn bil | ID3

det er nu på en ny query jeg vil filtrere poster i queryen ud fra comboens ID værdier og ikke txt værdier.

Det er netop derfor du skal bruge column funktionen, hvor column 0 er default column. Du skal have fat i 1 også

Hvis du er bag den aktuelle form er

[Forms]![FrmCreateCaseStep1] = me og brug punktum, altså

NYT CRITERIE = "WHERE (((ProductIdNumber.CaseID)= " & me.Combo0.Column(1, Me.Combo0.ListIndex)

Ahh - du laver ikke programmering i vba men blot en forespørgelse bag i generatoren, så skal du have fat i hele navnet:

WHERE (((ProductIdNumber.CaseID)=[Forms]![FrmCreateCaseStep1]!Combo0.Column(1, [Forms]![FrmCreateCaseStep1]!Combo0.ListIndex)));

Ved så ikke lige om syntakten er på plads og om generatoren tillader denne opbygning.

jow jeg arbejder da helst med VBA men er ikke haj i dette :-)

jeg tester lige denne :
NYT CRITERIE = "WHERE (((ProductIdNumber.CaseID)= " & me.Combo0.Column(1, Me.Combo0.ListIndex)

men skal 1-tallet ikke rettes til 2, da det jo er denne er den relevante (eller hedder kolonne 1 default 0 i VBA scriptet)

for at tjekke det ville jeg gerne have den rette syntax i forespørgslen alligevel :-)

kan du klare den er vi i mål...

1 er 0 i denne verden,

Er din kode bagved formen eller er den knyttet til forespørgsel som du kører direkte ?

me. henviser til formen/objektet selv og vil ikke virke indsat via query generatoren.

Hejsa,
jeg vil blot sætte kriteriet ind i en ny forespørgsel

jeg ved at me. hendviser til den aktuelle form, men det kan bare skiftes ud med formens fulde navn som du skrev.
kunne godt tænke mig syntaksen på dette så det kunne testets i en lille form, evt. en ny ren database da det kunne være en stor hjælp fremadrettet. :-)

Det kan vist ikke gøres simplere efter dit eks.

Private Sub Kombinationsboks0_AfterUpdate()
MsgBox "Du valgte " & Me.Kombinationsboks0.Column(1, Me.Kombinationsboks0.ListIndex)
End Sub

viser indholdet af 2. kolonne.

Je har da en lille db som viser eks. hvis du har en mail?

sidste indlæg fra dig er stadig vba og nu med en msgbox.

jeg ville blot gerne have syntaksen for metoden baseret på at dette kriterie indsættes i en forespørgsel

nto
snabel a
solar
punktum
dk

Ja der kommer vi nok til kort. Der er ikke adgang til .column men blot boundcolumn inde fra queryeditoren, så du må stikke til at eksekvere din SQL inde fra VBA.

Hej Henrik,
har lige fået mailen og tjekker op på det.

jeg kan godt se princippet og må prøvet at få dette forenet i en query evt. via vba.

man kunne måske lave en sql i vba oden der åbner recordsettet ud fra kolonne 2 og efterfølgende appender dette til en temp tabel

smid lige et svar...