Tom værdi i udtryk

Udtryk som Forms![Planer]![Ja_Nej] udløser en error (med nummeret 2450) hvis formen ikke er åben.

Derfor er man nød til at fange error og returnere noget meningsfuldt - følgende funktion returnerer empty hvis formen ikke er åben, ellers værdien af kontrolelementkilden. I dit eksempel kaldes funktionen sådan

formControlValue("Planer","Ja_Nej")

Function formControlValue(formName, controlName)
    On Error GoTo err:
    formControlValue = Forms(formName).Controls(controlName).Value
err:
    rrifnot 2450
End Function


Ovenstående anvender:

Public Sub rrifnot(ParamArray errnot2reraise())
    Dim errIsDone%, errParm
    For Each errParm In errnot2reraise
        If err.Number = errParm Then errIsDone = True
    Next
    If (Not errIsDone) And err.Number Then _
        err.Raise err.Number, err.source, err.Description, err.HelpFile, err.HelpContext
End Sub

Jeg får fejlen Expexted variabel or procedure, not module

Function formControlValue(formName, controlName)
og
Public Sub rrifnot(ParamArray errnot2reraise())
har jeg lagt i et modul

Mine koder er:

Dim Betalt As Integer

Betalt = formControlValue("Planer","Ja_Nej")

If Betalt = True Then ...

Man kan altid få lidt ekstra fornøjelse når noget flyttes til en anden database ;)

Prøv at omdøbe modulet til noget andet.