Private Sub cmdUpdateRecord_Click()
Dim strSQL As String
'strSQL = "UPDATE t_betalingen SET t_betalingen.datum = #2/10/2015#, bedrag=575.33 WHERE id=130"
'Wordt:
strSQL = "UPDATE t_betalingen SET t_betalingen.datum = #" & ConverteerNaarLang("2/10/2015") & "#, bedrag=575.33 WHERE id=130"
End Sub
Private Function ConverteerNaarLang(pDatum As String) As String
'2/10/2015
Dim Dag, Maand, Jaar As String
Dim PlaatsVanDeSlash As Integer
Dim LangeMaand As String
PlaatsVanDeSlash = InStr(1, pDatum, "/")
Dag = Left(pDatum, PlaatsVanDeSlash - 1)
Maand = Mid(pDatum, PlaatsVanDeSlash + 1, 2)
Jaar = Mid(pDatum, PlaatsVanDeSlash + 4, 4)
Select Case Maand
Case 1
LangeMaand = "Jan"
Case 2
LangeMaand = "Feb"
Case 1
LangeMaand = "Mar"
Case 1
LangeMaand = "Apr"
Case 1
LangeMaand = "May"
Case 1
LangeMaand = "Jun"
Case 1
LangeMaand = "Jul"
Case 1
LangeMaand = "Aug"
Case 1
LangeMaand = "Sep"
Case 1
LangeMaand = "Oct"
Case 1
LangeMaand = "Nov"
Case 1
LangeMaand = "Dec"
End Select
ConverteerNaarLang = Dag & "/" & LangeMaand & "/" & Jaar
End Function