fejl i program

Hej Jumper.
Så vidt jeg kan se kører det fint.
Beskriv eventuelt fejlen.

Det er noget med dine settings. Hvis du debugger koden, og breaker der hvor funktionen kaldes i knappen, vil du se at værdien for argumentet momspct er en streng der hedder "nymomsprocent". Det kan funktionen naturligvis ikke bruge i en beregning. Der skal inputtes et tal.

/tjacob

Du skal evt bruge ByVal ved inputargumenterne til dine funktioner:

Function beregnbeløbførmoms(ByVal beløbeftermoms, ByVal momspct)
    beregnbeløbførmoms = beløbeftermoms / (1 + momspct)
End Function

Jeg har tjekket i min RegDB, og selvom jeg vælger at sætte en ny momspct, så bliver værdien ikke skrevet -(jo som "nymomsprocent"). Du må rette på dine GetSetting og SaveSetting. -Defaultværdierne bliver heller ikke taget.
Du kan selv tjekke i RegDB under:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\momsberegning\indstillinger

i disse to liner er der fejl.

Første der skal ikke være mellemrum imellem gåsseøjne
    If nymomspct <> "" Then

Næste fejl.
der skal ikke være gåsseøjne på nymomspct sidst i linien     
        SaveSetting AppName:="momsberegning", section:="indstillinger", Key:="momspct", setting:=nymomspct

hilsen midcom

tak for hjælpen, jeg var kørt lidt sur i det

Jumper

Ok det kan ske
Hilsen Midcom