de juiste maand

[vlys1]

ik heb op een formulier een knop staan waarbij de bedoeling is dat hij een overzicht geeft van een maand geleden.
tot op heden werkte dit goed alleen nu we een nieuw jaar in zijn krijg ik een foutmelding.
in deze regel gaat het fout
Me!txtdatefrom = CDate("01/" & Month(Date) - 1 & "/" & Year(Date))
hoe kan ik het nu zo krijgen dat hij dan in de maand januari ook naar de maand december kan kijken.

Private Sub cmdLastmonth_Click()
'Sets the Date From and Date To text boxes
'to show complete month (from start to end of current month)-30

    Me!txtdatefrom = CDate("01/" & Month(Date) - 1 & "/" & Year(Date))
    Me!txtDateTo = DateAdd("d", -1, DateAdd("m", 1, Me!txtdatefrom))
    Dim stDocName As String

    stDocName = "Frm Reports Faktuur"
    
'Check values are entered into Date From and Date To text boxes
'if so run report or cancel request

    If Len(Me.txtdatefrom & vbNullString) = 0 Or Len(Me.txtDateTo & vbNullString) = 0 Then
        MsgBox "Zorg ervoor dat de Datums zijn ingevuld.", _
               vbInformation, "Datum vereist...."
        Exit Sub
    Else
        
        DoCmd.OpenForm stDocName, acNormal
        DoCmd.Close acForm, "Frm Reports"
    End If
Exit_cmdlastmonth_Click:
    Exit Sub

Err_cmdlastmonth_Click:
    MsgBox Err.Description
    Resume Exit_cmdlastmonth_Click

End Sub

gr
vlys1

 

[OctaFish]

Waarom je CDate gebruikt is mij een klein raadsel; gebruik DateSerial om een datum te genereren. Gaat een stuk beter.

 

[vlys1]

word het dan dit zie hieronder?

Me!txtdatefrom = DateSerial("01/" & Month(Date) - 1 & "/" & Year(Date))

 

[OctaFish]

Kijk eens in de Help hoe DateSerial er uit ziet, zou ik zeggen:

Me!txtdatefrom = DateSerial(Year(Date()) ; Month(Date()) - 1 ; 1)

 

[vlys1]

bedankt