[VB6] if else probleem

[sarinsarin]

Hoi ,
ik heb een probleem met de else if statement.
Mijn code ziet er als volgt uit:

code:

    If Subtotaal = 0 Then
    GoTo Line5
    Else: MsgBox "Dit zijn de gegevens van Gabor"
    End If

Het probleem nu is, dat ook wanneer Subtotaal niet 0 is, de MsgBox alsnog wordt overgeslagen

[ Voor 17% gewijzigd door sarinsarin op 24-03-2005 16:45 ]

[zwippie]

1: Vermijd het gebruik van goto.
2: Je kijkt nu of Subtotaal gelijk is aan de tekst/string 0, terwijl je waarschijnlijk wilt vergelijken met een getal.

[CodeCaster]

code:

If (voorwaarde) then
  msgbox "Voorwaarde OK"
Else
  msgbox "Voorwaarde NIET OK"
End If

[farlane]

sarinsarin schreef op donderdag 24 maart 2005 @ 16:32:
... GoTo Line5

=

[whoami]

zelfs

[sarinsarin]

If (voorwaarde) then

de () maakten het verschil

Ik begrijp dat mensen hier niet gecharmeerd zijn van mijn GoTo statement.....

Wat zou dan het beste alternatief zijn?

[CodeCaster]

De code bij je Line5 in een procedure zetten en die aanroepen, bijvoorbeeld.

[TwoR]

en die nul als dat een integer moet zijn de " " er omheen weghalen. Die moeten namelijk alleen bij een string.

[sarinsarin]

code:

    If (Subtotaal = 0) Then
    GoTo Line5
    Else
    MsgBox "Dit zijn de gegevens van Gabor"
    End If

o nee, toch niet goed, hij slaat nog steeds alle Msgboxes over ook wanneer subtotaal niet o is

(ps: met Goto line 5 bedoel ik dus naar elders in mijn script, niet naar regel 5)

[ Voor 28% gewijzigd door sarinsarin op 24-03-2005 17:15 ]

[whoami]

Wat staat dat dubbelpunt na die else te doen ?
En , get rid of the goto.

[D4Skunk]

Visual Basic:

if (subtotaal<>0)
   MsgBox "Dit zijn de gegevens van Gabor"
End if

[whoami]

Erg eigenlijk.....
Mensen die geen voorwaarde kunnen omdraaien.

Hier wandelt er ook zo code ronde:
if voorwaarde
then // do niets
else
......
......

[D4Skunk]

D4Skunk schreef op donderdag 24 maart 2005 @ 17:10:

Visual Basic:

if (subtotaal<>0) THEN
   MsgBox "Dit zijn de gegevens van Gabor"
End if

THEN is verplicht in vb, ik ben meer een c# programmeur.
Wat ik dus bedoelde met die post, is dat waarschijnlijk die goto niet nodig is....

[farlane]

D4Skunk schreef op donderdag 24 maart 2005 @ 17:20:
THEN is verplicht in vb, ik ben meer een c# programmeur.
Wat ik dus bedoelde met die post, is dat waarschijnlijk die goto niet nodig is....

zeker weten niet nodig is

[jan-marten]

Visual Basic:

Private Sub cmdGotoTest_Click()
    Dim i As Integer
    i = 1 'kan ook 0 zijn oid
    If i = 0 Then
        GoTo cmdGotoTest_line
    Else: MsgBox "hoi"
    End If
    MsgBox "geen GoTo uitgevoerd"
    Exit Sub
cmdGotoTest_line:
    MsgBox "GoTo uitgevoerd"
End Sub

Werkt gewoon.

[Twee Dee]

Visual Basic:

If clng(Subtotaal) = 0 Then

Mocht dit je probleem oplossen, dan raad ik je aan wat onderzoek te doen naar het declareren van variabelen en hoe je om moet gaan met verschillende datatypes. (string/integer/etc.)

[sopsop]

farlane schreef op donderdag 24 maart 2005 @ 19:36:
[...]


zeker weten niet nodig is

Goto moet/mag je eigenlijk alleen gebruiken (in VB(script) dan) in combinatie met foutafhandeling,

Visual Basic:

Sub xxxx
   On Error Goto ErrorHandler
   ...
   Exit Sub
ErrorHandler:
   MsgBox "FOUT!"
End Sub

In (vrijwel) alle andere gevallen zul je je code zo moeten maken dat het niet nodig is.

[Verwijderd]

Visual Basic:

Private Sub Command1_Click()
 Subtotaal = 1 '0 '"blaat"
 If Subtotaal = 0 Then
     GoTo Line5
    Else: MsgBox "Dit zijn de gegevens van Gabor"
 End If
Exit Sub

Line5:
MsgBox "line5 test"
End Sub

En die Subtotaal nog ff dimmen ofzo met byte/integer/whatever nodig is.

[farlane]

Wat zitten jullie nou nog steeds te k*tten met die goto? Is het bericht nog niet overgekomen?

Visual Basic:

Private Sub Command1_Click() 
 Subtotaal = 1 '0 '"blaat" 
 If Subtotaal <> 0 Then 
    MsgBox "Dit zijn de gegevens van Gabor" 
 Else
    MsgBox "line5 test" 
 End If 
End Sub

[Lukse]

