format - dato til sqlstring - haster

Måske skal du bruge noget med en format dato funktion, men jeg ved det ikke.

Det er den jeg sidder og bokser med. har nu konstateret noget meget pudsigt.
hvis jeg i min sqlstring spørger med = får jeg ikke noget hit.
hvis jeg sætter datoen i tekstboksen en ned og ændrer sqlstringen til > (større end) får jeg et hit.
det fatter jeg ikke en brik af :-(

du skal formatere din dato således at formatet er det samme i textboxen som i databasen.
Hvilken database er det du sidder med ?

Er datoen i databasen formateret som et dato felt eller er det en text streng?

kedde

kedde65>
jeg sidder med acces 97. datoen i basen er defineret som date/time med inputmaske kort datoformat.

min kode ser ud som følger:

Private Sub opretendag()
Dim dbs As Database
Dim rs As Recordset
Dim strsql As String
Dim counter As Integer
counter = 0
Dim today As Date
today = Date
Dim mydate As Date


mydate = Format(startdato, \"dd-mm-yy\")



Set dbs = CurrentDb

strsql = \" select aktuelfravaer_ID, dato, fravaertype_id from aktuelfravaer \" _
        & \" where medarbejder_ID = \" + Str(ID) + \" \" _
        & \" and dato = #\" & startdato & \"#\"
       
       
If startdato < today Then
MsgBox \"Der kan ikke oprettes fravær tilbage i tiden!\"
DoCmd.CancelEvent
Else
Set rs = dbs.OpenRecordset(strsql)
rs.MoveFirst
MsgBox rs(counter)

End If

Duy skal prøve at bruge SQL kommandoen LIKE istedet for =

kedde

hvis jeg sætter LIKE istedet for = får jeg samme svar.

hmmmmmm.......tænker lige.......

strsql = \" select aktuelfravaer_ID, dato, fravaertype_id from aktuelfravaer \" _
& \" where medarbejder_ID = \" + Str(ID) + \" \" _
& \" and dato = \'\" & startdato & \"\'\"

Prøve lige dette istedet for!!       

       

datatype mismatch in criteria .........

strsql = \" select aktuelfravaer_ID, dato, fravaertype_id from aktuelfravaer \" _
& \" where medarbejder_ID = \" + Str(ID) + \" \" _
& \" and dato = \'#\" & startdato & \"#\'\"

Hvad så dette her????

kedde

datatype mismatch in criteria ......... igen

Prøv lige at sende mig databasen på kedde65@odense.kollegienet.dk så skal jeg prøve at kigge på problemet.

Kedde

lad være med at bruge et regionalt afhængigt datoformat.

Du skal bruge en isodato istedet. Sådan een er _altid_ (uanset hvilke sindsyge indstillinger brugeren har på sin maskine) \"yyyymmdd\".

Dvs.

Select dingdong from bells where belldate=\'20011231\' :o)

/Jennemaan

jeg har prøvet at lave en forespørgsel i designvinduet og indsat datoen som kriterie. Derefter set forespørgslen i sqlview.

den sætter datoen op som følger:
#d/m/yy#
med skråstreger istedet for - men det kan jeg ikke få den til i min format.

Jennemaan>

mener du jeg skal lave en format til YYYYMMDD ?

og skal jeg så også definere feltet om i databasen???

Kedde65>

basen er sendt :-)

du lader bare dit felt være en date...

Format skal dy passe på med... F.eks. vil en tysk maskine ikke forstå yyyymmdd, men istedet jjjjmmtt (jahr monat tag).

Du kan evt. skrive en hjælpefunktion

Function fstrIsoDate(tDate As Date) As String
Dim strMonth As String, strDay As String
strMonth=Month(tDate)
strDay=Day(tDate)
If Len(strMonth)=1 Then strMonth=\"0\" & strMonth
If Len(strDay)=1 Then strDay=\"0\" & strDay
fstrIsoDate=Year(tDate) & strMonth & strDay
End Function

Regionale indstillinger er noget skod. Der burde være dødstraf for at bruge andet end iso-standarden!

/Jennemaan :o)

>jennemaan

Jeg beklager - jeg er lidt ny og jeg forstår ikke helt hvad det betyder.

kan jeg bare klippe det ud og lave en ny function med ovennævnte. hvordan kalder jeg den så - jeg skal vel sende datoen med ??

Function fstrIsoDate(tDate As Date) As String
Dim strMonth As String, strDay As String
strMonth=Month(tDate)
strDay=Day(tDate)
If Len(strMonth)=1 Then strMonth=\"0\" & strMonth
If Len(strDay)=1 Then strDay=\"0\" & strDay
fstrIsoDate=Year(tDate) & strMonth & strDay
End Function


Private Sub opretendag()
Dim dbs As Database
Dim rs As Recordset
Dim strsql As String
Dim counter As Integer
counter = 0
Dim mydate As String \'<- nyt


mydate = fstrIsoDate(Now()) \'<- også nyt :o)


Set dbs = CurrentDb

strsql = \" select aktuelfravaer_ID, dato, fravaertype_id from aktuelfravaer \" _
        & \" where medarbejder_ID = \" + Str(ID) + \" \" _
        & \" and dato = \'\" & startdato & \"\'\"  \'<- ligeledes nyt :o)
       
       
If startdato < today Then
MsgBox \"Der kan ikke oprettes fravær tilbage i tiden!\"
DoCmd.CancelEvent
Else
Set rs = dbs.OpenRecordset(strsql)
rs.MoveFirst
MsgBox rs(counter)

End If

/Jennemaan

Jennemaan>

skal datoen i strsql så ikke være mydate ??

Jeg har kopieret den direkte ud og lavet en ny funktion med indholdet af det du har skrevet!

udtrykket ved klik gav en fejl. navnet er tvetydigt fstrisodate ??????

Jo, datoen i strsql skal være mydate (sorry, så den ikke lige)

Tvetydigt???

fstrIsoDate
f=function
str=string
IsoDate=mnemonic

Standard hungarian notation :o)

/Jennemaan

Jennemaan>

Tja men fejlen får jeg altså.

Jeg kommer slet ikke ned i koden så jeg kan singlesteppe.

Prøv at ændre følgende 2 ting i din kode til:

Dim mydate As Date => Dim mydate As String

mydate = Format(startdato, \"dd-mm-yy\") => mydate = Month(startdato) & \"-\" & Day(startdato) & \"-\" & Year(startdato)


ProAccess

Hvilket miljø arbejder du i? (VB, Access Basic....?)

/Jennemaan

proaccess>

SÅDAN!!!!!!!!!!!!!!!!!!!!!!!!

Det er bare for sejt - det spiller første gang.
jeg vælger at give proaccess alle pointene for en nem og forståelig løsning (jeg ved ikke om det er den eneste.)
Alle andre - tak for indsatsen.

bukker og takker ;-)