|
| Hvordan løser jeg dette problem.. jeg er n~ Fra : Cojab |
Dato : 21-10-02 15:25 |
|
Hey NG...
Jeg har anskaffet mig denne bog her "Grundlæggende programmering med Visual
Basic 6.0" af Michell Cronberg, fordi jeg gerne ville prøve at lærer noget
om VB.
Så jeg sætter mig ned og begynder med at lave først program, en lille moms
om regner. Og jeg følger så det der står i bogen, indtil jeg for en fjel. Og
det er så her i kommer ind i billedet, hvordan løser jeg det.
Private Sub RetMomsProcent_Click()
Din NyMomsPct, GlMomsPct
GlMomsPct = GetSetting(AppName:="MomsBeregning",
Section:="Indstillinger", Key:="MomsPct", Default:="0,25")
NyMomsPct = InputBox(Prompt:="Indtast ny momsprocent", Title:="Ny
momsprocent", Default:=GlMomsPct)
If NyMomsPct <> "" Then
SaveSetting AppName:="MomsBeregning", Section:="Indstillinger",
Key:="MomsPct", Setting:=NyMomsPct
End If
End Sub
Det der "Private Sub RetMomsProcent_Click()" kommer til at stå på en gul
baggrund, og jeg får denne fejl. "Compile error: Sub or Function not
defined"
Hvordan løser jeg det??
Vil gerne have noget hjælp.
MVH Jakob (c0jab)
| |
John Doe (21-10-2002)
| Kommentar Fra : John Doe |
Dato : 21-10-02 15:32 |
|
> Private Sub RetMomsProcent_Click()
Betyder at du har en "Command Button" som hedder RetMomsProcent.
Når du i formeditoren dobbeltklikker på denne knap vil den hoppe ind i din
procedure som hedder
Private sub RetMomsProcent_Click
her imellem paster du din kode (som jeg har rettet lidt på:
Du havde skrevet Din og IKKE Dim ved oprettelse af varible
Private Sub RetMomsProcent_Click()
Dim NyMomsPct, GlMomsPct
GlMomsPct = GetSetting(AppName:="MomsBeregning", _
Section:="Indstillinger", _
Key:="MomsPct", _
Default:="0,25")
NyMomsPct = InputBox(Prompt:="Indtast ny momsprocent", _
Title:="Ny momsprocent ", _
Default:=GlMomsPct)
If NyMomsPct <> "" Then
SaveSetting AppName:="MomsBeregning", _
Section:="Indstillinger", _
Key:="MomsPct", _
Setting:=NyMomsPct
End If
End Sub
| |
Lasse Madsen (22-10-2002)
| Kommentar Fra : Lasse Madsen |
Dato : 22-10-02 07:03 |
|
Hej
Husk også lige at man skal gange og dividere med 1,25 for at udlede moms ...
m.v.h
l. madsen
"Cojab" <jakob@lagengymnastik.dk> wrote in message
news:3db40df6$0$34844$edfadb0f@dspool01.news.tele.dk...
> Hey NG...
>
> Jeg har anskaffet mig denne bog her "Grundlæggende programmering med
Visual
> Basic 6.0" af Michell Cronberg, fordi jeg gerne ville prøve at lærer noget
> om VB.
>
> Så jeg sætter mig ned og begynder med at lave først program, en lille moms
> om regner. Og jeg følger så det der står i bogen, indtil jeg for en fjel.
Og
> det er så her i kommer ind i billedet, hvordan løser jeg det.
>
> Private Sub RetMomsProcent_Click()
>
> Din NyMomsPct, GlMomsPct
>
> GlMomsPct = GetSetting(AppName:="MomsBeregning",
> Section:="Indstillinger", Key:="MomsPct", Default:="0,25")
>
> NyMomsPct = InputBox(Prompt:="Indtast ny momsprocent", Title:="Ny
> momsprocent", Default:=GlMomsPct)
>
> If NyMomsPct <> "" Then
>
> SaveSetting AppName:="MomsBeregning", Section:="Indstillinger",
> Key:="MomsPct", Setting:=NyMomsPct
>
> End If
>
> End Sub
>
> Det der "Private Sub RetMomsProcent_Click()" kommer til at stå på en gul
> baggrund, og jeg får denne fejl. "Compile error: Sub or Function not
> defined"
>
> Hvordan løser jeg det??
>
> Vil gerne have noget hjælp.
>
> MVH Jakob (c0jab)
>
>
>
>
| |
|
|