farlane schreef op vrijdag 25 maart 2005 @ 13:01:
Wat zitten jullie nou nog steeds te k*tten met die goto? Is het bericht nog niet overgekomen?

Wat zitten jullie nou nog steeds te k*tten met die if-then-else???
Waar zit hier die moderator?

[Rowwan]

if (subTotaal == 0)

(Of bestaat dit niet in VB )

[sopsop]

Rowwan schreef op vrijdag 25 maart 2005 @ 14:34:
if (subTotaal == 0)

(Of bestaat dit niet in VB )

Nee. Vergelijkingen gewoon met enkele =

[farlane]

Lukse schreef op vrijdag 25 maart 2005 @ 13:23:
[...]

Wat zitten jullie nou nog steeds te k*tten met die if-then-else???
Waar zit hier die moderator?

Ook weer waar

[Lukse]

boppert schreef op vrijdag 25 maart 2005 @ 14:35:
[...]

Nee. Vergelijkingen gewoon met enkele =

En die haakjes zijn ook niet nodig.

[Verwijderd]

farlane schreef op vrijdag 25 maart 2005 @ 13:01:
Wat zitten jullie nou nog steeds te k*tten met die goto? Is het bericht nog niet overgekomen?

Mja er zijn zoveel mogelijkheden dat is het leuke he

Weet niet direct zo een voorbeeld maar ik kan me herinneren dat ik weleens een goto heb gebruikt om het feit dat het een stuk makkelijker was een 'probleem' op te lossen dan de zogenaamde 'nette' manier sue me

[ Voor 4% gewijzigd door Verwijderd op 25-03-2005 15:27 ]

[Verwijderd]

Hoi mensen,

Ik zit nog steeds met dit probleem. (Een vriend had hiervoor voor mij ingelogt, vandaar dat ik het nu met m'n eigen code doe)
Ik weet inmiddels dat de GoTo statement niet gelieft is, maar ik ben nog een beginner. Dus die haal ik weg zodra ik iets meer ervaring heb.
Nu is mijn bedoeling dat zodra de waarde "subtotaal" gelijk is aan 0, dat de macro dan naar de volgende line gaat. Echter laat hij de msgbox gewoon zien. Zit het 'm misschien in de Dim?
Subtotaal is dus een waardie die telkens verschillend is. Can somebody help me??

Sub Inbound()

Dim Subtotaal
Subtotaal = Range("D255")

Line1:
Worksheets("Behoud Lijst").Range("A:D").AutoFilter _
Field:=1, _
Criteria1:="39302"
If Subtotaal = 0 Then
GoTo Line2
Else: MsgBox "Dit zijn de gegevens van Marloes Evers"
End If

Edit:
Ik heb het al opgelost. Ik had DIM subtotaal, maar het had Set moeten zijn
Tnx anyway

[ Voor 18% gewijzigd door Verwijderd op 28-03-2005 12:19 ]

[mulder]

Misschien heel simpel gedacht hoor, maar het lijkt me dat Subtotaal in iedergeval geen 0 is. Het woord Range zelf geeft al aan dit object niet perse 1 waarde hoeft te zijn/hebben.

[Verwijderd]

Tja, ik ben nog maar net een tijdje begonnen me VB, dus vandaar mijn beperkte ervaring.
Als het goed is, krijg ik deze week een beginners-boek.
Tot die tijd moet ik het maar met Help en Google doen.

[Lustucru]

Excel he? Zal ik ook nog eens een duit in het zakje doen?

A: De variabele subtotaal krijgt één keer een waarde toegewezen in regel 3 en die houdt ie gewoon verder. Wat je ook verder doet in je code, de waarde van range("D255") verandert misschien, maar de waarde van subtotaal niet.

B: Subtotaal is dus niet 0. Wat kan het wel zijn? Leeg (Null), een lege string (""), een getalswaarde <>0 of een willekeurige string (bv "0").

C: wil je dat subtotaal verwijst naar de range("D255") dan gaat het als volgt:

Dim subtotaal as range
Set subttotaal=activesheet.range("D255").range
if subtotaal.value <> 0 then msgbox

of vergeet subtotaal:
If range("D255")<>0 then

D: Kijk eens naar procedures in de helpfile.

[ Voor 10% gewijzigd door Lustucru op 28-03-2005 12:27 ]

[Stiegl]

We kunnen met z'n allen natuurlijk wel gaan gissen wat het probleem bij de heren VB-newbie's is, maar het lijkt mij zinvoller om de debug basics onder de knie te krijgen:
Zet een breakpoint op de regel waar je niet zeker van bent --> op code regel gaan staan, druk F9. Laat de code runnnen, totdat hij op het breakpoint stop, en stap door de coderegels met F8. Gebruik het locals window, of het watch window om de waarden van variabelen te bekijken.
Je zult vrij snel zien waar de fout zit.

[Verwijderd]

Aha, kijk dat zijn eens goede tips Cheese Tnx alot
En idd Niesje, zo kan het ook. 't is alleen dat ik NOG niet zo ervaren ben.
Maar die code ziet er stukken beter uit

Heb je misschien ook nog een oplossing voor mij om die GoTo te vervangen door iets anders??

[sebastius]

gewoon de code die je 'GoTo'd inbouwen in de IF THEN ELSE structuur, of er een sub van maken.