Hvorfor fungerer det ikke

Mon ikke Text1 skal være Text1.Text.
Men det er nok ikke fejlen.
Hvilken fejlmeddelelse får du?
-SCB

eller Form8.Text1.Text

Men det kommer selvfølig an på om Text1 er en tekstbox eller en variabel.

Jeg har prøvet med text1.text og form8.text1.text uden resultat
FEJLMEDDELSE ER :
Der er en syntaksfejl, fordi der mangler en operator. i forespørgsel "dato between # 12-30-2000 #and#04-25-2003# and tekst=like 'br%"'.

Text1 er en Tekstbox

Jeg kan ikke lige se hvad der så skulle være galt.
Prøv at fjerne halvdelen og se om det så fungerer, og derefter koble et "led" på af gangen, indtil fejlen er der.
-SCB

Du skal sørge for at der er korrekte mellemrum i dit statment, altså:

dato between #12-30-2000# and #04-25-2003# and tekst=like 'br%'

de to nedstående sub fungerer godt

Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = "select * from " & sTable & " where  dato >= " & Chr(35) _
    & Format(Text2, "DD-MMM-YYYY") & Chr(35) _
    & " and " & "Kasse " & "like '" & Form8.Text1.Text & "%'" & " order by Dato"
    Form8.Adodc1.Refresh
**********
også den
Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = " select sum(kasse)as kasse from " & sTable & " where dato BETWEEN " _
& "#" & Format(Form8.Text2.Text, "mm-dd-yyyy") & "#" & "AND" _
& "#" & Format(Form8.Text4.Text, "mm-dd-yyyy") & "#" & " and " & "KontoNr = " & Form8.Text1
Form8.Adodc1.Refresh
jeg kan ikke finde ud af
Enric

de to nedstående sub fungerer godt

Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = "select * from " & sTable & " where  dato >= " & Chr(35) _
    & Format(Text2, "DD-MMM-YYYY") & Chr(35) _
    & " and " & "Kasse " & "like '" & Form8.Text1.Text & "%'" & " order by Dato"
    Form8.Adodc1.Refresh
**********
også den
Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = " select sum(kasse)as kasse from " & sTable & " where dato BETWEEN " _
& "#" & Format(Form8.Text2.Text, "mm-dd-yyyy") & "#" & "AND" _
& "#" & Format(Form8.Text4.Text, "mm-dd-yyyy") & "#" & " and " & "KontoNr = " & Form8.Text1
Form8.Adodc1.Refresh
men den nedstående fungerer ikke
Form8.Adodc1.CommandType = adCmdText
Form8.Adodc1.RecordSource = "select * from " & sTable & " where dato BETWEEN " _
& "#" & Format(Form8.Text2.Text, "mm-dd-yyyy") & "#" & "AND" _
& "#" & Format(Form8.Text4.Text, "mm-dd-yyyy") & "#" & "and" & " Tekst = " & "like '" & Text1 & "%'" & " order by Dato"
    Form8.Adodc1.Refresh
Enric

Jeg har en ide. Prøv at organisere dit kald lidt smartere, så kan du lettere se hvor fejlen er:

dim sSQL as string
sSQL = "select * from " & sTable & " where dato BETWEEN " _
& "#" & Format(Form8.Text2.Text, "mm-dd-yyyy") & "#" & "AND" _
& "#" & Format(Form8.Text4.Text, "mm-dd-yyyy") & "#" & "and" & " Tekst = " & "like '" & Text1 & "%'" & " order by Dato"

msgbox sSQL
Form8.Adodc1.RecordSource = sSQL

...så finder du også ud af at du har "tekst = like '" i stedet for "tekst like '".

Der kan man bare se hvad et "=" kan gøre, Tak for Hjælpen Ocp

Glad for at kunne hjælpe...