delete instructie met datum

annetiti · 17 feb 2017

Dag

Ben al meer dan een uurtje zoet met datumvelden.
In bijlage mijn klein voorbeeld:
Bekijk bijlage datumvantot.zip

via een formulier --> knopje geplaatst om records te verwijderen die beantwoorden aan 2 criteria's:
- leerling-id = me!txtleerlingid
- datum tussen begin en einddatum --> dit lukt niet

Code:

Private Sub cmdverwijder_Click()
CurrentDb.Execute "delete * from  tussenkomst where tussenkomst_lln= " & Me!txtleerlingnr & _
 " and  tussenkomst.tussenkomstdatum >=  " & CDate(CDbl(Me![txttussenkomstvan])) & " And tussenkomst.tussenkomstdatum <= " & CDate(CDbl(Me![txttussenkomsttot]))
End Sub

datumveld in de tabel is als standaardnotatie= datum en uur

de code verwijdert wel de rijen die beantwoorden aan het leerlingnr maar niet aan de datum's

Kan er iemand me helpen?
vb leerlingnr 100 en datum tussen 02/02/2017 and huidige datum. in de tabel tussenkomst is wel datum en uur opgenomen. Geeft dit problemen?

Hartelijk dank
Anne

OctaFish · 17 feb 2017

Je gebruikt de CDate verkeerd. Je datum wordt namelijk in het VBA stuk wel goed gelezen, maar in de query niet. Je moet dus in de query de CDate gebruiken. Dan krijg je dit:

Code:

    CurrentDb.Execute "DELETE FROM tussenkomst WHERE tussenkomst_lln= " & Me.txtleerlingnr & " " _
        & "AND tussenkomstdatum >= CDate(" & CDbl(Me.txttussenkomstvan) & ") " _
        & "AND tussenkomstdatum <= CDate(" & CDbl(Me.txttussenkomsttot) & ")"

delete instructie met datum

annetiti

Gebruiker

OctaFish

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy