VBA Amerikaanse datum

[LauravT]

Hallo,

Ik heb het probleem dat mijn code van de Amerikaanse notitie uitgaat zodra de datum onder dag 13 is.
Heb al het eea gevonden en geprobeerd, maar het wil niet helpen.

Hopelijk weet iemand wat ik fout doe?

Dim StartDatum As Date
Dim EindDatum As Date
Dim Datum As Date

StartDatum = CDate(CDbl(TXT_Start))
EindDatum = CDate(CDbl(TXT_Eind))

Datum = CDate(CDbl(StartDatum - 1))

Do Until Datum = EindDatum
    Datum = CDate(CDbl(Datum + 1))
    If IsNumeric(DLookup("[Uren]", "[Data]", "[Datum] = #" & Datum & "# AND [Naam] = '" & [TXT_Naam] & "'")) Then
        Dim SQL As String
        
        SQL = "UPDATE [Data] SET [Uren] = '" & TXT_Afkorting & "' WHERE [Datum] = #" & Datum & "# AND [Naam] = '" & [TXT_Naam] & "'"
        
        DoCmd.RunSQL SQL
    End If
Loop

 

[OctaFish]

Ik heb het probleem dat mijn code van de Amerikaanse notitie uitgaat zodra de datum onder dag 13 is.

Daar vergis je je in: de datum is altijd Amerikaans. Alleen valt dat niet zo op bij 14-8. Je hebt, qua oplossing, de klok een beetje horen hangen, vindt de klank mooi en zoekt nu de klepel .
Hier komt-ie:

Dim iDatum As Long
Dim iEindDatum As Long
Dim SQL As String

iDatum = CDbl(Me.TXT_Start)
iEindDatum = CDbl(Me.TXT_Eind)

Do Until iDatum = iEindDatum
    If IsNumeric(DLookup("[Uren]", "[Data]", "[Datum] = CDate(" & iDatum & ") AND [Naam] = """ & Me.TXT_Naam & """")) Then
        SQL = "UPDATE [Data] SET [Uren] = """ & Me.TXT_Afkorting & """ WHERE [Datum] = (" & iDatum & ") AND [Naam] = """ & Me.TXT_Naam & """"
        CurrentDB.Execute SQL, DbFailOnError
        iDatum = iDatum + 1
    End If
Loop

 

[LauravT]

Fijn dat je me hebt geholpen om de klepel te vinden,.. !

Hartstikke bedankt!