Hej!

Jag har en databas där ett av fälten har datatypen Datum/Tid, men när VB ska söka igenom det recordsetet så hittar den inte ett datum som står med, utan går förbi och lägeer till samma datum ytterligare en gång.

Jag har gjort om strängen från textrutan till en variabel med datatypen Date (via CDate), men det verkar ändå inte fungera. Hur får jag alltså då VB att förstå att det är ett speciellt datumformat (t.ex. 2003-05-05, alltså yyyy-mm-dd) som är likadant som i Access?


' Koden som berör datumen (enbart startdatum i sökningen).

Dim dteStartdatumOrder, dteSlutdatumOrder As Date
Dim strStartdatumOrder, strSlutdatumOrder As String

Set rsStartdatum = dbLager.OpenRecordset("STARTDATUM", dbOpenDynaset)
Set rsSlutdatum = dbLager.OpenRecordset("SLUTDATUM", dbOpenDynaset)

strStartdatumOrder = txtStartdatumOrder.Text
dteStartdatumOrder = CDate(strStartdatumOrder)
strSlutdatumOrder = txtSlutdatumOrder.Text
dteSlutdatumOrder = CDate(strSlutdatumOrder)

rsStartdatum.MoveFirst
rsSlutdatum.MoveFirst

rsStartdatum.FindFirst ("startdatum= " & dteStartdatumOrder & "")
rsSlutdatum.FindFirst ("slutdatum= '" & dteSlutdatumOrder & "")

If rsStartdatum("startdatum") = dteStartdatumOrder Then

rsTO.Edit
rsTO("startdatumID") = rsStartdatum("startdatumID")
rsTO.Update

Else

rsStartdatum.AddNew
rsStartdatum("startdatum") = dteStartdatumOrder
rsStartdatum.Update

rsStartdatum.MoveLast

rsTO.Edit
rsTO("startdatumID") = rsStartdatum("startdatumID")
rsTO.Update

End If

' Koden slut


Mvh

Dan...

Hur ser koden som söker ut?