Select : problemmer med dato

Prøv at udskifte ((SL1K.SL1K002)=#2-6-2003#)
med ((SL1K.SL1K002)=#6/2/2003#)

fdata: ((SL1K.SL1K002)=#6/2/2003#) virker heller ikke. Jeg er 100% sikker på at den ikke får sammenlignet dato ordentligt!

kan det have noget at gøre med, at jeg på min form bruger "Kort datoformat", når jeg indsætter en post?

strSQL = "Insert into SL1K(SL1K001, SL1K002, SL1K003, SL1K004, SL1K005) Values('" & Me.Kundenr & "' ,'" & Me.NotatDato & "','" & Me.Bruger & "','001','" & Me.Notat & "')"
DoCmd.RunSQL strSQL

det skal siges at Me.NotatDato er sat som "kort datoformat"

Er der ikke nogen som kan hælpe?

Hvis det kan være en hælp så ser min kode således ud:



Private Sub OpdateNotat_Click()


If Me.Kundenr <> "" Then
    If Me.Bruger <> "" Then
        If Me.Notat <> "" And Len(Me.Notat) < 80 Then
            Dim antal As Integer
            Dim strSQL As String
            Dim Rst As Recordset
            Dim DB As Database
            Set DB = CurrentDb
                       
            strSQL = "SELECT Count(SL1K.SL1K001) As Antal FROM SL1K WHERE (((SL1K.SL1K001)='" & Me.Kundenr & "') AND ((SL1K.SL1K002)=" & Me.NotatDato & ") AND ((SL1K.SL1K003)='" & Me.Bruger & "'));"
           
            MsgBox strSQL
            Set Rst = DB.OpenRecordset(strSQL)
            antal = Rst.Fields("Antal")
                       
            DoCmd.SetWarnings False
            MsgBox "Antal :" & Rst.Fields("Antal") & Chr$(13) & "Kundenr :" & Me.Kundenr & Chr$(13) & "Dato :" & Me.NotatDato & Chr$(13) & "Bruger :" & Me.Bruger & Chr$(13) & "Bruger :" & Me.Notat & Chr$(13)
            If antal > 0 Then
           
                If antal > 9 Then
                    antal = antal + 1
                    strSQL = "Insert into SL1K(SL1K001, SL1K002, SL1K003, SL1K004, SL1K005) Values('" & Me.Kundenr & "' ,'" & Me.NotatDato & "','" & Me.Bruger & "','0" & antal & "','" & Me.Notat & "')"
                    DoCmd.RunSQL strSQL
                    MsgBox "Bemærkning er opdateret1"
                    DoCmd.Close
                Else
                    antal = antal + 1
                    strSQL = "Insert into SL1K(SL1K001, SL1K002, SL1K003, SL1K004, SL1K005) Values('" & Me.Kundenr & "' ,'" & Me.NotatDato & "','" & Me.Bruger & "','00" & antal & "','" & Me.Notat & "')"
                    DoCmd.RunSQL strSQL
                    MsgBox "Bemærkning er opdateret2"
                    DoCmd.Close
                End If
            Else
                strSQL = "Insert into SL1K(SL1K001, SL1K002, SL1K003, SL1K004, SL1K005) Values('" & Me.Kundenr & "' ,'" & Me.NotatDato & "','" & Me.Bruger & "','001','" & Me.Notat & "')"
                DoCmd.RunSQL strSQL
                MsgBox "Bemærkning er opdateret3" & Chr$(13) & "Dato: " & Me.NotatDato
                DoCmd.Close
            End If
           
            DoCmd.SetWarnings True
           
       
        Else
            MsgBox "Bemærknings feltet må ikke være tomt eller over 80 karakter!"
        End If
    Else
        MsgBox "Husk at du skal vælge en bruger!"
    End If
Else
    MsgBox "Handlingen kan ikke udføres. Der er ikke noget kundenr!"
End If

End Sub

okay har fundet ud af lidt mere nu. Hvis jeg indsætter dette her:

strSQL = "SELECT Count(SL1K.SL1K001) As Antal FROM SL1K WHERE (((SL1K.SL1K001)='" & Me.Kundenr & "') AND ((SL1K.SL1K002)= #6/3/2003#) AND ((SL1K.SL1K003)='" & Me.Bruger & "'));"

Dvs at med #6/3/2003# virker det godt. Men problemet er bare, at jeg datoen jo ikke er fast. Jeg skal bruge Me.NotatDato.

Hvordan får Me.NotatDato(06-03-2003) omformateret til #6/3/2003# ???

Nå men jeg har selv fundet ud af det!

Jeg har lavet det på denne måde!

dato = Month(Me.NotatDato) & "/" & Day(Me.NotatDato) & "/" & Year(Me.NotatDato)

så har dato den rigtige SQL format

Ellers tak for hælpen :o)

:O)