Størren søgning på dato.

strSQL = "Select ObNr, LokId,Obtype, Obinitialer, Afdeling, Lokation, RisikoGentagelse,ObDato from qryObservationersamlet  Where LokId ="&Request("LokId")&" AND ObDato >='"&Request("ObDato")&"' AND Obtype Like'"&Request("Obtype")&"' AND ObInitialer Like'"&Request("ObInitialer")&"' AND Afdeling Like'"&Request("Afdeling")&"' order by ObNr Desc"

Nej så melder den følgende fejl.
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

Så det er Access og kolonnen ObDato er af typen date/time?

Ja kolonnon er af typen data/time typen. Kqa det være fordi jeg henter forespørgslen i en forespørgsel.

Nej det skal virker der bare nogle ting man skal gøre på en bestem måde når det er dato'er og det betyder at der skal # omkring datoen og datoen skal overføres i formatet yyyy-mm-dd eller mm-dd-yyyy og ikke DK format dd-mm-yyyy da access så vil bytte rundt på månede og dag.
Det kan dog let formateres med Year, Month, Day.

strDato = Request("ObDato")
strDato = Year(strDato) & "-" & Month(strDato) & "-" & Day(strDato)

strSQL = "Select ObNr, LokId,Obtype, Obinitialer, Afdeling, Lokation, RisikoGentagelse,ObDato from qryObservationersamlet  Where LokId ="&Request("LokId")&" AND ObDato >=#" & strDato & "# AND Obtype Like'"&Request("Obtype")&"' AND ObInitialer Like'"&Request("ObInitialer")&"' AND Afdeling Like'"&Request("Afdeling")&"' order by ObNr Desc"

Hvor skal jeg lige indsætte de 2 første linier. Skal de ind i formularen.

søge formularen

De skal bare ligge lige før SQL sætningen.

Nu melder den følgende fejl

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/Formular/Observation/søghandlingsresultat.asp, line 31

Hvad står der i linje 31.
Det lyder som om du mangler at definere et object som enten kan være et rcordset eller connection,

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../fpdb/Miljodatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strDato = Request("ObDato")
strDato = Year(strDato) & "-" & Month(strDato) & "-" & Day(strDato)

strSQL = "Select ObNr, LokId,Obtype, Obinitialer, Afdeling, Lokation, RisikoGentagelse,ObDato from qryObservationersamlet  Where LokId ="&Request("LokId")&" AND ObDato >=#" & strDato & "# AND Obtype Like'"&Request("Obtype")&"' AND ObInitialer Like'"&Request("ObInitialer")&"' AND Afdeling Like'"&Request("Afdeling")&"' order by ObNr Desc"
    dim antal
(Dette er linie 31)            DO WHILE NOT RS.EOF
                Obtype = rs("Obtype")
                Obinitialer =rs("Obinitialer")
                Afdeling= rs("Afdeling")
                Lokation= rs("Lokation")
                RisikoGentagelse= rs("RisikoGentagelse")
                Obdato = rs("Obdato")
                ObNr = rs("ObNr")
                LokId =rs("LokId")
                antal = antal + 1
                if antal = 10 then
                response.write "<P CLASS=page>"
                antal = 1
                end if
               
               
            %>

Du skal lige havde denne linje ind i linjen lige før 31 den DO WHILE NOT RS.EOF

Set rs = Conn.Execute(strSQL)

Nå ja. Den var smuttet da jeg klippede din løsning ind. Jeg er ved at miste overblikket måske jeg skulle stoppe for i dag. Men nu til sagens kerne. Nu virker det. Så jeg afleveret tilfreds og fornøjet pointene. Tak for hjælpen.
Ligger du lige et svar.

Ok, ja det gør jeg da gerne ;)

...doh

Tak