Probleem met code

[scratchtraxx]

Beste,

Ik ben bezig in Microsoft Access, en mijn database is zo goed als klaar.

Nu wou ik nog een laatste optie toevoegen aan de database.

Korte schets:
In de database vinden een x aantal berekeningen plaats, nu zou ik graag de mogelijkheid willen inbouwen, dat vanaf het moment er op de knop 'Start berekening' wordt geklikt, dat hij gaat controleren of de berekening nog niet reeds heeft plaatsgevonden voor de huidige datum.

Hiervoor had ik onder de knop de volgende procedure gestoken:

Public Sub startberekening_Click(stDocname As String)
On Error GoTo Err_startberekening_Click

   

    If Date = DMax("[DATUM]", "[overzicht_groepen]") Then
    
    MsgBox "De berekening voor de huidige datum (" & DMax("[DATUM]", "[overzicht_groepen]") & ") is reeds voltooid, daarom wordt de bewerking afgebroken."
    
    Else
    
    stDocname = "tabel alles toevoegen"
    DoCmd.RunMacro stDocname
    
Exit_startberekening_Click:
    Exit Sub


End If

Err_startberekening_Click:
    MsgBox Err.Description
    Resume Exit_startberekening_Click

In de code wil ik dus met de date functie gaan controleren of de datum in de tabel van de berekening niet gelijk is aan de huidige datum. (dat de berekening dus niet kan plaatsvinden, als deze voorwaarde positief is)


Weet iemand raad, ik krijg altijd de volgende foutmelding (zie bijlage)


Alvast vriendelijk bedankt!

 

[OctaFish]

Kijk eens met deze variant of de datum wel goed wordt ingelezen:

Public Sub startberekening_Click(stDocname As String)
On Error GoTo Err_startberekening_Click
Dim dtDatum As Date

    dtDatum = DMax("[DATUM]", "[overzicht_groepen]")
    MsgBox dtDatum
    If Date = dtDatum Then
        MsgBox "De berekening voor de huidige datum (" & DMax("[DATUM]", "[overzicht_groepen]") & ") is reeds voltooid, daarom wordt de bewerking afgebroken."
    Else
        stDocname = "tabel alles toevoegen"
        DoCmd.RunMacro stDocname
    End If

Exit Sub

Err_startberekening_Click:
    MsgBox Err.Description

End Sub

 

[scratchtraxx]

Kijk eens met deze variant of de datum wel goed wordt ingelezen:

Public Sub startberekening_Click(stDocname As String)
On Error GoTo Err_startberekening_Click
Dim dtDatum As Date

    dtDatum = DMax("[DATUM]", "[overzicht_groepen]")
    MsgBox dtDatum
    If Date = dtDatum Then
        MsgBox "De berekening voor de huidige datum (" & DMax("[DATUM]", "[overzicht_groepen]") & ") is reeds voltooid, daarom wordt de bewerking afgebroken."
    Else
        stDocname = "tabel alles toevoegen"
        DoCmd.RunMacro stDocname
    End If

Exit Sub

Err_startberekening_Click:
    MsgBox Err.Description

End Sub

Tevergeefs, blijf ik dezelfde foutmelding krijgen, en ik zie niet van er loos is

maar ik zoek verder

 

[OctaFish]

Wat doet hij met de messagebox? Geeft hij wel de datum?

 

[scratchtraxx]

Wat doet hij met de messagebox? Geeft hij wel de datum?

Neen, hij blijft dezelfde melding geven zoals in de bijlage van mijn eerste bericht.

 

[OctaFish]

Ik vermoed dat de fout hier zit:

Public Sub startberekening_Click(stDocname As String)

Moet zijn:
Public Sub startberekening_Click()

 

[scratchtraxx]

Ik vermoed dat de fout hier zit:

Public Sub startberekening_Click(stDocname As String)

Moet zijn:
Public Sub startberekening_Click()

Prachtig mijn dank is WEERAL groot.

Dat moest inderdaad verwijderd worden. Dank u wel !